<%
Dim objConn
dim SQLstmt
Dim objRS
Dim SQLqry
Dim UID
Dim RecordArray
Dim I

UID = right(Request.ServerVariables("AUTH_USER"),8)
SQLqry = Request.Form("qry")

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="Trusted_Connection=yes;driver=SQL Server;server=Server;database=db;"
objConn.Open 


If SQLqry = "" then
	Response.Write "Please Enter a SQL Query"
	Else

Set objRS = objConn.Execute(SQLqry)
         Response.Write "<H5 align = ""center"">" & sqlqry & "</H5>"

Response.Write "<Table align = ""center"" border = ""1"">"
For I = 0 To objRS.Fields.Count - 1
  Response.Write "<TD><B>" & objRS(I).Name & "</B></TD>"
Next


	Do while not objRS.EOF 
	  RecordArray = objRS.GetRows(30)

	  For I = 0 To UBound(RecordArray,2)
		Response.Write "<TR>"
		Response.Write "<TD>" & RecordArray(0,I) & "</TD>"
		Response.Write "<TD>" & RecordArray(1,I) & "</TD>"
		Response.Write "<TD>" & RecordArray(2,I) & "</TD>"
		Response.Write "<TD>" & RecordArray(3,I) & "</TD>"
		Response.Write "<TD>" & RecordArray(4,I) & "</TD>"
		Response.Write "<TD>" & RecordArray(5,I) & "</TD>"
		Response.Write "<TD>" & RecordArray(6,I) & "</TD>"
		Response.Write "<TD>" & RecordArray(7,I) & "</TD>"
		Response.Write "</TR>"
	  Next
	Loop
            Response.Write "</TABLE>"
	objRS.close
	objConn.close
	set objRS=nothing
	set objConn=nothing

End if
%>

	  For I = 0 To UBound(RecordArray,2)
            Response.Write "<TR>"
            For C = 0 to Ubound(RecordArray,1)
		Response.Write "<TD>" & RecordArray(C,I) & "</TD>"
            Next
            Response.Write "</TR>"
	  Next