<%@ Language=VBScript %> <% 'wrong login ...? if session("login") <> "yes" then Response.Redirect ("adminlog.asp") end if %> <% a = Request.Form("sql") 'create connection set conn = server.CreateObject ("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("/fpdb/engglas.mdb") 'query to select active data... sql = "SELECT * FROM title, vote where title.id = vote.id and title.title like '" & a & "'" set rs = server.CreateObject ("ADODB.Recordset") rs.Open sql, conn, 3, 3 session("titlea") = rs.Fields("title") %>

Administration Title "> <% on error resume next rs.MoveFirst %>   1. "> <%rs.Movenext%>   2. "> <%rs.Movenext%>   3. "> <%rs.Movenext%>   4. "> <%rs.Movenext%>   5. "> <%rs.Movenext%>   6. "> <%rs.Movenext%>   7. "> <%rs.Movenext%>   8. "> <%rs.Movenext%>   9. "> <%rs.Movenext%> 10. ">

<% 'close connection and recordset... rs.Close set rs = nothing conn.Close set conn = nothing %>