<%
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "cache-control", "private"
Response.AddHeader "pragma", "no-cache"
%>
Deeder Admin
<%
If Request.Servervariables("REQUEST_METHOD")="POST" Then
form_QueryText=Request.Form("QueryText")
Else
form_QueryText=""
End If
%>
<%
If Request.Servervariables("REQUEST_METHOD")="POST" Then
Set Conn = Server.CreateObject("ADODB.Connection")
conn.open "DSN=deeder"
Set RS = Conn.Execute(form_QueryText)
on error resume next
NoRecords=Rs.EOF
If Err.Number=0 and not NoRecords Then
howmanyfields=rs.fields.count -1
response.write "
"
'Put Headings On The Table of Field Names
FOR i=0 to howmanyfields
response.write "
" & rs(i).name & "
"
NEXT
response.write "
"
' Now loop through the data
DO UNTIL rs.eof
response.write "
"
FOR i = 0 to howmanyfields
fieldvalue=rs(i)
If isnull(fieldvalue) THEN
fieldvalue="null"
END IF
If trim(fieldvalue)="" THEN
fieldvalue=" "
END IF
response.write "
"
response.write fieldvalue
response.write "
"
next
response.write "
"
rs.movenext
LOOP
response.write "
"
Else
If Err.Number=0 Then
Response.Write ("No records were returned.")
End If
End If
rs.close
Conn.Close
End if
%>