Connecting Tech Pros Worldwide Help | Site Map
bytes > topic > asp classic > answers

Error '80040e10' when everything looks correct

Newbie
  
Join Date: Sep 2009
Posts: 16
#1: Sep 17 '09
Expand|Select|Wrap|Line Numbers
  1. <%
  2. Set rsSystemSpecs = Server.CreateObject("ADODB.Recordset")
  3.     rsSystemSpecs.ActiveConnection = MM_simplex_STRING
  4.     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'));"
  5.     rsSystemSpecs.CursorType = 0
  6.     rsSystemSpecs.CursorLocation = 2
  7.     rsSystemSpecs.LockType = 1
  8.     rsSystemSpecs.Open()
  9. %>
  10.              <% 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>") %>
  11.  
however once I put it up on the website I get this error
Quote:
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
Expand|Select|Wrap|Line Numbers
  1. <% Set rsSystemSpecs = Server.CreateObject("ADODB.Recordset")
  2.     rsSystemSpecs.ActiveConnection = MM_simplex_STRING
  3.     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'));"
  4.     rsSystemSpecs.CursorType = 0
  5.     rsSystemSpecs.CursorLocation = 2
  6.     rsSystemSpecs.LockType = 1
  7.     rsSystemSpecs.Open()
  8. %>              
  9.               <% 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>") %>
  10.  
They look exactly the same except for the table name and the variables however this one and 4 others are working just fine.
Newbie
  
Join Date: Sep 2009
Posts: 16
#2: Sep 17 '09

re: Error '80040e10' when everything looks correct

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
Expand|Select|Wrap|Line Numbers
  1. <tr>
  2. <td height='25' background='../images/menulinksback.gif'>
  3. <p>
  4. <img src='../images/featureicon.gif' width='10' height='10'>
  5. <a href='content.asp?id=<% =Request.QueryString("ID") %>&system=LUGGAGE' style='text-decoration:none'> Luggage</a>
  6. </p>
  7. </td>
  8. </tr>
  9.  
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
Expand|Select|Wrap|Line Numbers
  1. ElseIf Request.QueryString("SYSTEM") = "LUGGAGGE" Then
  2.     'See if one of the subsystems from the luggage page was choosen.
  3.     'build a different sql statement if so.
  4.     If Request.QueryString("subsystem") <> "" Then
  5.         luggagestatment = "SELECT * FROM TBLLUGGAGE WHERE PRODUCT_ID = " & Request.QueryString("subsystem")
  6.     Else
  7.         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'));"
  8.     End If 
  9.     Set rsSystemSpecs = Server.CreateObject("ADODB.Recordset")
  10.     rsSystemSpecs.ActiveConnection = MM_simplex_STRING
  11.     rsSystemSpecs.Source = luggagestatment
  12.     rsSystemSpecs.CursorType = 0
  13.     rsSystemSpecs.CursorLocation = 2
  14.     rsSystemSpecs.LockType = 1
  15.     rsSystemSpecs.Open()
  16.  
