Har gjort en inlogningssida i ASP. Nu till problemet: Inloggningen fungerar ej som den ska, när jag ska logga in, så får jag ett felmeddelande som säger att det finns ett fel på rad 8 i koden. Vad göra. Hur löser jag detta problem?

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/cnInloggning.asp" -->
<%
Dim rsInloggning
Dim rsInloggning_numRows

Set rsInloggning = Server.CreateObject("ADODB.Recordset")
rsInloggning.ActiveConnection = MM_cnInloggning_STRING
rsInloggning.Source = "SELECT ID, Anvandarnamn, Losenord FROM Loggin ORDER BY ID ASC"
rsInloggning.CursorType = 0
rsInloggning.CursorLocation = 2
rsInloggning.LockType = 1
rsInloggning.Open()

rsInloggning_numRows = 0
%>
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername=CStr(Request.Form("textfield"))
If MM_valUsername <> "" Then
MM_fldUserAuthorization=""
MM_redirectLoginSuccess="Startsida.asp"
MM_redirectLoginFailed="Information.asp"
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_cnInloggning_STRING
MM_rsUser.Source = "SELECT Anvandarnamn, Losenord"
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM Loggin WHERE Anvandarnamn='" & Replace(MM_valUsername,"'","''") &"' AND Losenord='" & Replace(Request.Form("textfield2"),"'","''") & "'"
MM_rsUser.CursorType = 0
MM_rsUser.CursorLocation = 2
MM_rsUser.LockType = 3
MM_rsUser.Open
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' username and password match - this is a valid user
Session("MM_Username") = MM_valUsername
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And false Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>

Vad innehåller filen Connections/cnInloggning.asp?

/Johan

Hej!
Jo, den innehåller användarnamn & lösenord.
När jag ändå har dig på tråden, så undrar jag om du vet något bra mail script som det går att bifoga filer med. Scriptet måste använda sig utav CDONTS.
Mvh.
Micke

Du får gärna visa vad filen innehåller också... Eftersom du använder variabler som ser ut att komma därifrån hjälper det om man vet vad dom innehåller.

Angående mail borde denna artikeln vara till hjälp: http://www.pellesoft.se/area/articles/article.aspx?artid=783

/Johan