Fejl i scipt, (login/database)
Er ikke på toppland ang. asp. Derfor har jeg fundet hjælp. Men når jeg logger ind, så får jeg fejl fra mit login.asp i linie 24. Har surttown, hvis det kan hjælpe til et svar<%
'Dimension variabler
Dim adoCon 'Database Connection Variabel
Dim strCon 'Indeholder Databasens driver og sti til og navn på databasen
Dim rsCheckUser 'Database Recordset Variabel
Dim strAccessDB 'Indeholder Access Database Name
Dim strSQL 'Database query string
Dim strUserName 'Indeholder brugernavn
'Initaliser strUserName variablen
strUserName = Request.Form("txtUserName")
'Check databasen for at se, om bruger eksisterer og læs dennes password
'Initialiser strAccessDB variablen med navnet på Access Database,
strAccessDB = "admin.mdb"
'Opret et connection object
Set adoCon = Server.CreateObject("ADODB.Connection")
'Database connection info og driver
strCon = "DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=letmein; DBQ=" & Server.MapPath(strAccessDB)
'Sæt en aktiv forbindelse til connection objectet
adoCon.Open strCon
'Opret et recordset object
Set rsCheckUser = Server.CreateObject("ADODB.Recordset")
'Initaliser strSQL variablen med en SQL statement til forespørgsel i databasen
strSQL = "SELECT tblAdm.Password FROM tblAdm WHERE tblAdm.Brugernavn ='" & replace(strUserName, "'", "''") & "'"
'Forespørgsel til databasen
rsCheckUser.Open strSQL, strCon
'Hvis der findes en post med det indtastede brugernavn i databasen, læs så brugerens indtastede password
If NOT rsCheckUser.EOF Then
'Indlæs brugerens password fra databasen
If (Request.Form("txtUserPass")) = rsCheckUser("Password") Then
'Hvis password er korrekt, sættes session-variable til True
Session("blnIsAdminGodkendt") = True
'Luk objects før viderestilling
Set adoCon = Nothing
Set strCon = Nothing
Set rsCheckUser = Nothing
'Viderestil til index.asp og medsend brugernavn
Response.Redirect"admin.asp?name=" & strUserName
End If
End If
'Luk objects
Set adoCon = Nothing
Set strCon = Nothing
Set rsCheckUser = Nothing
'Hvis scriptet stadig kører, kan brugeren ikke godkendes
Session("blnIsAdminGodkendt") = False
'Omdiriger til fejlsiden
Response.Redirect"default.asp"
%>
