Silicon Test Codes

<%@ LANGUAGE="VBScript" %> <% Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd SQLStmt = "select action,measurement_type,description,comments from sitester.sensor_measurement_list order by action,measurement_type" Set RS = Connection.Execute(SQLStmt) %> Silicon Test Codes

Silicon Measurement Codes

<% Do While Not RS.EOF CStr(RS("Measurement_type")) %> <% RS.Movenext Loop Connection.Close %>

Test	Action	Measurement Type	Standard
<%=CStr(RS("Description")) %>	<%=CStr(RS("Action")) %>	<%=CStr(RS("Measurement_type")) %>	<% If CStr(RS("Comments"))="Standard" Then %> <% Else Response.write(" ") End If %>