VP-ASP :: Shopping Cart Software

Shopping Cart Software Solutions for anywhere in the World

US/Canada(Toll Free): +1 888 587 2278
Europe/UK: +44 (020) 7193 9408
Australia/New Zealand: +61 3 9016 4497

VP-ASP Shopping Cart Customer Forum

Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 VPCart Forum
 Add-ons for VP-ASP
 Want email to import directly into goldmine
 New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

jbird
Starting Member

2 Posts

Posted - April 15 2003 :  10:13:26  Show Profile  Reply with Quote
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



>%



  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000