Microsoft JET Database Engine error '80040e10'

[jmurrayhead]

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:

<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?

 

[vbkris]

can u point out the line precisely?

as u know ASP also counts physically all the lines(including ASP code)...

Known is handfull, Unknown is worldfull

 

[BDC2]

Does this help?

http://www.adopenstatic.com/faq/80040e10.asp

BDC.

 

[shaddow]

I assume that this is your line with problems since it's an database engine error

Set rs = Conn.Execute("SELECT Key, AssignmentNO, BlockNO FROM Health ORDER BY Key ASC")

Try to see if your fields are the right ones. If health it's an Query then you must have some fields there that requires other values.

________
George, M
Searches(faq333-4906),Carts(faq333-4911)

 

[amorous]

Try this:

Set rs = Conn.Execute("SELECT [Key], AssignmentNO, BlockNO FROM Health ORDER BY [Key] ASC")


I guess key may be a reserver word.

-VJ

 

[jmurrayhead]

I guess a quick fix would be if anyone could show me how to use those drop down menu's that refresh data depending on what is selected in the main menu..like what they use on a lot of used car search sites. The code above simply posted a value to the page it was on to determine which drop down list to load.

Thanks