Insert Into virker ikke korrekt
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="AlignTDitt 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</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<!-- #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</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><!-- #include file="include_contact.asp" --></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")%> <%=RecSet("MessageEmail")%><br><%=RecSet("MessageT")%><br><br>
<%RecSet.MoveNext
Loop%>
<%End If%>
