Felet jag får nu är Empty connection string Har du definierat 'connstr' i filen du includerar då? alltså i mysql.inc...? connstr är definierad i includen och det är en korrekt koppling som jag har använt innan. Kolla in http://www.webbisen.com/asp/login.asp så ser du resultatet av din kod....det är nånting som inte stämmer än Jag kör alltid script, som inte har med det visuella att göra, utanför BODYn...Inloggningsproblem
<%
If Request.Querystring("do") = "" Then
'Vi visar formuläret
%>
<html>
<head><title>www.webbisen.com</title>
<!-- #include file="include/db-conn/conn-strings/mysql.inc" -->
</head>
<BODY>
<table>
<tr>
<td valign="top">
<div id=Small-Text>
<form action="login.asp?do=login" method="post">
<input type="text" name="anvnamn" value=""><br>
<input type="password" name="losen" value=""><br>
<input type="submit" name="LogIn" value="Logga in">
</form>
</div>
</td>
</tr>
<table>
<%
Dim RS, SQL
ElseIf Request.Querystring("do") = "login" Then
'Användaren vill logga in
'Vi kollar efter användarnamn och lösenord
Set conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
conn.Open connstr
SQL = "SELECT anvnamn, losen FROM login WHERE anvnamn = '" & _
Request.Form("anvnamn") & "' AND losen = '" & _
Request.Form("losen") & "'"
Set RS = Conn.Execute(SQL)
'RS.Open SQL, conn, 1, 3, 1
If RS.EOF THEN
'Felaktig inloggning
Response.Redirect "login.asp?do=error&anvnamn=" & ("anvnamn") & "&losen=" & ("losen") & ""
Else
Session("inloggad") = "True"
Session ("anvnamn") = Request.Form("anvnamn")
'conn.Execute("Update anvnamn SET Status = (Status + 0.10) WHERE anvnamn = ' " & Request.Form("anvnamn") & " ' ")
Response.Redirect "login.asp?do=inloggad"
End If
Set RS = Nothing
RS.Close
conn.Close
Set conn = Nothing
%>
</BODY>
</html>
<% End If %>
<%
If Request.Querystring("do") = "error" Then
'Vi visar formuläret
%>
<html>
<head>
<title>Error</title>
<body>
Nåt gick snett
</body>
</html>
<%End If%>
<%
If Request.Querystring("do") = "inloggad" Then
'Användare är inloggad
%>
<html>
<head>
<title>Du är inloggad </title>
<body>
Du är nu inloggad
</body>
</html>
<%End If%>Sv: Inloggningsproblem
innehåller 'connstr' en Connection string lr?
Ja har ett annat förslag på din inloggning.. kolla på detta:
<code>
<HTML>
<HEAD><TITLE>www.webbisen.com</TITLE>
</HEAD>
<BODY>
<%
If Session("inloggad") Then
Response.Write("Du är inloggad!")
Response.Write("Logga ut...")
End If
If Len(Request.Querystring("do")) = 0 And Not Session("inloggad") Then
'Vi visar formuläret
%>
<!-- #include file="include/db-conn/conn-strings/mysql.inc" -->
<TABLE>
<TR>
<TD VALIGN="top">
<FORM AVTION="login.asp?do=login" METHOD="post">
Användarnamn: <INPUT TYPE="text" NAME="anvnamn" VALUE=""><br>
Lösenord: <INPUT TYPE="password" NAME="losen" VALUE=""><br>
<INPUT TYPE="submit" NAME="LogIn" VALUE="Logga in">
</FORM>
</TD>
</TR>
</TABLE>
<%
If Request.QueryString("login") = "fail" Then
Response.Write("Du angav ett felaktigt användarnamn och/eller lösenord.<BR>Försök igen!")
End If
ElseIf Request.Querystring("do") = "login" Then
'Användaren klickade på 'Logga in'
'Vi kollar efter användarnamn och lösenord
Dim strAnvNamn, strLosen, conn, RS, SQL
strAnvNamn = Trim(Request.Form("anvnamn"))
strAnvNamn = Replace(strAnvNamn, Chr(39), Chr(34)) ' <== Byt ' mot "
strLosen = TrimRequest.Form("losen"))
strLosen = Replace(strLosen, Chr(39), Chr(34)) ' <== Byt ' mot "
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr ' <== RAD 45!!!
SQL = "SELECT anvnamn, losen FROM login WHERE anvnamn = '" & strAnvNamn _
& "' AND losen = '" & strLosen & "'"
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open SQL, conn, 1, 3, 1
If RS.EOF THEN
'Felaktig inloggning
Response.Redirect("login.asp?login=fail")
Else
Session("inloggad") = True
Session("anvnamn") = Request.Form("anvnamn")
'conn.Execute("Update anvnamn SET Status = (Status + 0.10) WHERE anvnamn = '" & strAnvNamn & "'")
Response.Redirect "login.asp"
End If
RS.Close
Set RS = Nothing
conn.Close
Set conn = Nothing
ElseIf Request.Querystring("do") = "logout" Then
Session("inloggad") = False
Response.Redirect("login.asp")
End If
%>
</code>Sv: Inloggningsproblem
Sv: Inloggningsproblem
Så jag skulle knacka din sida så den såg ut ngt sånt här:
<code>
<!-- #include file="include/db-conn/conn-strings/mysql.inc" -->
<%
If Request.Querystring("do") = "login" Then
'Användaren klickade på 'Logga in'
'Vi kollar efter användarnamn och lösenord
Dim strAnvNamn, strLosen, conn, RS, SQL
strAnvNamn = Trim(Request.Form("anvnamn"))
strAnvNamn = Replace(strAnvNamn, Chr(39), Chr(34)) ' <== Byt ' mot "
strLosen = TrimRequest.Form("losen"))
strLosen = Replace(strLosen, Chr(39), Chr(34)) ' <== Byt ' mot "
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
SQL = "SELECT anvnamn, losen FROM login WHERE anvnamn = '" & strAnvNamn _
& "' AND losen = '" & strLosen & "'"
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open SQL, conn, 1, 3, 1
If RS.EOF THEN
'Felaktig inloggning
Response.Redirect("login.asp?login=fail")
Else
Session("inloggad") = True
Session("anvnamn") = Request.Form("anvnamn")
'conn.Execute("Update anvnamn SET Status = (Status + 0.10) WHERE anvnamn = '" & strAnvNamn & "'")
Response.Redirect "login.asp"
End If
RS.Close
Set RS = Nothing
conn.Close
Set conn = Nothing
ElseIf Request.Querystring("do") = "logout" Then
Session("inloggad") = False
Response.Redirect("login.asp")
End If
%>
<HTML>
<HEAD><TITLE>www.webbisen.com</TITLE>
</HEAD>
<BODY>
<%
If Session("inloggad") Then
Response.Write("Du är inloggad!")
Response.Write("Logga ut...")
End If
If Len(Request.Querystring("do")) = 0 And Not Session("inloggad") Then
'Vi visar formuläret
%>
<TABLE>
<TR>
<TD VALIGN="top">
<FORM AVTION="login.asp?do=login" METHOD="post">
Användarnamn: <INPUT TYPE="text" NAME="anvnamn" VALUE=""><br>
Lösenord: <INPUT TYPE="password" NAME="losen" VALUE=""><br>
<INPUT TYPE="submit" NAME="LogIn" VALUE="Logga in">
</FORM>
</TD>
</TR>
</TABLE>
<%
If Request.QueryString("login") = "fail" Then
Response.Write("Du angav ett felaktigt användarnamn och/eller lösenord.<BR>Försök igen!")
End If
%>
</BODY>
</HTML>
</code>