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)
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.