%@ Language=VBScript %>
<%
'Option Explicit
Dim strConnect, objConn, objRS, adOpenForwardOnly, adLockReadOnly, adCmdText, adoCon, strSQL1, strSQL2, strSQL3
sendto = Request.Querystring("sendto")
category = Request.QueryString("category")
if category = "" then category = Request.Form("category")
%>
Reptile Addictions
|
|
|
|
|
<% If Session("blnLogin")= True then %>
<%
strSQL1 = "Select * From questions where status = '2' and category = '" & category & "' order by ID desc"
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject ("ADODB.Recordset")
objConn.Open strConnect
objRS.Open strSQL1, objConn, adoCon
While not objRS.EOF
Response.write("" & objRS("question") & " | ")
Response.write("" & objRS("answer") & " | ")
Response.write("Originally submitted on: " & objRS("adddate") & " at " & objRS("addtime") & " by " & objRS("addname") & ". edit delete | ")
Response.write("")
objRS.MoveNext
Wend
objRS.Close
Else
strSQL1 = "Select * From questions where status = '2' and category = '" & category & "' order by ID desc"
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject ("ADODB.Recordset")
objConn.Open strConnect
objRS.Open strSQL1, objConn, adoCon
While not objRS.EOF
Response.write("" & objRS("question") & " | ")
Response.write("" & objRS("answer") & " | ")
Response.write("Originally submitted on: " & objRS("adddate") & " at " & objRS("addtime") & ". Last updated on: " & objRS("updatedate") & " at " & objRS("updatetime") & ". | ")
Response.write("")
objRS.MoveNext
Wend
objRS.Close
End If
%>
<% If Session("blnLogin")= True then %>
<% End If %>
|
|
|
|
|
|
|