%
action=request("action")
if(action="submit")then
dim strproduct
dim strsizeofcard
dim strdeckcount
dim strimagefront
dim strimageback
dim strcolorfront
dim strcolorback
dim strthickness
dim strfinish
dim strquality
dim strpackaging
dim strcustomisation
dim strqty
dim strshipping
dim strzip
dim strstate
dim strcountry
dim stranyinform
dim bodymsg
strproduct=""
strsizeofcard=""
strdeckcount=""
strimagefront=""
strimageback=""
strcolorfront=""
strcolorback=""
strthickness=""
strfinish=""
strquality=""
strpackaging=""
strcustomisation=""
strqty=""
strshipping=""
strzip=""
strstate=""
strCountry=""
stranyinform=""
bodymsg=""
strproduct=request("product")
strsizeofcard=request("sizeofcard")
strdeckcount=request("deckcount")
strimagefront=request("imagefront")
strimageback=request("imageback")
strcolorfront=request("colorfront")
strcolorback=request("colorback")
strthickness=request("thickness")
strfinish=request("finish")
strquality=request("quality")
strpackaging=request("packaging")
strcustomisation=request("customisation")
strqty=request("qty")
strshipping=request("shipping")
strzip=request("zip")
strstate=request("state")
strCountry=request("country")
stranyinform=request("anyinform")
bodymsg=bodymsg & "Product: " & strproduct & " "
bodymsg=bodymsg & "SizeOfCard: " & strsizeofcard & " "
bodymsg=bodymsg & "DeckCount: " & strdeckcount & " ")
bodymsg=bodymsg & "Image Front: " & strimagefront & " ")
bodymsg=bodymsg & "Image Back: " & strimageback & " ")
bodymsg=bodymsg & "Color Front: " & strcolorfront & " ")
bodymsg=bodymsg & "Color Back: " & strcolorback & " ")
bodymsg=bodymsg & "ThickNess: " & strthickness & " ")
bodymsg=bodymsg & "Finish: " & strfinish & " ")
bodymsg=bodymsg & "Quality: " & strquality & " ")
bodymsg=bodymsg & "Packaging: " & strpackaging & " ")
bodymsg=bodymsg & "Customisation: " & strcustomisation & " ")
bodymsg=bodymsg & "Quantity: " & strqty & " ")
bodymsg=bodymsg & "Shipping: " & strshipping & " ")
bodymsg=bodymsg & "Zip: " & strzip & " ")
bodymsg=bodymsg & "State: " & strstate & " ")
bodymsg=bodymsg & "Country: " & strcountry & " ")
bodymsg=bodymsg & "Any Other Information : " & stranyinform & " ")
'response.write(bodymsg)
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "127.0.0.1"
Mail.From ="sales@custom-playingcards.com"
Mail.FromName = "Price Quote Form"
Mail.AddAddress "sales@custom-playingcards.com"
Mail.AddReplyTo "sales@custom-playingcards.com"
Mail.Subject = "Price Quote Details"
Mail.Body = bodymsg
Mail.IsHTML = True
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
end if
%>
custom-playingcards.com - Free Price Quote
We
would be pleased to provide you a free quote, based upon your specifications
and customisation.
Please fill up the form below and submit. We will be in touch soon.
Please read our FAQ's,
before filling up this form.