Jeg har et problem med at mit login, nogle gange ikke virker og
skriver følgene fejlmeddelse:
Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access-driver] Der er for få
parametre. Der var ventet 1.
/bruger.asp, line 23
Her er bruger.asp:
<%
Dim adoCon
Dim strCon
Dim rsCheckUser
Dim strAccessDB
Dim strSQL
Dim strUserName
strUserName = Request.Form("txtUserName")
strAccessDB = "db1.mdb"
Set adoCon = Server.CreateObject("ADODB.Connection")
strCon = "DRIVER={Microsoft Access Driver
(*.mdb)};uid=;pwd=letmein; DBQ=" & Server.MapPath(strAccessDB)
adoCon.Open strCon
Set rsCheckUser = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT tabel1.Password, tabel1.Email, tabel1.Fuldenavn,
tabel1.Adresse, tabel1.byer, tabel1.Postnummer,
tabel1.Telefonnummer, tabel1.Mobil FROM tabel1 WHERE
tabel1.UserID ='" & strUserName & "'"
rsCheckUser.Open strSQL, strCon
If NOT rsCheckUser.EOF Then
If (Request.Form("txtUserPass")) = rsCheckUser("Password") Then
Session("blnIsUserGood") = True
Session("login") = "True"
Session("UserName") = strUserName
Session("email") = rsCheckUser("email")
Session("fuldenavn") = rsCheckUser("fuldenavn")
Session("adresse") = rsCheckUser("adresse")
Session("byer") = rsCheckUser("byer")
Session("postnummer") = rsCheckUser("postnummer")
Session("telefonnummer") = rsCheckUser("telefonnummer")
Session("mobil") = rsCheckUser("mobil")
Set adoCon = Nothing
Set strCon = Nothing
Set rsCheckUser = Nothing
Response.Redirect"loggetind.asp?name=" & strUserName
End If
End If
Set adoCon = Nothing
Set strCon = Nothing
Set rsCheckUser = Nothing
Session("blnIsUserGood") = False
Response.Redirect"fejl.asp"
%>
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials