<% If Request("do") = "login" then If Request("losenord") = strPassword then Session("logged_in") = 2 End if End if Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(strDbPath) If Request("do") = "delete" AND Session("logged_in") = 2 AND Len(Request("idnr")) <> 0 then SQL = "DELETE FROM anmalning WHERE id="& Request("idnr") objConn.Execute(SQL) End if If Request("do") = "accept" AND Session("logged_in") = 2 AND Len(Request("idnr")) <> 0 then SQL = "UPDATE anmalning SET godk=1 WHERE id="& Request("idnr") objConn.Execute(SQL) End if Function s(txt) s = Replace(Request(txt),"'","''") If len(request(txt)) = 0 then 's = "" End if End Function SQL = "SELECT id, forare_klass, forare_namn, forare_klubb, kartl_namn, bil, anmalare_namn, godk FROM anmalning ORDER BY forare_klass ASC, forare_namn ASC" Set RecSet = objConn.Execute(SQL) If Not RecSet.Eof then MyArray = RecSet.Getrows() RecSet.Close Set RecSet = nothing %> <%If Session("logged_in") = 2 then%> <%If Isarray(MyArray) then%> <%For i = 0 to Ubound(MyArray,2)%> <%Next Else%> <%End if%>

Klass	Förare	Klubb	Kartläsare/Co-driver	Bil	Ev.anmälare
<%=Myarray(1,i)%>	<%=Myarray(2,i)%>	<%=Myarray(3,i)%>	<%=Myarray(4,i)%>	<%=Myarray(5,i)%>	<%=Myarray(6,i)%>	Ändra	Radera	<%IF intValidera=1 then%><%If Myarray(7,i)=0 then%>Godkänn<%Else%>Godkänd<%End if End if%>
Inga anmälda ännu.

Utskriftsvänlig vy
<%Else%>

Lösenord:

<%End if%> <% objConn.Close Set objConn = nothing %>