<%@ LANGUAGE="VBScript" %>
<%
Dim c,j, subse(2,20), locs(2,20)
If Request("subs")<>"" then
subs=true
Else
subs=false
End if
if subs then
subsdescr=cstr(Request("subs"))
end if
'
' Open Database
'
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd
%>
Checklist Update
Checklist Update
<%
'
'm=other counter
dim subs_q, subs_q_order, comments, subs_loc, q_level, question
dim instructions, weblink, subs_a, a_text, a_type, a_units
if subs=true then
response.write("
Subsystem "& subsdescr&"
")
response.write("
")
Response.write("
Question Number
Question order
Location
" &vbcrlf)
Response.write("
Level
QUESTION
INSTRUCTIONS
WEBLINK
" &vbcrlf)
Response.write("
Answer
Type
Units
" &vbcrlf)
Response.write("
")
SQLst="select SUBS_Q,SUBS_Q_ORDER ,comments, SUBS_LOC, to_number(substr(subs_q,2),999) nume, "
SQLst=SQLst &" Q_LEVEL ,QUESTION ,INSTRUCTIONS, WEBLINK, A_TEXT, A_TYPE ,a_units "
SQLst=SQLst &" from phoffline.checklist"
SQLst=SQLst &" where subs='"& subsdescr &"' order by nume,subs_q_order"
'response.write(SQLst)
set RS=connection.Execute(SQLst)
m=0
Do while not RS.EOF
subs_q=cstr(RS("subs_q"))
subs_q_order=cstr(RS("subs_q_order"))
subs_loc=cstr(RS("subs_loc"))
if not IsNull(RS("q_level")) Then
q_level=cstr(RS("q_level"))
Else
q_level=" "
End If
if not IsNull(RS("question")) Then
question=cstr(RS("question"))
Else
question=" "
End If
if not isnull(RS("instructions")) then
instructions=cstr(RS("instructions"))
else
instructions=" "
end if
if not isnull(RS("weblink")) then
weblink=cstr(RS("weblink"))
else
weblink=" "
end if
if not isnull(RS("a_text"))then
a_text=cstr(RS("a_text"))
else
a_text=" "
end if
if not isnull(RS("a_units")) then
a_units=cstr(RS("a_units"))
else
a_units=" "
end if
a_type=cstr(RS("a_type"))
response.write("
"& subs_q &"
"& subs_q_order &"
")
response.write("
"& subs_loc &"
")
response.write("
"& q_level &"
"& question &"
"& instructions &"
")
response.write("
"& weblink &"
"& a_text &"
"&a_type &"
"&a_units &"
")
response.write("
")
response.write("
")
m=m+1
RS.Movenext
Loop
'
'plan do hte table that displays everything
'modify the confirmation slightly and ask bolek for option to fill maybe the areas in case we don't want to change everything
'u would have to specify then the value of the form objects.
'maybe select
'
'
else
'
' SQL statement to read all the different subs
'c=counter
'subse(0,c)= different subdir for checklist from database
'subse(1,c)=description for each one
'
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
response.write("")
End if
%>
<%
'
' CLose database connection
'
Set RS=nothing
Connection.Close
Set Connection=nothing
%>