jbird
Starting Member
2 Posts |
Posted - April 15 2003 : 10:13:26
|
I want vasap to send an email as a new order is placed so it can be added to my contact management program gold mine.
It needs to be sent in this format so goldmine will know that is not just a regular email.
Mail.ContentType="application/x-gm-impdata"
For my purposes here is what I want to have emailed to me.
From what I understand this should be very clear what I want done. I you can help me by posting a fix great.
<% if Request.ServerVariables("REQUEST_METHOD")="GET" then
set QS=Request.QueryString
else
set QS=Request.Form
end if
' SaveWatchbands.comEmail QS("orderid"), QS("olastname")
email=Trim(QS("oemail"))
crlf=chr(13) & chr(10)
message="Watchbands.com Order" & crlf
message=message & crlf
message=message & "CUSTOMER INFORMATION" & crlf
message=message & crlf
message=message & crlf
message=message & "1. Order Number..........: " & QS("orderid") & crlf
message=message & "2. Order amount..........: " & QS("orderamount") & crlf
message=message & "3. ShippingCost..........: " & QS("oshipcost") & crlf
message=message & "4. Shipping Method.......: " & QS("oshipmethodtype") & crlf
message=message & "5. $Tax..................: " & QS("otax") & crlf
message=message & "6. $Discount.............: " & QS("odiscount") & crlf
message=message & "7. $Handling.............: " & QS("ohandling") & crlf
message=message & "8. $Gift Certificate.....: " & QS("giftcertificate") & crlf
message=message & "9. Payment Type..........: " & QS("ocardtype") & crlf
message=message & "10. Order Date............: " & QS("odate") & crlf
message=message & "11. Phone.................: " & QS("ophone") & crlf
message=message & "12. E-mail................: " & QS("oemail") & crlf
message=message & "13. Ship To Name..........: " & QS("oshipname") & crlf
message=message & "14. Ship To Address.......: " & QS("oshipaddress") & crlf
message=message & "15. Ship To Town..........: " & QS("oshiptown") & crlf
message=message & "16. Ship To State.........: " & QS("oshipstate") & crlf
message=message & "17. Ship To Zip,,,,.......: " & QS("oshipzip") & crlf
message=message & "18. Ship To Country.......: " & QS("oshipcountry") & crlf
message=message & "19. First Name............: " & QS("ofirstname") & crlf
message=message & "20. Last Name.............: " & QS("olastname") & crlf
message=message & "21. Address...............: " & QS("oaddress") & crlf
message=message & "22. City..................: " & QS("ocity") & crlf
message=message & "23. State.................: " & QS("ostate") & crlf
message=message & "24. Zipcode...............: " & QS("opostcode") & crlf
message=message & "25. Country...............: " & QS("ocountry") & crlf
message=message & "26. Products Ordered......: " & QS("add_oitems") & crlf
message=message & "27. Comment...............: " & QS("ocomment") & crlf
message=message & "28. CustomerId............: " & QS("ocustomerid") & crlf
message=message & "29. Fax...................: " & QS("ofax") & crlf
message=message & "30. IPAddress.............: " & QS("ipaddress") & crlf
message=message & crlf
message=message & "Source=Watchbands.com" & vbCrLf
message=message & QS("ocomment") & crlf
message=message & crlf
Set Mail=Server.CreateObject("ShadowTools.SendMail")
Mail.To="Info <[email protected]>"
Mail.From=QS("name") & " <[email protected]>"
Mail.Server="mail"
Mail.Subject="Contest Entry" & "(" & qs("orderid") & ") (" & qs("olastname") & ")"
Mail.Message=message
Mail.Send
if Mail.Error<>"Success" then
response.write "error"
response.end
end if
message = "[Instructions]" & vbCrLf
message=message & "[Data]" & vbCrLf
message=message & "Key5=" & QS("orderid") & crlf
message=message & "Contact=" & QS("ofirstname") & QS("olastname") & crlf
message=message & "Company=Watchbands.com Customer" & crlf
message=message & "Key1=" & QS("ocustomerid") & crlf
message=message & "Phone=" & QS("ophone") & vbCrLf
message=message & "Fax=" & QS("ofax") & vbCrLf
message=message & "Email=" & QS("oemail") & vbCrLf
message=message & "Address1=" & QS("oaddress") & crlf
message=message & "City=" & QS("ocity") & crlf
message=message & "State=" & QS("ostate") & crlf
message=message & "Zip=" & QS("opostcode") & crlf
message=message & "Country=" & QS("ocountry") & crlf
message=message & "USERDEF02a=" & QS("oshipname") & crlf
message=message & "USERDEF01=" & QS("oshipaddress") & crlf
message=message & "USERDEF03=" & QS("oshiptown") & crlf
message=message & "USERDEF04=" & QS("oshipstate") & crlf
message=message & "USERDEF05=" & QS("oshipzip") & crlf
message=message & "USERDEF06=" & QS("oshipcountry") & crlf
message=message & "USERDEF07=" & UCase(cinfo("ocardtype")) & nl
message=message & "USERDEF08=" & UCase(cinfo("ocardnumber")) & nl
message=message & "USERDEF09=" & UCase(cinfo("ocardexpires")) & nl
message=message & "USERDEF10=" & UCase(cinfo("oshipmethodtype")) & nl
message=message & "USERDEF15=" & UCase(cinfo("orderamount")) & nl
message=message & "Key2=" & UCase(cinfo("ipaddress")) & nl
message=message & "Key4=" & QS("odate") & crlf
message=message & "Comments=" & QS("ocomment") & QS("add_oitems") & crlf
message=message & "Source=watchbands.com order" & vbCrLf
Set Mail=Server.CreateObject("ShadowTools.SendMail")
Mail.To="[email protected]"
Mail.From=qs("orderid") & " <" & qs("interest") & ">"
Mail.Server="mail"
Mail.Subject="(Watchbands.com Notification of Sale)"
Mail.ContentType="application/x-gm-impdata"
Mail.Message=message
Mail.Send
>%
|
|