Jeg har nemlig denne sætning her:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../cgi-data/database.mdb")
Conn.Open DSN
Dim rsKodeord
Dim Login
Dim Password
set rsKodeord = server.Createobject("ADODB.Recordset")
SQL_String = "Select * from contact Where login = rsKodeord("login")"
rsKodeord.open SQL_String, Conn
If Request.Form("login") = rsKodeord("login") AND Request.Form("password") = rsKodeord("password") Then
Session("Customer") = rsKodeord("Number")
Session("login") = "JA"
Session.Timeout = 30
Else
Session("login") = "NEJ"
Session.Timeout = 30
Response.Redirect "
http://www.dr.dk"End If
%>