<%If Session("logged_in") = 2 then%>
<%
Function s(txt)
s = Replace(Request(txt),"'","''")
If len(request(txt)) = 0 then
's = ""
End if
End Function
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(strDbPath)
SQL = "SELECT * FROM anmalning WHERE id="& Request("idnr")
Set RecSet = objConn.Execute(SQL)
If Not RecSet.Eof then MyArray = RecSet.Getrows()
RecSet.Close
Set RecSet = nothing
%>
Anmälan