<%@ Language=VBScript %> <% 'wrong login ...? if session("login") <> "yes" then Response.Redirect ("adminlog.asp") end if %> Set active poll <% '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" set rs = server.CreateObject ("ADODB.Recordset") rs.Open sql, conn, 3, 3 %>


Set active

<% 'create radio buttons for a = 1 to rs.recordcount %> <% if rs.fields("active") = "y" then %> " checked> <%=rs.fields("title")%> <%else%> "> <%=rs.fields("title")%> <%end if%>
<% rs.movenext if rs.eof then rs.movelast end if next %>

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