Error '80040e10' when everything looks correct

[koager]

<%
Set rsSystemSpecs = Server.CreateObject("ADODB.Recordset")
	rsSystemSpecs.ActiveConnection = MM_simplex_STRING
	rsSystemSpecs.Source = "SELECT TBLHELICOPTER.MANUFACTURER, TBLHELICOPTER.HELICOPTER, TBLLUGGAGE.* FROM TBLLUGGAGE INNER JOIN (TBLHELICOPTER INNER JOIN TBLPRODUCTTOHELI ON TBLHELICOPTER.HELICOPTERID = TBLPRODUCTTOHELI.HELICOPTERID) ON TBLLUGGAGE.PRODUCT_ID = TBLPRODUCTTOHELI.PRODUCTID WHERE (((TBLHELICOPTER.HELICOPTERID)=" + Replace(rsSystemSpecs__heliid, "'", "''") + " AND TBLPODUCTTOHELI.SYSTEM_TYPE = 'LUGGAGE'));"
	rsSystemSpecs.CursorType = 0
	rsSystemSpecs.CursorLocation = 2
	rsSystemSpecs.LockType = 1
	rsSystemSpecs.Open()
%>
			 <% If Not rsSystemSpecs.EOF Then Response.Write("<tr><td height='25' background='../images/menulinksback.gif'><p><img src='../images/featureicon.gif' width='10' height='10'>") %><a href='content.asp?id=<% =Request.QueryString("ID") %>&system=LUGGAGE' style='text-decoration:none'><% If Not rsSystemSpecs.EOF Then Response.Write(" Luggage</a></p></td></tr>") %>

however once I put it up on the website I get this error

Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters.
/english/content.asp, line 126

Line 126 is the rsSystemSpecs.O pen() line

I don't see what's wrong with it though
I wrote it like all my other items such as

<% Set rsSystemSpecs = Server.CreateObject("ADODB.Recordset")
	rsSystemSpecs.ActiveConnection = MM_simplex_STRING
	rsSystemSpecs.Source = "SELECT TBLHELICOPTER.MANUFACTURER, TBLHELICOPTER.HELICOPTER, TBLOILSYSTEMS.*  FROM TBLOILSYSTEMS INNER JOIN (TBLHELICOPTER INNER JOIN TBLPRODUCTTOHELI ON TBLHELICOPTER.HELICOPTERID = TBLPRODUCTTOHELI.HELICOPTERID) ON TBLOILSYSTEMS.PRODUCT_ID = TBLPRODUCTTOHELI.PRODUCTID  WHERE (((TBLHELICOPTER.HELICOPTERID)=" + Replace(rsSystemSpecs__heliid, "'", "''") + " AND TBLPRODUCTTOHELI.SYSTEM_TYPE = 'OIL'));"
	rsSystemSpecs.CursorType = 0
	rsSystemSpecs.CursorLocation = 2
	rsSystemSpecs.LockType = 1
	rsSystemSpecs.Open()
%>              
			  <% If Not rsSystemSpecs.EOF Then Response.Write("<tr><td height='25' background='../images/menulinksback.gif'><p><img src='../images/featureicon.gif' width='10' height='10'>") %><a href='content.asp?id=<% =Request.QueryString("ID") %>&system=OIL' style='text-decoration:none'><% If Not rsSystemSpecs.EOF Then Response.Write(" Oil Spill</a></p></td></tr>") %>

They look exactly the same except for the table name and the variables however this one and 4 others are working just fine.

[koager]

Another problem I seem to be having is after I delete the VBscript off, so no if statement, and just have it display the item

<tr>
<td height='25' background='../images/menulinksback.gif'>
<p>
<img src='../images/featureicon.gif' width='10' height='10'>
<a href='content.asp?id=<% =Request.QueryString("ID") %>&system=LUGGAGE' style='text-decoration:none'> Luggage</a>
</p>
</td>
</tr>

When I click into it, it's not pulling any data from the access database

It's suppose to do this:
First I open it

ElseIf Request.QueryString("SYSTEM") = "LUGGAGGE" Then
	'See if one of the subsystems from the luggage page was choosen.
	'build a different sql statement if so.
	If Request.QueryString("subsystem") <> "" Then
		luggagestatment = "SELECT * FROM TBLLUGGAGE WHERE PRODUCT_ID = " & Request.QueryString("subsystem")
	Else
		luggagestatment = "SELECT TBLHELICOPTER.MANUFACTURER, TBLHELICOPTER.HELICOPTER, TBLLUGGAGE.* FROM TBLLUGGAGE INNER JOIN (TBLHELICOPTER INNER JOIN TBLPRODUCTTOHELI ON TBLHELICOPTER.HELICOPTERID = TBLPRODUCTTOHELI.HELICOPTERID) ON TBLLUGGAGE.PRODUCT_ID = TBLPRODUCTTOHELI.PRODUCTID WHERE (((TBLHELICOPTER.HELICOPTERID)=" + Replace(rsSystemSpecs__heliid, "'", "''") + " AND TBLPODUCTTOHELI.SYSTEM_TYPE = 'LUGGAGE'));"
	End If 
	Set rsSystemSpecs = Server.CreateObject("ADODB.Recordset")
	rsSystemSpecs.ActiveConnection = MM_simplex_STRING
	rsSystemSpecs.Source = luggagestatment
	rsSystemSpecs.CursorType = 0
	rsSystemSpecs.CursorLocation = 2
	rsSystemSpecs.LockType = 1
	rsSystemSpecs.Open()

