aspfantom
12-08-2004, 03:57 PM
I'm getting a
"No value given for one or more required parameters."
Any idea what this might be?
The browser puts line 14 as the problem which is:
"rs.open sqlstmt, conn" - see below
<%
Set Conn = Server.CreateObject("ADODB.Connection")
FilePath = Server.MapPath("Taxes2004.mdb")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FilePath & ";"
set rs=Server.CreateObject("adodb.Recordset")
sqlstmt = "SELECT DatabaseFields.SSN, DatabaseFields.FirstName, DatabaseFields.LastName, DatabaseFields.Address, DatabaseFields.State, DatabaseFields.City, DatabaseFields.EmailAddress, DatabaseFields.HomePhone, DatabaseFields.WorkPhone, DatabaseFields.WorkExtension, DatabaseFields.PostalCode, DatabaseFields.MobilePhone, DatabaseFields.Birthdate, DatabaseFields.Occupation, DatabaseFields.FilingStatus, Totals.SW2Total, Totals.NSW2Total, Totals.PayoutTotal, Totals.DepRefNumber, Totals.DepRefName, Totals.DepXFee, Totals.DepXChildSSN"
sqlstmt = sqlstmt & " FROM DatabaseFields INNER JOIN Totals ON (DatabaseFields.SSN = Totals.SSN)"
rs.open sqlstmt, conn
If rs.eof then
response.write "<center>There are no records in the database"
response.write "<br>Please check back later</center>"
Else
%>
"No value given for one or more required parameters."
Any idea what this might be?
The browser puts line 14 as the problem which is:
"rs.open sqlstmt, conn" - see below
<%
Set Conn = Server.CreateObject("ADODB.Connection")
FilePath = Server.MapPath("Taxes2004.mdb")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FilePath & ";"
set rs=Server.CreateObject("adodb.Recordset")
sqlstmt = "SELECT DatabaseFields.SSN, DatabaseFields.FirstName, DatabaseFields.LastName, DatabaseFields.Address, DatabaseFields.State, DatabaseFields.City, DatabaseFields.EmailAddress, DatabaseFields.HomePhone, DatabaseFields.WorkPhone, DatabaseFields.WorkExtension, DatabaseFields.PostalCode, DatabaseFields.MobilePhone, DatabaseFields.Birthdate, DatabaseFields.Occupation, DatabaseFields.FilingStatus, Totals.SW2Total, Totals.NSW2Total, Totals.PayoutTotal, Totals.DepRefNumber, Totals.DepRefName, Totals.DepXFee, Totals.DepXChildSSN"
sqlstmt = sqlstmt & " FROM DatabaseFields INNER JOIN Totals ON (DatabaseFields.SSN = Totals.SSN)"
rs.open sqlstmt, conn
If rs.eof then
response.write "<center>There are no records in the database"
response.write "<br>Please check back later</center>"
Else
%>