<%@ LANGUAGE="VBScript" %> <% Dim c,j, subse(2,12), locs(2,12) subs=Request("subs") subs_q=request("subs_q") ' ' Open Database ' Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd ' 'SQl to read locations 'locs(0,c)=sub locations 'locs(1,c)= location description 'j=counter 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 set RS=nothing SQLst="select SUBS_Q_ORDER ,comments, SUBS_LOC, " SQLst=SQLst &" Q_LEVEL ,QUESTION ,INSTRUCTIONS, WEBLINK, A_TEXT, A_TYPE ,a_units " SQLst=SQLst &" from phoffline.checklist" SQLst=SQLst &" where subs='"& subs &"' and subs_q='"&subs_q &"'" 'response.write(SQLst) set RS=connection.Execute(SQLst) subs_q_order=cstr(RS("subs_q_order")) subs_loc=cstr(RS("subs_loc")) if not isnull(RS("comments")) then comments=cstr(RS("comments")) else comments=null end if q_level=cstr(RS("q_level")) question=cstr(RS("question")) if not isnull(RS("instructions")) then instructions=cstr(RS("instructions")) else instructions=null end if if not isnull(RS("weblink")) then weblink=cstr(RS("weblink")) else weblink=null end if if not isnull(RS("a_text"))then a_text=cstr(RS("a_text")) else a_text=null end if if not isnull(RS("a_units")) then a_units=cstr(RS("a_units")) else a_units=null end if a_type=cstr(RS("a_type")) %> Checklist Update

Checklist Update

<% Response.write("") Response.write("

Subsystem

Subsystem Location
"&subs &"

Question

Answers

Measurements' text

 

Type

 

Units

Condition/Comments

Actions to take/Instructions

Weblink

Level (multiple selection possible)

<% my1array= Split(q_level,",", -1, 1) ' u have my1array(0) and my1array(1) nloop=0 do nloop=nloop+1 loop while not (Instr(1,q_level,my1array(nloop-1),1))>(InstrRev(q_level,"," ,-1,1)) %>

0=Disabled if only 0 selected
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 %>