Member Avatar for geraldmbuthia

Could anyone help me on how to send data to a specific email.I have tried to work with the attached file but can't work.The form is .txt but am uploading in my website as .asp.

<%
Response.Buffer = True
'Dimension variables
Dim sName,sEmail,sCountry,sAdults,sTourtype,sMessage,sChildren,sAges,sDepartmonth
Dim sArrivemonth,sDepartyear,sArriveyear,sTourprog,sTourcode
Dim objJMail,strMyEmailAddress,strSMTPServerAddress
sName=Request.Form("name")
sEmail=Request.Form("email")
sTourtype=Request.Form("tourtype")
sTourcode=Request.Form("tourcode")
sTourprog=Request.Form("tourprog")
sDepartday=Request.Form("departday")
sDepartyear=Request.Form("departyear")
sArriveyear=Request.Form("arriveyear")
sAdults=Request.Form("adults")
sChildren=Request.Form("children")
sAges=Request.Form("ages")
sArrivemonth=Request.Form("arrivemonth")
sArriveday=Request.Form("arriveday")
sDepartmonth=Request.Form("departmonth")
sCountry=Request.Form("country")
sMessage=Request.Form("comments")

strMyEmailAddress = "webmaster@oryxsafaris.com"
strSMTPServerAddress = "smtp.oryxsafaris.com"
strReturnEmailAddress = Request.Form("email")
strReturnEmailAddress = strMyEmailAddress
 
Set objJMail = Server.CreateObject("JMail.SMTPMail")
objJMail.ServerAddress = strSMTPServerAddress
objJMail.Sender = sEmail
objJMail.SenderName = sName
objJMail.AddRecipient strMyEmailAddress
objJMail.Subject = "Enquiry sent from enquiry form on website"
objJMail.HTMLBody = sMessage
objJMail.Body = sMessage
objJMail.Priority = 3 
objJMail.Execute
Set objJMail = Nothing
%>
  • 2 Contributors
  • 1 Reply
  • 75 Views
  • 1 Month Discussion Span
  • Latest Post Latest Post by dudegio
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.