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.Open() 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