medtag tekst fra formular

Jeg er ved at ændre lidt på min gæstebog, da der er nogle som spammer min gæstebog.
Jeg har så lavet et hvor der skal indtastes en kode, og det virker fint...
Problemet er at nu bliver "navn" og "besked" ikke taget med, så det kommer i gæstebogen.....

-----------------------------------------------------------------

første fil:
www.dlaursen.dk/guestbook.asp

<Form onSubmit="return Validate();" Action="check_besked_kode.asp" method="post" name="tilfoj" >
                           
<table border="0" cellspacing="0" cellpadding="5" align="center">
<tr>
<td>Navn:&nbsp;<input type="text" width="10" name="navn" maxlength="20"></td>
</tr>
<tr>
<td>Besked:</td>
</tr>
<tr>
<td><textarea rows="13" cols="35" name="besked"></textarea></td>
</tr>
<tr>
<td>Kode:&nbsp;<input type="text" name="kode"></td>
</tr>
<tr>
<td align="center"><Input type="submit"  name="submit" Value="Send"></td>
</tr>
</table>
</form>

-----------------------------------------------------------------
Fil nr. 2:

<%
navn = Request.Form("navn")
besked = Request.Form("besked")

%>

<%
kode = request.form("kode")


if kode<>"2468" then response.redirect "guestbook.asp"

session("kode")="ok"

Response.redirect "tilfoj_besked.asp"
%>

-----------------------------------------------------------------
Fil nr. 3:

<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("*******.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
%>

<%
navn=Request.Form("navn")
besked=Request.Form("besked")

sql="insert into guestbook (dato,navn,besked,sum) values ('"& now &"','"& navn &"','"& besked &"','"& 1 &"');"

Conn.execute(sql)
%>

<%
response.redirect "http://www.dlaursen.dk/show_message.asp"
%>