Tjena,

undrar varför denna kod inte funkar. Det verkar som om det inte finns något när jag kör Request.Form("anvnamn"), så därför blir ju även Recordsetet tomt. Tacksam för svar.

...emanuel

<code>
<%
' Mata in användarnamn och lösenord
If Request.Querystring("step") = "1" Then
%>
<FORM method=post action="logga_in.asp?step=2" enctype="text/plain">
<table width="600" cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="150"><font face="verdana, arial" size=1 color="#5B5B5B" ><b>ANVÄNDARNAMN</b></font><br></td>
<td><INPUT STYLE='text-decoration: none; color: #5B5B5B; font-size: 8pt; font-family : Verdana;' type=text name="anvnamn" size=20 maxlength=70></td>
</tr>
<tr>
<td><font face="verdana, arial" size=1 color="#5B5B5B" ><b>LÖSENORD</b></font><br></td>
<td><INPUT STYLE='text-decoration: none; color: #5B5B5B; font-size: 8pt; font-family : Verdana;' type=password name="passord" size=20 maxlength=70></td>
</tr>
<tr>
<td></td>
<td><INPUT STYLE='text-decoration: none; color: #5B5B5B; font-size: 8pt; font-family : Verdana;' type="submit" value="Logga in"><INPUT STYLE='text-decoration: none; color: #5B5B5B; font-size: 8pt; font-family : Verdana;' type="reset" value="Radera"></td>
</tr>
</table>
</FORM>
<%
End If
' Verifiera användarnamn och lösenord
If Request.Querystring("step") = "2" Then

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\Inetpub\wwwroot\data\databas.mdb"

Set RecSet = Server.CreateObject("ADODB.Recordset")
anvandare = "SELECT Personal.anvnamn, Personal.passord FROM Personal WHERE anvnamn = '" & Request.Form("anvnamn") & "'"
RecSet.Open anvandare, Connect, adOpenStatic, adLockOptimistic

If RecSet.EOF Then %>
<font face="verdana, arial" size=1 color="#5B5B5B"><b>Felaktigt användarnamn !!!</b></font><br>
<% End If
If RecSet("passord") = Request.Form("passord") Then
Response.Redirect("hem.asp")
Else %>
<font face="verdana, arial" size=1 color="#5B5B5B" ><b>Felaktigt lösenord !!!</b></font><br>
<FORM method=post action="logga_in.asp?step=2" enctype="text/plain">
<table width="600" cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="150"><font face="verdana, arial" size=1 color="#5B5B5B" ><b>ANVÄNDARNAMN</b></font><br></td>
<td><INPUT STYLE='text-decoration: none; color: #5B5B5B; font-size: 8pt; font-family : Verdana;' value="<% =Request.Form("anvnamn") %>" type=text name="anvnamn" size=20 maxlength=70></td>
</tr>
<tr>
<td><font face="verdana, arial" size=1 color="#5B5B5B" ><b>LÖSENORD</b></font><br></td>
<td><INPUT STYLE='text-decoration: none; color: #5B5B5B; font-size: 8pt; font-family : Verdana;' type=password name="passord" size=20 maxlength=70></td>
</tr>
<tr>
<td></td>
<td><INPUT STYLE='text-decoration: none; color: #5B5B5B; font-size: 8pt; font-family : Verdana;' type="submit" value="Logga in"><INPUT STYLE='text-decoration: none; color: #5B5B5B; font-size: 8pt; font-family : Verdana;' type="reset" value="Radera"></td>
</tr>
</table>
</FORM>
<% End If
End If %>
</code>

Du kan testa med:
<code>
<%
Dim Valid
' Verifiera användarnamn och lösenord
If Request.Querystring("step") = 2 Then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\Inetpub\wwwroot\data\databas.mdb"

Set RecSet = Server.CreateObject("ADODB.Recordset")
anvandare = "SELECT Personal.anvnamn, Personal.passord FROM Personal WHERE anvnamn = '" & Replace(Request.Form("anvnamn"), "'", "''") & "'"
RecSet.Open anvandare, Connect

If RecSet.EOF Then
%>
<font face="verdana, arial" size=1 color="#5B5B5B">Felaktigt användarnamn !!!</font><br>
<%
ElseIf RecSet("passord") = Request.Form("passord") Then
Valid = True
Else
%>
<font face="verdana, arial" size=1 color="#5B5B5B">Felaktigt lösenord!!!</font><br>
<%
End If
RecSet.Close
Set RecSet = Nothing

Connect.Close
Set Connect = Nothing
End If

