Gemme i database fra form
Nogen der kan fortælle mig, hvorfor den ikke vil gemme - sql strengen er testet og den er der ikke fejl med - så det må være selve formen???? Det skal lige tilføjes - den fremkommer ikke med nogen fejl - den gemmer bare ikke i databasen<!-- #include file="../Administration/subrutiner.asp" -->
<html>
<!-- Minus AutoDato -->
<title>Tilføj besked i gæstebog</title>
<head>
<meta name="Generator" content="Stone's WebWriter 4">
<LINK HREF="../Stylesheets/Stylesheet.css" REL="stylesheet" TYPE="text/css">
</head>
<body>
<table width="90%">
<tr>
<td width="95%" align="center"><h1>Tilføj ny besked i Gæstebogen</h1></td>
</tr>
</table>
<FORM METHOD="POST">
<INPUT TYPE="hidden" NAME="dato" SIZE="50" VALUE="<%=Now()%>"
<table border="0">
<tr>
<td width="50%">
<TABLE BORDER="2" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#C0C0C0" BORDERCOLORDARK="#C0C0C0" BORDERCOLORLIGHT="#C0C0C0">
<TR>
<TD valign="middle" class="H4"><b>Navn</b></TD>
<TD><INPUT TYPE="text" NAME="navn" SIZE="50" VALUE="<% Response.WRite(snavn) %>"></TD>
</TR>
<TR>
<TD valign="middle" class="H4"><b>Email</b></TD>
<TD><INPUT TYPE="text" NAME="email" SIZE="50" VALUE="<% Response.WRite(semail) %>"></TD>
</TR>
<TR>
<TD valign="middle" class="H4"><b>Hjemmeside</b></TD>
<TD><INPUT TYPE="text" NAME="hpadr" SIZE="50" VALUE="http://<% Response.WRite(shpadr) %>"></TD>
</TR>
<TR>
<TD valign="middle" class="H4"><b>Overskrift</b></TD>
<TD><INPUT TYPE="text" NAME="overskrift" SIZE="50" VALUE="<% Response.WRite(soverskrift) %>"></TD>
</TR>
<TR>
<TD valign="top" class="H4"><b>Besked</b></TD>
<td><textarea name="besked" rows="20" cols="53"><% Response.WRite(sbesked) %></textarea></td>
</TR>
</TABLE>
<BR><BR>
<INPUT TYPE="submit" name="submit" VALUE="Gem"> <INPUT TYPE="reset" Value="Fortryd"><BR>
</FORM>
</td>
</tr>
</table>
<%
response.write "<font color=""#FF0000"">HJÆLP<br>"
Response.Write "Submit? '" & Request.Form("submit") & "'"
If Request.Form("submit") = "Gem" Then
opencon
set rs=Server.CreateObject("ADODB.recordset")
strSQL = "INSERT INTO Guestbook (navn, email, hpadr, overskrift, besked) VALUES('" & Request.Form("navn") & "', '" & Request.Form("email") & "', '" & Request.Form("hpadr") & "', '" & Request.Form("overskrift") & "', '" & Request.Form("besked") & "')"
response.write "sqlstmt="&strSQL&"<br>"
Set rs = Conn.Execute(strSQL)
'lukker pænt igen
rs.Close
set rs = Nothing
'redirect eventuelt til side med bekræftelse af opdatering
end if
%>
</body>
</html>