Then I write it out

ElseIf Request.QueryString("SYSTEM") = "LUGGAGE" Then
		If Not rsSystemSpecs.EOF Then
			If Request.QueryString ("SUBSYSTEM") <> "" Then
				'build a table to display system specs
				strbody = "<table cellpadding=0 cellspacing=0 bgcolor=#FFFFCD class=orangeborder width=""80%"">"
				strbody = strbody & "<tr>"
				strbody = strbody & "<td NOWRAP height=22 background=""images/t-systemspecs.gif"">&nbsp;</td>"
				strbody = strbody & "</tr>"
				strbody = strbody & "<tr>"
				strbody = strbody & "<td NOWRAP><p><font size=2><b>" & Model & ":&nbsp;&nbsp;</b>" & rsSystemSpecs("MODEL") & "</font></p></td>"
				strbody = strbody & "</tr>"
				strbody = strbody & "<tr>"
				strbody = strbody & "<td NOWRAP><p><font size=2><b>" & Classification & ":&nbsp;&nbsp;</b>" & rsSystemSpecs("CLASSIFICATION") & "</font></p></td>"
				strbody = strbody & "</tr>"
				strbody = strbody & "<tr>"
				strbody = strbody & "<td NOWRAP><p><font size=2><b>" & VNE & ":&nbsp;&nbsp;</b>" & rsSystemSpecs("VNE") & "</font></p></td>"
				strbody = strbody & "</tr>"
				strbody = strbody & "<tr>"
				strbody = strbody & "<td NOWRAP><p><font size=2><b>" & Payload & ":&nbsp;&nbsp;</b>" & rsSystemSpecs("PAYLOAD") & "</font></p></td>"
				strbody = strbody & "</tr>"
				strbody = strbody & "<tr>"
				strbody = strbody & "<td NOWRAP><p><font size=2><b>" & Dimensions & ":&nbsp;&nbsp;</b>" & rsSystemSpecs("DIMENSIONS") & "</font></p></td>"
				strbody = strbody & "</tr>"
				strbody = strbody & "<tr>"
				strbody = strbody & "<td NOWRAP><p><font size=2><b>" & Capacity & ":&nbsp;&nbsp;</b>" & rsSystemSpecs("CAPACITY") & "</font></p></td>"
				strbody = strbody & "</tr>"
				strbody = strbody & "<tr>"
				strbody = strbody & "<td NOWRAP><p><font size=2><b>" & HelipodWeight & ":&nbsp;&nbsp;</b>" & rsSystemSpecs("HELIPOD_WEIGHT") & "</font></p></td>"
				strbody = strbody & "</tr>"
				strbody = strbody & "<tr>"
				strbody = strbody & "<td NOWRAP><p><font size=2><b>" & HardwareWeight & ":&nbsp;&nbsp;</b>" & rsSystemSpecs("HARDWARE_WEIGHT") & "</font></p></td>"
				strbody = strbody & "</tr>"
			If rsSystemSpecs("CERTIFICATION_STATUS") <> "" Then
				strbody = strbody & "<tr>"
				strbody = strbody & "<td NOWRAP><p><font size=2><b>" & Certification & ":&nbsp;&nbsp;</b>" & rsSystemSpecs("CERTIFICATION_STATUS") & "</font></p></td>"
				strbody = strbody & "</tr>"
			End If
				strbody = strbody &  "</table><br><br>"
			Else
				strbody = "<table cellpadding=4 cellspacing=4 bgcolor=#FFFFCD class=orangeborder>"
				Do While Not rsSystemSpecs.EOF 
					strbody = strbody & "<tr>"
					strbody = strbody & "<td NOWRAP><p><font size=2><a href=""content.asp?id=" & Request.QueryString("id") & "&system=LUGGAGE&subsystem=" & rsSystemSpecs("PRODUCT_ID") & """>Model " & rsSystemSpecs("MODEL") & "</a></font></p></td>"
					strbody = strbody & "</tr>"
					rsSystemSpecs.MoveNext()
				Loop
				strbody = strbody &  "</table>"
			End If 
			rsSystemSpecs.Close()
			Set rsSystemSpecs = Nothing
		End If

I know that statement is spelled incorrectly but that was how the person who originally coded it spelled it and I just copied it over without noticing. It shouldn't matter though since its a variable name and as long as I misspell it correctly in the other instances it should be fine.

My global varirables (Model, VNE, ect) are DIM'd on a separate page but that should be fine

[koager]

Alright nevermind
I solved it
I don't know what was wrong but I retyped the code and it works now...

[jhardman]

I was going to say the most likely cause is a typo in the query, but I see you got it solved. Glad you got it.

Jared