If Valid Then
Response.Redirect("hem.asp")
Response.End
Else ' Mata in användarnamn och lösenord
%>
<FORM method=post action="logga_in.asp?step=2" enctype="text/plain">
<table width="600" cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="150"><font face="verdana, arial" size=1 color="#5B5B5B" >ANVÄNDARNAMN</font><br></td>
<td><INPUT STYLE='text-decoration: none; color: #5B5B5B; font-size: 8pt; font-family : Verdana;' type=text name="anvnamn" size=20 maxlength=70></td>
</tr>
<tr>
<td><font face="verdana, arial" size=1 color="#5B5B5B" >LÖSENORD</font><br></td>
<td><INPUT STYLE='text-decoration: none; color: #5B5B5B; font-size: 8pt; font-family : Verdana;' type=password name="passord" size=20 maxlength=70></td>
</tr>
<tr>
<td></td>
<td><INPUT STYLE='text-decoration: none; color: #5B5B5B; font-size: 8pt; font-family : Verdana;' type="submit" value="Logga in"><INPUT STYLE='text-decoration: none; color: #5B5B5B; font-size: 8pt; font-family : Verdana;' type="reset" value="Radera"></td>
</tr>
</table>
</FORM>
<%
End If
%>
</code>

Hmm...det löste inte problemet. Det finns fortfarande inte något i Request.Form("anvnamn"). Ändrade till koden så att den blir lite mer lättläst.

<code>
<%
' Mata in användarnamn och lösenord
If Request.Querystring("step") = "1" Then
%>
<FORM method=post action="logga_in.asp?step=2" enctype="text/plain">
<table width="600" cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="150"><font face="verdana, arial" size=1 color="#5B5B5B" ><b>ANVÄNDARNAMN</b></font><br></td>
<td><INPUT STYLE='text-decoration: none; color: #5B5B5B; font-size: 8pt; font-family : Verdana;' type=text name="anvnamn" size=20 maxlength=70></td>
</tr>
<tr>
<td><font face="verdana, arial" size=1 color="#5B5B5B" ><b>LÖSENORD</b></font><br></td>
<td><INPUT STYLE='text-decoration: none; color: #5B5B5B; font-size: 8pt; font-family : Verdana;' type=password name="passord" size=20 maxlength=70></td>
</tr>
<tr>
<td></td>
<td><INPUT STYLE='text-decoration: none; color: #5B5B5B; font-size: 8pt; font-family : Verdana;' type="submit" value="Logga in"><INPUT STYLE='text-decoration: none; color: #5B5B5B; font-size: 8pt; font-family : Verdana;' type="reset" value="Radera"></td>
</tr>
</table>
</FORM>
<%
' Verifiera användarnamn och lösenord
ElseIf Request.Querystring("step") = "2" Then

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\Inetpub\wwwroot\Pridoc\data\pridoc2002.mdb"

Set RecSet = Server.CreateObject("ADODB.Recordset")
anvandare = "SELECT Personal.anvnamn, Personal.passord FROM Personal WHERE anvnamn = '" & Request.Form("anvnamn") & "'"
RecSet.Open anvandare, Connect, adOpenStatic, adLockOptimistic

If RecSet.EOF Then %>
<font face="verdana, arial" size=1 color="#5B5B5B"><b>Felaktigt användarnamn !!!</b></font><br>
<%
ElseIf RecSet("passord") = Request.Form("passord") Then
Response.Redirect("hem.asp")
Else %>
<font face="verdana, arial" size=1 color="#5B5B5B" ><b>Felaktigt lösenord !!!</b></font><br>
<FORM method=post action="logga_in.asp?step=2" enctype="text/plain">
<table width="600" cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="150"><font face="verdana, arial" size=1 color="#5B5B5B" ><b>ANVÄNDARNAMN</b></font><br></td>
<td><INPUT STYLE='text-decoration: none; color: #5B5B5B; font-size: 8pt; font-family : Verdana;' value="<% =Request.Form("anvnamn") %>" type=text name="anvnamn" size=20 maxlength=70></td>
</tr>
<tr>
<td><font face="verdana, arial" size=1 color="#5B5B5B" ><b>LÖSENORD</b></font><br></td>
<td><INPUT STYLE='text-decoration: none; color: #5B5B5B; font-size: 8pt; font-family : Verdana;' type=password name="passord" size=20 maxlength=70></td>
</tr>
<tr>
<td></td>
<td><INPUT STYLE='text-decoration: none; color: #5B5B5B; font-size: 8pt; font-family : Verdana;' type="submit" value="Logga in"><INPUT STYLE='text-decoration: none; color: #5B5B5B; font-size: 8pt; font-family : Verdana;' type="reset" value="Radera"></td>
</tr>
</table>
</FORM>
<% End If
End If %>
</code>

Jag ser två saker till varför det inte borde funka.
- Du har inte gett textfältet något namn, hur skall då Request.Form kunna hitta fältet?
- Du har inte angett type=text för texfältet

Missade att han angivit namn. Man behöver inte ange type=text. Det är standard.

Ta bort enctype="text/plain" i form taggen.
Tror att det kommer att fungera.