Insert Into (fejl)

Hej !-)

Jeg har 2 filer. Den ene heder "INCLUDE_CONTACT.ASP" og den anden "INDEX.ASP"

Som der er nu er <%If Request.Querystring("Do")= "Send" Then%> i INDEX.ASP filen, men jeg vil gerne have det i INCLUDE_CONTACT.ASP.

Grunden til dette er, at jeg gerne vil have alt som har med "Contact" at gøre ligger i den filen og ligeledes med alt andet som jeg skal foretage mig fremover - bla gästebog osv.

Hvordan gør jeg dette? Jeg får hele tiden fejlmeddelelse men det virker når jeg (nedenstående) lægger det i "INDEX.ASP".
Hvordan kan det være? Er det noget som jeg mangler at skrive?

- - INCLUDE_CONTACT.ASP - -
<form name="Send" method="post" action="index.asp?Do=Send">
<table width="280" border="0" cellspacing="2" cellpadding="2" class="BorderGra">
<tr>
    <td widht="280" bgcolor="<%=Request.Cookies("bgcolor")%>" class="DivSpacing"><font class="FontColorWhite"><b>Kontakta oss?</b></font></td>
</tr>
<tr>
    <td width="280" height="220" class="AlignT"><div class="DivTopSpacing">Ditt namn<br><input type="text" name="MessageName" size="35" class="BorderGra"><br>Din email<br><input type="text" name="MessageEmail" size="35" class="BorderGra"><br>Din fråga<br><textarea name="MessageT" rows="9" cols="34" class="BorderGra"></textarea><br><br><input type="image" src="pictures/ButtonSend.gif" class="BorderGra" onmouseover="this.style.backgroundColor='<%=Request.Cookies("bgcolor")%>'" onmouseout="this.style.backgroundColor=''"></div></td>
</tr>
</table>
</form>

- - INDEX.ASP - -
<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & db%>

<%If Request.Querystring("Do")="" Then%>

<form name="Logon" method="post" action="index.asp?Do=Logon">
<table width="800" height="60" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" class="BorderBlack">
<tr>
    <td width="800" height="60"><div class="DivButton_Color"><a href="index.asp?background=blue"><img src="Pictures/Button_ColorBlue.gif" border="0"></a>&nbsp;<a href="index.asp?background=green"><img src="Pictures/Button_ColorGreen.gif" border="0"></a>&nbsp;<a href="index.asp?background=red"><img src="Pictures/Button_ColorRed.gif" border="0"></a>&nbsp;<a href="index.asp?background=purple"><img src="Pictures/Button_ColorPurple.gif" border="0"></a>&nbsp;<a href="index.asp?background=gray"><img src="Pictures/Button_ColorGray.gif" border="0"></a></div><div class="DivButton"><!-- #include file="include_button.asp" --></div></td>
</tr>
</table>
<br>
<table width="800" height="500" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" class="BorderBlack">
<tr>
    <td width="800" height="500"><div class="DivPicture1"><img src="pictures/picture1.jpg"></div><div class="DivPicture2"><img src="pictures/picture2.jpg"></div><div class="DivPicture3"><img src="pictures/picture3.jpg"></div><div class="DivLeft"><!-- #include file="include_nextmatch.asp" --><br><!-- #include file="include_training.asp" --><br><!-- #include file="include_logon.asp" --></div><div class="DivMiddle"><!-- #include file="include_calender.asp" --></div><div class="DivRight"><!-- #include file="include_matchprotocol.asp" --><br><!-- #include file="include_guestbook.asp" --></div></td>
</tr>
</table>
</form>

<%End If%>

<%If Request.Querystring("Do")="About" Then%>
<table width="800" height="60" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" class="BorderBlack">
<tr>
    <td width="800" height="60"><div class="DivButton_Color"><a href="index.asp?background=blue"><img src="Pictures/Button_ColorBlue.gif" border="0"></a>&nbsp;<a href="index.asp?background=green"><img src="Pictures/Button_ColorGreen.gif" border="0"></a>&nbsp;<a href="index.asp?background=red"><img src="Pictures/Button_ColorRed.gif" border="0"></a>&nbsp;<a href="index.asp?background=purple"><img src="Pictures/Button_ColorPurple.gif" border="0"></a>&nbsp;<a href="index.asp?background=gray"><img src="Pictures/Button_ColorGray.gif" border="0"></a></div><div class="DivButton"><!-- #include file="include_button.asp" --></div></td>
</tr>
</table>
<br>
<table width="800" height="500" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" class="BorderBlack">
<tr>
    <td width="800" height="500"><div class="DivPicture1"><img src="pictures/picture1.jpg"></div><div class="DivPicture2"><img src="pictures/picture2.jpg"></div><div class="DivPicture3"><img src="pictures/picture3.jpg"></div><div class="DivLeft"><!-- #include file="include_nextmatch.asp" --><br><!-- #include file="include_training.asp" --><br><!-- #include file="include_logon.asp" --></div><div class="DivMiddle"><!-- #include file="include_calender.asp" --></div><div class="DivRight"><!-- #include file="include_about.asp" --><br><!-- #include file="include_contact.asp" --></div></td>
</tr>
</table>
<%End If%>

<%If Request.Querystring("Do")= "Send" Then
MessageName    = Request.Form("MessageName")
MessageEmail    = Request.Form("MessageEmail")
MessageT    = Request.Form("MessageT")

Conn.Execute("Insert Into Message(MessageName, MessageEmail, MessageT) Values('"& MessageName &"','"& MessageEmail &"','"& MessageT &"')")

Response.Redirect "index.asp?Do=Ready"
End If%>

<%If Request.Querystring("Do")= "Ready" Then

Set RecSet=Conn.Execute("Select * From Message")

Do Until RecSet.EOF%>
<%=RecSet("MessageName")%>&nbsp;<%=RecSet("MessageEmail")%><br><%=RecSet("MessageT")%><br><br>
<%RecSet.MoveNext
Loop%>
<%End If%>