% if not request("sent") = "" then Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "Parekh Platinum Website" Mailer.FromAddress = "parekhplatinum.com" Mailer.Subject = "Feedback from website- For Ravi Patankar" messageBody = "=================================================================================" & vbCrLf messageBody = messageBody & "Name:- " & request ("name") & vbCrLf & vbCrLf messageBody = messageBody & "Address1:- " & request ("Address1") & vbCrLf messageBody = messageBody & "Address2:- " & request ("Address2") & vbCrLf messageBody = messageBody & "City:- " & request ("City") & vbCrLf messageBody = messageBody & "State:- " & request ("State") & vbCrLf messageBody = messageBody & "PinCode:- " & request ("PinCode") & vbCrLf messageBody = messageBody & "Country:- " & request ("Country") & vbCrLf & vbCrLf messageBody = messageBody & "ContactNo:- " & request ("ContactNo") & vbCrLf messageBody = messageBody & "Email:- " & request ("Email") & vbCrLf & vbCrLf messageBody = messageBody & "PRODUCT INTERESTED " & vbCrLf messageBody = messageBody & "--------------------------------------------------------------------" & vbCrLf messageBody = messageBody & "If Gold Coins: " & vbCrLf messageBody = messageBody & " a: Design:- " & request ("GCDesign") & vbCrLf messageBody = messageBody & " b: Carat:- " & request ("GCCarat") & vbCrLf messageBody = messageBody & " c: Quantity:- " & request ("GCQantity") & vbCrLf messageBody = messageBody & " d: Others:- " & request ("GCOthers") & vbCrLf & vbCrLf messageBody = messageBody & "--------------------------------------------------------------------" & vbCrLf messageBody = messageBody & "If Master Alloy: " & vbCrLf messageBody = messageBody & " a: Carat:- " & request ("MACarat") & vbCrLf messageBody = messageBody & " b: Colour:- " & request ("MAColour") & vbCrLf messageBody = messageBody & " c: Process:- " & request ("MAProcess") & vbCrLf messageBody = messageBody & " d: Others:- " & request ("MAOther1") & vbCrLf & vbCrLf messageBody = messageBody & "--------------------------------------------------------------------" & vbCrLf messageBody = messageBody & "If Semi-Finished: " & vbCrLf messageBody = messageBody & " a: Carat:- " & request ("SFCarat") & vbCrLf messageBody = messageBody & " Coils:- " & request ("SFCoil") & vbCrLf messageBody = messageBody & " Balls:- " & request ("SFBalls") & vbCrLf messageBody = messageBody & " Chains:- " & request ("SFChains") & vbCrLf messageBody = messageBody & " Tubes:- " & request ("SFTubes") & vbCrLf messageBody = messageBody & " Wires:- " & request ("SFWires") & vbCrLf messageBody = messageBody & " Ball Chains:- " & request ("SFBC") & vbCrLf messageBody = messageBody & " Others:- " & request ("SFOthers") & vbCrLf & vbCrLf messageBody = messageBody & " b: Specifications:- " & request ("SFOtherstxt") & vbCrLf messageBody = messageBody & " c: Others:- " & request ("T1") & vbCrLf & vbCrLf messageBody = messageBody & "--------------------------------------------------------------------" & vbCrLf messageBody = messageBody & "If Jewellery: " & vbCrLf messageBody = messageBody & " a: Carat:- " & request ("JWCarat") & vbCrLf messageBody = messageBody & " b: Type:- " & request ("JWType") & vbCrLf messageBody = messageBody & " c: Weight:- " & request ("JWWeight") & vbCrLf messageBody = messageBody & " d: Others:- " & request ("JWOthers") & vbCrLf & vbCrLf messageBody = messageBody & "--------------------------------------------------------------------" & vbCrLf messageBody = messageBody & "I Wish reply by:- " & request ("ReplyBy") & vbCrLf Mailer.BodyText = messageBody Mailer.RemoteHost = "parekhplatinum.com" Mailer.AddRecipient "Ravi Patankar", "pplbom@bom3.vsnl.net.in" if Mailer.SendMail then response.write ("THANKS FOR SENDING THE INQUIRY...,") response.write ("WE WILL REPLY YOU SOON") else response.write ("The error was: " & Mailer.Response) end if end if %>
|
|
|
|
|
| ABOUT US | BUSINESS INQUIRY | PRODUCT GUARANTEE | CONTACT US | HOME |
|
|
|
* BACK |
|
BUSINESS INQUIRY FORM |