<% strRecipient1= "admin@infobluemountains.net.au" strGName= Request.Form("GName") strFName= Request.Form("FName") strEmail= Request.Form("Email") strInquiry= Request.Form("Inquiry") strHowFound= Request.Form("HowFound") strSite= Request.Form("Site") strSiteURL= Request.Form("SiteURL") strPageSubject= Request.form("PageSubject") strSubject= Request.Form("Subject") strSubject= strSite &": "& strSubject &": "& strGname &" "& strFname %> <% strBody = "Subject: "& strSubject & vbCrLf & vbCrLf & _ "Inquiry: "& strInquiry & vbCrLf & vbCrLf & _ "Name: "& strGName &" "& strFName & vbCrLf & _ "E-mail: "& strEmail & vbCrLf & _ "How Found: "& strHowFound & vbCrLf & _ "Site: "& strSite & vbCrLf & _ "Page Subject: "& strPageSubject %>

Data collected.

<% ' Send email/s set msg = Server.CreateObject("JMail.Message") msg.Logging = True msg.silent = true msg.From = strEmail msg.FromName = strName msg.AddRecipient1 strRecipient1 msg.Subject = strHeader msg.body = strBody If not msg.Send("mail.infobluemountains.net.au") then Result= msg.log Else Result= "Your message has been sent." End If Set msg = nothing %>
       
 

Thank you <%= strGName &" "& strFName%>! 

<%= Result %>

Home