If formPass = strPass Then Session("online") = "on" Session("nick") = strUser Response.redirect "loggedin.asp" Else Response.write "Hov Hov du har vidst ikke lov til at være her?" End if
rs.Close set rs = nothing
Conn.Close Set Conn = Nothing %>
Linie 8 er: set rs = Conn.Execute("SELECT * FROM members WHERE nick=" & formUser)
Set conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("members_db.mdb")
If Request.ServerVariables("Request_Method") = "POST" Then set rs = Conn.Execute("SELECT * FROM members WHERE nick= '" & Replace(formUser, "'", "''") & "'")
If rs.EOF Then Response.write "Hov hov du er vidst ikke liiige member?" Else strId = rs("id") strNick = rs("nick") strPass = rs("pass")
If formPass = strPass Then Session("online") = "on" Session("nick") = strUser set rs = nothing Conn.Close Set Conn = Nothing Response.redirect "loggedin.asp" Else Response.write "Hov Hov du har vidst ikke lov til at være her?" End if End If set rs = nothing End If
Conn.Close Set Conn = Nothing %>
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.