 |
<%
dim q_string
q_string = Request.QueryString("shot")
set tigCON = Server.CreateObject("ADODB.Connection")
tigCON.Open(DSN)
' set up the query to list the news by date Desc
query = "SELECT str_author, str_author_email, str_title, str_filename "
query = query & "FROM q3a_levels "
query = query & "WHERE str_filename = '" & q_string & "'"
'Response.Write("Query = [" & query & "]
")
set tigRS = tigCON.Execute(query)
' make sure we have see if there is no records
if (tigRS.EOF) Then
%>
There is no screen shot for that level request, sorry
<%
else
dim filename, ref_page
filename = tigRS("str_filename")
ref_page = Request.ServerVariables("HTTP_REFERER")
%>
.zip" target="_blank"><%=tigRS("str_title")%> by "><%=tigRS("str_author")%>
">
"><< back
<%
end if
tigRS.close
tigCON.close
%>
|