I am getting this error:
Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters.
/assignments/management/del.asp, line 37
Here is the code I wrote:
Code:
<form name="initialselect" method="POST" action="del.asp">
<select name="Class">
<option value="HealthCare">Emergency Health Care</option>
<option value="Health">Health</option>
<option value="PhysEd">Physical Education</option>
</select>
<input type="submit" value="Load List"><input type="reset">
</form>
<p>
<% if request.form("Class") = "HealthCare" then
response.write ("<form method='POST' action='delsql.asp' name='healthcare'>")
Set rs = Conn.Execute("SELECT Key, AssignmentNO, BlockNO FROM HealthCare ORDER BY Key ASC")
if rs.eof then
Response.write "No records returned."
else
Response.write ("<Select name='assignments'>")
Response.write ("<option></option>")
do until rs.eof
response.write ("<option value='" & rs("Key") & "'>" & rs("AssignmentNO") & "/" & rs("BlockNO") & "</option>")
rs.movenext
loop
response.write ("</select>")
end if
response.write ("<input type='submit' value='Delete'>")
response.write ("</form>")
else
if request.form("Class") = "Health" then
response.write ("<form method='POST' action='delsql.asp' name='health'>")
Set rs = Conn.Execute("SELECT Key, AssignmentNO, BlockNO FROM Health ORDER BY Key ASC")
if rs.eof then
Response.write "No records returned."
else
Response.write ("<Select name='assignments'>")
Response.write ("<option></option>")
do until rs.eof
response.write ("<option value='" & rs("Key") & "'>" & rs("AssignmentNO") & "/" & rs("BlockNO") & "</option>")
rs.movenext
loop
response.write ("</select>")
end if
response.write ("<input type='submit' value='Delete'>")
response.write ("</form>")
else
if request.form("Class") = "PhysEd" then
response.write ("<form method='POST' action='delsql.asp' name='physed'>")
Set rs = Conn.Execute("SELECT Key, AssignmentNO, BlockNO FROM PhysEd ORDER BY Key ASC")
if rs.eof then
Response.write "No records returned."
else
Response.write ("<Select name='assignments'>")
Response.write ("<option></option>")
do until rs.eof
response.write ("<option value='" & rs("Key") & "'>" & rs("AssignmentNO") & "/" & rs("BlockNO") & "</option>")
rs.movenext
loop
response.write ("</select>")
end if
response.write ("<input type='submit' value='Delete'>")
response.write ("</form>")
end if
end if
end if
%>
The database connection is an include. The line number that produces the error messages changes depending on what option I select from the drop down list. It's always the line that has the execute statement: (Set rs = Conn.Execute) Any ideas what's wrong?
dBforums
>
Microsoft JET Database Engine error '80040e10'
06-09-04, 20:06
Linear Mode
