Drill/Select Table Information

<%=$REMOTE_HOST %> <% '--Created by: Matthew J. Khoury Dim strSV, intRowColor For Each strSV In Request.ServerVariables if intRowColor = 0 Then Response.Write "" intRowColor = 1 Else Response.Write "" intRowColor = 0 End if Response.Write " " & strSV & "=" & Request.ServerVariables(strSV) & "" Next %> <% response.write("dfdsfsdfdsfd
"); Dim objCon 'declare your variable to hold your connection Set objCon=Server.CreateObject("ADODB.Connection") connectionString="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Server.MapPath("sec.accdb") objCon.open connectionString set objRec=Server.CreateObject("ADODB.Recordset") dim q ="SELECT * FROM SECCLASS" objRec.Open q, objConn while not objRec.EOF { response.write(objRec.Fields("SECCLASS").value + "
"); objRec.MoveNext(); } objRec.Close(); objCon.Close(); %>