<%@ LANGUAGE="VBScript" %> <% Dim c,j, subse(2,20), locs(2,20) ' ' Open Database ' Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd ' ' SQL statement to read all the different subs ' 'j=counter 'c=counter 'subse(0,c)= different subdir for checklist from database 'subse(1,c)=description for each one 'locs(0,c)=sub locations 'locs(1,c)= location description ' SQLst="select cqs.subs subs, cqs.description subdescription " SQLst=SQLst &"from phoffline.chk_qs_subs cqs" 'response.write(SQLst) set RS=connection.Execute(SQLst) c=0 Do while Not RS.EOF subse(0,c)=cstr(RS("subs")) subse(1,c)=cstr(RS("subdescription")) c=c+1 RS.movenext loop ' 'SQl to read locations ' SQlst="select cql.subs_loc sublocs,cql.description locdescription from phoffline.chk_qs_locs cql" set RS=connection.Execute(SQLst) j=0 Do while Not RS.EOF locs(0,j)=cstr(RS("sublocs")) locs(1,j)=cstr(RS("locdescription")) j=j+1 RS.movenext loop %> Checklist insertion

Checklist Insertion

") Response.write("

Subsystem

Subsystem Location

Questions

Question

Answers

Measurements' text

 

Type

 

Units

Actions to take/Instructions

Comments/Condition

Weblink

Level (multiple selection possible, hold Ctrl key to select more than one)

1=Monitoring, Tunnel Open
2=Monitoring, Tunnel Closed
3=Normal Data Taking, Once per Start of shift
4=Normal Data Taking, once per two hours
5=Normal Data Taking, regularly

<% ' ' CLose database connection ' Set RS=nothing Connection.Close Set Connection=nothing %>