<%@ 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("") Response.write("") Response.write("
" & objRS("question") & "
" & objRS("answer") & "
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("") Response.write("") Response.write("
" & objRS("question") & "
" & objRS("answer") & "
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 %>

 
Category | <% =category %>
Question |
Answer |

   

<% End If %>