Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

E-mail problem

I am useing CDonts to send an e-mail to a customer to inform them that their bid has been received. When I test the page i get this error:

Microsoft VBScript compilation error '800a0400'

Expected statement

/MailPages/MailPages.asp, line 33

"

Click HERE to login to HVL Online.

"& _

The code for this page is as follows:

<%
'This page creates an email and sends it to
'the member who jus placed a bid on HVL Online

'Get variables from query string for e-mail
dim intNumOfBids 'Holds total bids
dim arrName() 'Holds name of raw materials

'Populate intNumOfBids
inNumOfBids = request.QueryString("vNumOfBids")

'Populate arrName
for x = 1 to request.QueryString("arrRawName").count
redim arrName(x)
arrName(x) = request.QueryString("arrRawName")(x)
next

'Declare e-mail variables
dim objMail 'E-mail object
dim strBody 'Body of the e-mail

'Populate strBody
strBody = "</html>" & _
"image"& _
""& _
"
"& _
"Your bid(s) has been recieved. You have palced a bid for " & _
response.write(intNumOfBids) & " raw materials.

"& _
"The raw material(s) you bid on are as follows:

"
for each item in request.QueryString("arrRawName")
response.write(request.QueryString("arrRawName")(item) & "
")
next
"

Click HERE to login to HVL Online.

"& _
"
"& _
"&copy2004 GruntWare Development
"

'Instantiate e-mail object
Set objMail = CreateObject("CDONTS.NewMail")

'Populate e-mail object
objMail.From = "[email protected]"
objMail.To = request.querystring("vEmail")
objMail.Subject = "HVL Online Bid program"
objMail.MailFormat = 0
objMail.BodyFormat = 0
objMail.Body = strBody
objMail.Send

'Clear objMail
set objMail = Nothing

response.redirect("http://151.201.21.77:766/BidSend.asp")
%>

I am a semi-newbie so I prolly overlooked something. If anyone can help please do.


Wayne O'Brien
[email protected]

Comments

  • kellyclskellycls Member Posts: 1
    Pls change to strBody as follows :

    'Populate strBody
    strBody = "" & _
    "image"& _
    ""& _
    "
    "& _
    "Your bid(s) has been recieved. You have palced a bid for " & _
    response.write(intNumOfBids) & " raw materials.

    "& _
    "The raw material(s) you bid on are as follows:

    "
    for each item in request.QueryString("arrRawName")
    strBody=strBody&response.write(request.QueryString("arrRawName")(item) & "
    ")
    next
    strBody=strBody&"

    Click HERE to login to HVL Online.

    "& _
    "
    "& _
    "&copy2004 GruntWare Development
    "

Sign In or Register to comment.