<% SET RS = Server.CreateObject("ADODB.Connection") rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/db.mdb") 'rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=D:\www\www.crocus.dk\db\db.mdb" If Request("mode") = "Check" then Function unQuote(strTekst) strTekst = Trim(strTekst) unQuote = Replace(strTekst,"%","53") End Function strUsername = unQuote(request("username")) strPassword = unQuote(request("password")) Sql = "Select Count(*) as Found from user where (username = '" & strUsername & "') and (password ='" & strPassword & "')" Set LO = RS.Execute(Sql) if LO("Found") = 0 then Session("login") = "" error = "
Forkert brugernavn eller adgangskode" else 'strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=D:\www\www.crocus.dk\db\db.mdb" strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/db.mdb") Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open strDSN strSQL = "SELECT * FROM user where (username = '" & Request("username") & "') and (password ='" & Request("password") & "')" Set ez = myConn.Execute(strSQL) Session("login") = "ja" Response.Redirect "billedbank.asp" EZ.Close RS.Close Conn.Close end if end if %>

Login

Brugernavn:

Adgangskode:


<%=error%>

Crocus    Virkevangen 25    Assentoft    8960 Randers SØ    Tlf.: +45 87 95 93 00    Fax: +45 87 95 93 09    crocus@crocus.dk