[tri]

Jag har ett forum soom har fått ovälkomna besökare. Jag har gjort en bild med ett lösenord som är kopplat till en databas. När formulärrutorna är kontrollerade att de är rätt ifyllda ska sidan new.asp laddas och där fylls uppgifterna i från formuläret. Då uppstår problemet. jag får felmeddelande om att alla fält ska vara ifyllda. Förstår inte var felet är, säkert alldeles för enkelt.

Koden för formuläret:

[CODE]<td width="70" bgcolor="#EFEFDE" align="left">Skriv in koden i båda rutorna för att undvika spam</td>
<td width="319" bgcolor="#EFEFDE" align="left">
Skriv in koden<input type="text" name="anvnamn" value="<%=Server.HTMLEncode(request.querystring("a nvnamn"))%>"
SIZE="15">

<INPUT TYPE="text" NAME="losen" SIZE="15">
[img]loginbild.jpg[/img]
</td>
</tr>

<td width="70" bgcolor="#EFEFDE" align="left">Namn</td>
<td width="319" bgcolor="#EFEFDE" align="left">
<input type="text" name="autor" size="21" maxlength="15"> </td>
</tr>
<tr>
<td width="70" bgcolor="#EFEFDE" align="left">Mail</td>
<td width="319" bgcolor="#EFEFDE" align="left">
<input type="text" name="mail" size="34" maxlength="60"></td>
</tr>
<tr>
<td width="70" bgcolor="#EFEFDE" align="left">&Auml;mne</td>
<td width="319" bgcolor="#EFEFDE" align="left">
<input type="text" name="title" size="34" maxlength="80"></td>
</tr>

<tr>
<td width="394" bgcolor="#EFEFDE" colspan="2" align="left">
<textarea rows="6" name="message" cols="46"></textarea></td>
</tr>
<tr>
<td width="394" bgcolor="#EFEFDE" colspan="2" align="center">
<input type="submit" value="Spara" name="B1"></td>
</tr>
</table>[/


Verifieringen

<%


Set Connect = Server.CreateObject("ADODB.Connection")

Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("forum.mdb")


Set rs = connect.Execute("SELECT anvnamn, losen FROM postings WHERE anvnamn = '" & Inj (Request.Form("anvnamn")) & "' AND losen = '" & Inj (Request.Form("losen")) & "'")

If rs.eof then
Response.Write "Inloggningen misslyckades"
Else

rs.Close : Set rs = Nothing
Connect.Close : Set Connect = Nothing

Session("inloggad") = 1
Response.Redirect "new.asp"
End If

rs.Close : Set rs = Nothing
Connect.Close : Set Connect = Nothing

%>