Sql = "Select Count(*) as Found from Adgangskode_Kunder where (Brugernavn = '" & strBrugernavn & "') and (Adgangskode ='" & strAdgangskode & "')" Set LO = RS.Execute(Sql) if LO("Found") = 0 then Session("login") = "" error = "Du blev ikke godkendt af systemet" else strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("fpdb/SJC-web.mdb") Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open strDSN strSQL = "SELECT * FROM Adgangskode_Kunder where (Brugernavn = '" & Request("Brugernavn") & "') and (Adgangskode ='" & Request("Adgangskode") & "')" Set ez = myConn.Execute(strSQL) Session("login") = "yes mate" Response.Redirect "Kunder.asp" EZ.Close RS.Close Conn.Close end if end if
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.