dsonson23
06-05-2005, 02:18 AM
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 2
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") _
& vbCRLF & "Thanks for placing your bid!" _
& vbCRLF & vbCRLF & "Your bid details:" _
& vbCRLF & "Product : " & Session("pme") _
& vbCRLF & "Your bid : $" & bidprice _
& vbCRLF & vbCRLF & "Good luck and remember to go back to the appropriate bid page, because someone may place a higher bid price than you!" _
& vbCRLF & vbCRLF & "See you online!" _
& vbCRLF & "mail" _
& 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
rs.MoveLast
for i = 1 to qty
rs.MovePrevious
if Not rs.BOF then
current=rs("bidprice")
end if
if rs.bof then exit for
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") _
& vbCRLF & "You have been outbidded by another user: " _
& vbCRLF & "Product : " & Session("pme") _
& vbCRLF & "The Currenely Bid Price Is : $" & Lowprice _
& vbCRLF & vbCRLF & "Good Luck On Your Auction Activity!" _
& vbCRLF & vbCRLF & "See you online!" _
& vbCRLF & "mail" _
& 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
end if
end sub
function maxprice()
SQLstr= "SELECT * FROM biding WHERE itnumber="&proID
SQLstr=SQLstr& " ORDER BY bidprice DESC"
rs.Open SQLstr,conn,1,3
if NOT rs.EOF then
m=rs("bidprice")
else
m= Session("strp")
end if
rs.Close
maxprice=m
end function
</script>
<!--#include File="../../verify.asp"-->
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 2
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") _
& vbCRLF & "Thanks for placing your bid!" _
& vbCRLF & vbCRLF & "Your bid details:" _
& vbCRLF & "Product : " & Session("pme") _
& vbCRLF & "Your bid : $" & bidprice _
& vbCRLF & vbCRLF & "Good luck and remember to go back to the appropriate bid page, because someone may place a higher bid price than you!" _
& vbCRLF & vbCRLF & "See you online!" _
& vbCRLF & "mail" _
& 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
rs.MoveLast
for i = 1 to qty
rs.MovePrevious
if Not rs.BOF then
current=rs("bidprice")
end if
if rs.bof then exit for
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") _
& vbCRLF & "You have been outbidded by another user: " _
& vbCRLF & "Product : " & Session("pme") _
& vbCRLF & "The Currenely Bid Price Is : $" & Lowprice _
& vbCRLF & vbCRLF & "Good Luck On Your Auction Activity!" _
& vbCRLF & vbCRLF & "See you online!" _
& vbCRLF & "mail" _
& 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
end if
end sub
function maxprice()
SQLstr= "SELECT * FROM biding WHERE itnumber="&proID
SQLstr=SQLstr& " ORDER BY bidprice DESC"
rs.Open SQLstr,conn,1,3
if NOT rs.EOF then
m=rs("bidprice")
else
m= Session("strp")
end if
rs.Close
maxprice=m
end function
</script>
<!--#include File="../../verify.asp"-->