gemme checkboks' værdi i databasen
HejsaJeg har en form med en del input felter - én af de felter er en checkboks felt (fedtfattig). Uanset hvad jeg gør i sql strengen så kan jeg ikke gemme, forsøger jeg at gemme den værdi fedtfattig får - hvad skal jeg gøre hvor?
<!-- #include file="../../protectadm.inc" -->
<!-- #include file="../../subrutiner.asp" -->
<html>
<!-- Minus AutoDato -->
<title>Tilføj Opskrift</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 Opskrift</h1></td>
</tr>
</table>
<FORM METHOD="POST" action="tilfoejopskrifter.asp">
<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>Overskrift</b></TD>
<TD><INPUT TYPE="text" NAME="overskrift" SIZE="50" VALUE="<% Response.WRite(soverskrift) %>"></TD>
</TR>
<TR>
<TD valign="middle" class="H4"><b>Kategori:</b></TD>
<TD><INPUT TYPE="text" NAME="kategori" SIZE="50" VALUE="<% Response.WRite(skategori) %>"></TD>
</TR>
<TR>
<TD valign="middle" class="H4"><b>Antal:</b></TD>
<TD><INPUT TYPE="text" NAME="antal" SIZE="50" VALUE="<% Response.WRite(santal) %>"></TD>
</TR>
<TR>
<TD valign="middle" class="H4"><b>Tilberedningstid:</b></TD>
<TD><INPUT TYPE="text" NAME="tilberedningstid" SIZE="50" VALUE="<% Response.WRite(stilberedningstid) %>"></TD>
</TR>
<TR>
<TD valign="middle" class="H4"><b>Årstid:</b></TD>
<TD><INPUT TYPE="text" NAME="aarstid" SIZE="50" VALUE="<% Response.WRite(saarstid) %>"></TD>
</TR>
<TR>
<TD valign="middle" class="H4"><b>Fedtfattig:</b></TD>
<TD><INPUT TYPE="checkbox" NAME="fedtfattig" VALUE=""></TD>
</TR>
<TR>
<TD valign="middle" class="H4"><b>Link:</b></TD>
<TD><INPUT TYPE="text" NAME="link" SIZE="50" VALUE="<% Response.WRite(slink) %>"></TD>
</TR>
<TR>
<TD valign="top" class="H4"><b>Ingredienser:</b></TD>
<td><textarea name="ingredienser" rows="20" cols="53"><% Response.WRite(singredienser) %></textarea></td>
</TR>
<TR>
<TD valign="top" class="H4"><b>Fremgangsmåde:</b></TD>
<td><textarea name="fremgangsmaade" rows="20" cols="53"><% Response.WRite(sfremgangsmaade) %></textarea></td>
</TR>
</TABLE>
<BR><BR>
<INPUT TYPE="submit" name="submit" VALUE="Gem"> <INPUT TYPE="reset" Value="Fortryd"><BR>
</FORM>
</td>
</tr>
</table>
<%
If Request.Form("submit") = "Gem" Then
opencon
set rs=Server.CreateObject("ADODB.recordset")
strSQL = "INSERT INTO Opskrift (overskrift, kategori, antal, tilberedningstid, aarstid, link, ingredienser, fremgangsmaade) VALUES('" & Request.Form("overskrift") & "', '" & Request.Form("kategori") & "', '" & Request.Form("antal") & "', '" & Request.Form("tilberedningstid") & "', '" & Request.Form("aarstid") & "', '" & Request.Form("link") & "', '" & Request.Form("ingredienser") & "', '" & Request.Form("fremgangsmaade") & "')"
Conn.Execute(strSQL)
end if
Conn.Close
Set Conn = Nothing
Set strSQL = nothing
'redirect eventuelt til side med bekræftelse af opdatering
response.redirect "opskrifteroversigt.asp"
%>
</body>
</html>
