<%@ Language=VBScript %> <% '-----EDIT THE MAILING DETAILS IN THIS SECTION----- dim fromName, fromcName, address1, address2, mobileNo, city, state, country, contactNo, faxNo, product, shipment, quantity, timeframe, payment, shipschedule, toCountry, fromAddress, portName, recipientName, recipientAddress, recipientAddress1, recipientAddress2, subject, message, body, sentTo fromName = Request.Form("name") fromcName = Request.Form("companyName") address1 =Request.Form("add1") address2 =Request.Form("add2") city =Request.Form("city") state =Request.Form("state") country =Request.Form("country") contactNo =Request.Form("cNo") mobileNo =Request.Form("mNo") faxNo =Request.Form("fNo") product=Request.Form("product") shipment=Request.Form("shipment") quantity=Request.Form("quantity") timeframe=Request.Form("timeframe") payment=Request.Form("payment") shipschedule=Request.Form("shipschedule") toCountry=Request.Form("toCountry") portName=Request.Form("portName") fromAddress = Request.Form("mailId") recipientName = "Sales Manager" recipientAddress= "jeyaraj@fastinservices.com" recipientAddress1= "jeyarajg@packet-one.com" recipientAddress2= "jeyaraj@fastinservices.com" subject = "New User" message = Request.Form("message") body = "Hai Sir,
This is "& fromName & "from" & fromcName &"," & address1 &","& city &","& state &","& country &". My contact Number is "& contactNo & ".My mobile Number is" & mobileNo & ".My Fax Number is" & faxNo & ". I need "& product & "" & quantity & "to" & toCountry '-----YOU DO NOT NEED TO EDIT BELOW THIS LINE----- sentTo = "NOBODY" Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = fromName Mailer.FromAddress = fromAddress Mailer.RemoteHost = "mrelay.perfora.net" if Mailer.AddRecipient (recipientName, recipientAddress1) then sentTo=recipientName & " (" & recipientAddress1 & ")" end if if Mailer.AddRecipient (recipientName, recipientAddress2) then sentTo=recipientName & " (" & recipientAddress2 & ")" end if if Mailer.AddRecipient (recipientName, recipientAddress) then sentTo=recipientName & " (" & recipientAddress & ")" end if Mailer.Subject = subject Mailer.BodyText = body if Mailer.SendMail then Response.Write "The mailing was sent to: " & sentTo & "" Response.Redirect "products.html" else Response.Write "Mail send failure. Error was " & Mailer.Response end if %>