<%
'Response.Write("ReQu id =[" & Request.QueryString("id") & "]
")
set tigCON = Server.CreateObject("ADODB.Connection")
tigCON.Open(DSN)
query = "select all * from q3a_levels where id = " & Request.QueryString("id")
'Response.Write("Query = [" & query & "]
")
set tigRS = tigCON.Execute(query)
if (tigRS.EOF) then
%>
They level you have request to edit don't exist, or some thing has gone wrong - email tigger@ebom.org if there is a real problem
<%
else
'create some session vars for this level
session("txt_review") = tigRS("txt_review")
session("datestamp") = SQLdate(tigRS("datestamp"))
session("str_author_email") = tigRS("str_author_email")
session("str_author") = tigRS("str_author")
session("str_type") = tigRS("str_type")
session("str_filename") = tigRS("str_filename")
session("str_title") = tigRS("str_title")
session("bit_archived") = tigRS("bit_archived")
session("wwwsite") = tigRS("wwwsite")
session("id") = Request.QueryString("id")
' Response.Write("session datestamp =[" & session("datestamp") & "]
")
' Response.Write("tigRS bit_archived =[" & tigRS("bit_archived") & "]
")
' Response.Write("tigRS id =[" & tigRS("id") & "]
")
end if
tigRS.close
tigCON.close
%>
