<%@ Language=VBScript %> <% 'Option Explicit Dim strConnect, objConn, objRS, adOpenForwardOnly, adLockReadOnly, adCmdText, adoCon, strSQL1, strSQL2, strSQL3 sendto = Request.Querystring("sendto") %>

<% If Session("blnLogin")= True then %> <% strSQL1 = "Select * From feedback where status = '2' 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(" " & objRS("feedback") & " Submitted on: " & objRS("adddate") & " at " & objRS("addtime") & " by " & objRS("addname") & ".  delete ") Response.write("") objRS.MoveNext Wend objRS.Close Else strSQL1 = "Select * From feedback where status = '2' 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(" " & objRS("feedback") & " Submitted on: " & objRS("adddate") & " at " & objRS("addtime") & ". ") Response.write("") objRS.MoveNext Wend objRS.Close End If %>