Mål skema vil ikke gemme data
Jeg sidder og er ved at lave en blog, hvor brugeren i sin profil kan skrive mål og vægt, men når jeg fra mal.asp sender oplysningerne kommer min gemme.asp ud med denne fejl:Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters.
gemme.asp, line 26
line 26 con.Execute sql_insert
mal.asp
<form method="POST" action="gemme.asp">
<input type="hidden" name="Mode" value="profil">
<input type="hidden" name="Id" value="<%= Request("Id") %>">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="420">
<tr>
<td width="81"><FONT FACE="VERDANA" SIZE="2">Højde:</FONT></td>
<td width="465"><input type="text" name="hojde" size="44" maxlength="255"></td>
</tr>
<tr>
<td width="81"><FONT FACE="VERDANA" SIZE="2">Bryst:</FONT></td>
<td width="465"><input type="text" name="bryst" size="44" maxlength="255"></td>
</tr>
<tr>
<td width="81"><FONT FACE="VERDANA" SIZE="2">Talje:</FONT></td>
<td width="465"><input type="text" name="talje" size="44" maxlength="255"></td>
</tr>
<tr>
<td width="81"><FONT FACE="VERDANA" SIZE="2">Hofte:</FONT></td>
<td width="465"><input type="text" name="hofte" size="44" maxlength="255"></td>
</tr>
<tr>
<td width="81"><FONT FACE="VERDANA" SIZE="2">Overarm:</FONT></td>
<td width="465"><input type="text" name="overarm" size="44" maxlength="255"></td>
</tr>
<tr>
<td width="81"><FONT FACE="VERDANA" SIZE="2">Vægt:</FONT></td>
<td width="465"><input type="text" name="vaegt" size="44" maxlength="255"></td>
</tr>
</table>
</center>
</div>
<p align="center"><input type="submit" value="Gem Kommentar" name="Send" class="button"></p>
</p>
</form>
------------
gemme.asp
<%
' Declaring variables
Dim hojde, bryst, talje, hofte, overarm, vaegt, data_source, con, sql_insert
' A Function to check if some field entered by user is empty
Function ChkString(string)
If string = "" Then string = " "
ChkString = Replace(string, "'", "''")
End Function
' Receiving values from Form
hojde = ChkString(Request.Form("hojde"))
bryst = ChkString(Request.Form("bryst"))
talje = ChkString(Request.Form("talje"))
hofte = ChkString(Request.Form("hofte"))
overarm = ChkString(Request.Form("overarm"))
vaegt = ChkString(Request.Form("vaegt"))
Id = ChkString(Request.Form("Id"))
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("dagbog.mdb")
sql_insert = "insert into profil (Id, hojde, bryst, talje, hofte, overarm, vaegt, dato) values (" & Id & ", '" & hojde & "', '" & bryst & "', '" & talje & "', '" & hofte & "', '" & overarm & "', Date(), '" & vaegt & "')"
' Creating Connection Object and opening the database
Set con = Server.CreateObject("ADODB.Connection")
con.Open data_source
con.Execute sql_insert
' Done. Close the connection
con.Close
Set con = Nothing
Response.Write "Tak for din kommentar."
%>
</body>
</html>
----------
skriv.asp (siden brugeren sendes fra til mal.asp)
<%@ Language=VBScript %>
<!--#INCLUDE FILE ="code_lib.asp" -->
<%
SessionTjek()
%>
<html>
<head>
<title> Skriv i din dagbog!. </title>
</head>
<body><br><br>
<form action="gem.asp" METHOD="POST" name="tilmeld">
<TABLE>
<input type="hidden" name="mode" VALUE="1">
<input type="hidden" name="bruger_id" VALUE="<%= Session("mail_login") %>">
<%
response.write("<input type='hidden' name='dato' VALUE='"& now &"'>")
%>
<td height="33"></td><td height="33"></td>
<TR>
<TD height="29">
<B>
<font size = '2' face='Verdana'>Dagbog for:
</B>
</TD>
<TD height="29">
<font size = '2' face='Verdana'><%=username(user_id)%>
</TD>
</TR>
<TR>
<TD height="29">
<B>
<font size = '2' face='Verdana'>Overskrift:
</B>
</TD>
<TD height="29">
<input type="text" name="overskrift">
</TD>
</TR>
<TR>
<TD height="29" valign="top">
<B>
<font size = '2' face='Verdana'>Tekst:
</B>
</TD>
<TD height="29">
<textarea COLS="35" ROWS="10" name="tekst"></textarea>
</TD>
</TR>
</table>
<table width="452">
<TR>
<TD VALIGN="TOP" height="27" width="265">
</TD>
<TD ALIGN="RIGHT" height="27" width="173">
<input type="submit" value="-- skriv i dagbog --" tabindex="2">
</TD>
</TR>
</form>
</TABLE>
<table width="452">
<TR>
<TD VALIGN="TOP" height="27" width="265">
<ul>
<li><A href="logoff.asp"><FONT FACE="VERDANA" SIZE="2">Log af</FONT></A></li>
<li><a href='mal.asp?id=<%=username(user_id)%>'>Kropsmål</li>
</ul>
</TD>
<TD ALIGN="RIGHT" height="27" width="173">
</TD>
</TR>
</form>
</TABLE>
</body>
</html>
i db'en i tabellen profil er der følgende felter
Pid Id hojde bryst talje hofte overarm vaegt dato