Then I write it out
Expand|Select|Wrap|Line Numbers
  1. ElseIf Request.QueryString("SYSTEM") = "LUGGAGE" Then
  2.         If Not rsSystemSpecs.EOF Then
  3.             If Request.QueryString ("SUBSYSTEM") <> "" Then
  4.                 'build a table to display system specs
  5.                 strbody = "<table cellpadding=0 cellspacing=0 bgcolor=#FFFFCD class=orangeborder width=""80%"">"
  6.                 strbody = strbody & "<tr>"
  7.                 strbody = strbody & "<td NOWRAP height=22 background=""images/t-systemspecs.gif"">&nbsp;</td>"
  8.                 strbody = strbody & "</tr>"
  9.                 strbody = strbody & "<tr>"
  10.                 strbody = strbody & "<td NOWRAP><p><font size=2><b>" & Model & ":&nbsp;&nbsp;</b>" & rsSystemSpecs("MODEL") & "</font></p></td>"
  11.                 strbody = strbody & "</tr>"
  12.                 strbody = strbody & "<tr>"
  13.                 strbody = strbody & "<td NOWRAP><p><font size=2><b>" & Classification & ":&nbsp;&nbsp;</b>" & rsSystemSpecs("CLASSIFICATION") & "</font></p></td>"
  14.                 strbody = strbody & "</tr>"
  15.                 strbody = strbody & "<tr>"
  16.                 strbody = strbody & "<td NOWRAP><p><font size=2><b>" & VNE & ":&nbsp;&nbsp;</b>" & rsSystemSpecs("VNE") & "</font></p></td>"
  17.                 strbody = strbody & "</tr>"
  18.                 strbody = strbody & "<tr>"
  19.                 strbody = strbody & "<td NOWRAP><p><font size=2><b>" & Payload & ":&nbsp;&nbsp;</b>" & rsSystemSpecs("PAYLOAD") & "</font></p></td>"
  20.                 strbody = strbody & "</tr>"
  21.                 strbody = strbody & "<tr>"
  22.                 strbody = strbody & "<td NOWRAP><p><font size=2><b>" & Dimensions & ":&nbsp;&nbsp;</b>" & rsSystemSpecs("DIMENSIONS") & "</font></p></td>"
  23.                 strbody = strbody & "</tr>"
  24.                 strbody = strbody & "<tr>"
  25.                 strbody = strbody & "<td NOWRAP><p><font size=2><b>" & Capacity & ":&nbsp;&nbsp;</b>" & rsSystemSpecs("CAPACITY") & "</font></p></td>"
  26.                 strbody = strbody & "</tr>"
  27.                 strbody = strbody & "<tr>"
  28.                 strbody = strbody & "<td NOWRAP><p><font size=2><b>" & HelipodWeight & ":&nbsp;&nbsp;</b>" & rsSystemSpecs("HELIPOD_WEIGHT") & "</font></p></td>"
  29.                 strbody = strbody & "</tr>"
  30.                 strbody = strbody & "<tr>"
  31.                 strbody = strbody & "<td NOWRAP><p><font size=2><b>" & HardwareWeight & ":&nbsp;&nbsp;</b>" & rsSystemSpecs("HARDWARE_WEIGHT") & "</font></p></td>"
  32.                 strbody = strbody & "</tr>"
  33.             If rsSystemSpecs("CERTIFICATION_STATUS") <> "" Then
  34.                 strbody = strbody & "<tr>"
  35.                 strbody = strbody & "<td NOWRAP><p><font size=2><b>" & Certification & ":&nbsp;&nbsp;</b>" & rsSystemSpecs("CERTIFICATION_STATUS") & "</font></p></td>"
  36.                 strbody = strbody & "</tr>"
  37.             End If
  38.                 strbody = strbody &  "</table><br><br>"
  39.             Else
  40.                 strbody = "<table cellpadding=4 cellspacing=4 bgcolor=#FFFFCD class=orangeborder>"
  41.                 Do While Not rsSystemSpecs.EOF 
  42.                     strbody = strbody & "<tr>"
  43.                     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>"
  44.                     strbody = strbody & "</tr>"
  45.                     rsSystemSpecs.MoveNext()
  46.                 Loop
  47.                 strbody = strbody &  "</table>"
  48.             End If 
  49.             rsSystemSpecs.Close()
  50.             Set rsSystemSpecs = Nothing
  51.         End If
  52.  
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
Newbie
  
Join Date: Sep 2009
Posts: 16
#3: Sep 17 '09

re: Error '80040e10' when everything looks correct

Alright nevermind
I solved it
I don't know what was wrong but I retyped the code and it works now...
jhardman's Avatar
Moderator
  
Join Date: Jan 2007
Location: logan, utah
Posts: 2,690
#4: Sep 18 '09

re: Error '80040e10' when everything looks correct

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
Reply

« previous question | next question »

Similar ASP / Active Server Pages bytes

/bytes/development

/bytes/it

/bytes/about

We are a network of experts and professionals in IT and software development that help one another with answers to tough questions and share insights. Get the best answers to your questions from over 226,295 network members.

dev questions:
algorithms | asp | asp.net | c/c++ | coldfusion | c# | flash | html/css | java | javascript |
mobile dev | .net | perl | php | python | ruby | software dev | vb.net | visual basic | xml
it questions:
access | apache | careers | db2 | iis | macosx | mysql | networking | oracle | postgresql | sql server | unix | windows

About Bytes | Copyright 1995-2009 BYTES. All rights Reserved