Jmail error message

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   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  = "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 & "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  = "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