I get this error message:
* Error Type:
Microsoft JET Database Engine (0x80040E10)
No value given for one or more required parameters.
/status/ConceptList.asp, line 94
Here is the code:
'Get key & command
If Request.QueryString("id"
.Count > 0 Then
id=Request.QueryString("id"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
Session("id"
= id
dbwhere = "[ProjectID]=" & id
Else
id = Session("id"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
End If
' Open Connection to the database
set conn = Server.CreateObject("ADODB.Connection"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("/status/db/projects.mdb"
& ";User ID=;Password=;"
' Build Query
strsql = "select * from [Concept]"
If dbwhere <> "" Then
strsql = strsql & " WHERE " & dbwhere
End If
if OrderBy <> "" then
strsql = strsql & " ORDER BY [" & OrderBy & "] " & Session("OrderType"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
end if
'response.write strsql
set rs = Server.CreateObject("ADODB.Recordset"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
rs.Open strsql, conn, 1, 2 '<-----line 94
* Error Type:
Microsoft JET Database Engine (0x80040E10)
No value given for one or more required parameters.
/status/ConceptList.asp, line 94
Here is the code:
'Get key & command
If Request.QueryString("id"
id=Request.QueryString("id"
Session("id"
dbwhere = "[ProjectID]=" & id
Else
id = Session("id"
End If
' Open Connection to the database
set conn = Server.CreateObject("ADODB.Connection"
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("/status/db/projects.mdb"
' Build Query
strsql = "select * from [Concept]"
If dbwhere <> "" Then
strsql = strsql & " WHERE " & dbwhere
End If
if OrderBy <> "" then
strsql = strsql & " ORDER BY [" & OrderBy & "] " & Session("OrderType"
end if
'response.write strsql
set rs = Server.CreateObject("ADODB.Recordset"
rs.Open strsql, conn, 1, 2 '<-----line 94