|
Hi there,
Can anybody help me to fix this problem?
I received this error message:
Error Type: Microsoft OLE DB Provider for ODBC Drivers
(0x80040E10) [Microsoft][ODBC Microsoft Access Driver] Too few parameters.
Expected 1. /auction/asp/bid.asp, line 3
Here is my code:
SQLstr="Select name, email from register where
userID='"&bidername&"'" rs.Open
SQLstr,conn,1,3 SenderEmail = " mailto:mail@auctionssolution.com - mail@auctionssolution.com " Subject = "Bid
Information" Recipient = rs("email") Body = "Dear
" & rs("username") _ &nbs p;
& vbCRLF & "Thanks for placing your bid!" _ &nbs p;
& vbCRLF & vbCRLF & "Your bid details:" _ &nbs p;
& vbCRLF & "Product : " & Session("pme") _ &nbs p;
& vbCRLF & "Your bid : $" & bidprice _ &nbs p;
& vbCRLF & vbCRLF & "Good luck and remember to go back to
the appropriate bid page, because someone may place a higher bid price
than you!" _ &nbs p;
& vbCRLF & vbCRLF & "See you online!" _ &nbs p;
& vbCRLF & "mail" _ &nbs p;
& vbCRLF & " mailto:mail@auctionssolution.com - mail@auctionssolution.com " Set JMail =
Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress =
"mail.optonline.net" JMail.Sender = Senderemail
JMail.Subject = Subject JMail.AddRecipient
Recipient JMail.Body = Body JMail.Priority =
3 JMail.Execute '40 rs.close
SQLstr= "SELECT bidprice FROM biding WHERE
itnumber="&proID SQLstr=SQLstr& " ORDER BY
bidprice" rs.Open SQLstr,conn,1,3 if Not
rs.EOF then
if count >= qty then &nbs p; rs.MoveLast &nbs p; for i = 1 to
qty &nbs p;
rs.MovePrevious &nbs p;
if Not rs.BOF
then &nbs p;
&nbs p;
current=rs("bidprice") &nbs p; &nbs p; &nbs p;
&nbs p;
end if &nbs p;
if rs.bof then exit for &nbs p; next end if
end if rs.close if count > qty
then SQLstr="Select name, email from register where
userID='"&lostuser&"'" rs.Open
SQLstr,conn,1,3 SenderEmail = " mailto:mail@auctionssolution.com - mail@auctionssolution.com " Subject = "Bid
Information" Recipient = rs("email") Body = "Dear
" & rs("username") _ &nbs p;
& vbCRLF & "You have been outbidded by another user: " _ &nbs p;
& vbCRLF & "Product : " & Session("pme") _ &nbs p;
& vbCRLF & "The Currenely Bid Price Is : $" &
Lowprice _ &nbs p; &
vbCRLF & vbCRLF & "Good Luck On Your Auction Activity!"
_ &nbs p;
& vbCRLF & vbCRLF & "See you online!" _ &n
|