<%@LANGUAGE="VBSCRIPT"%> <%OPTION EXPLICIT%> <% If (CStr(Request("contactsubmit")) <> "") Then Call SendEmail() End If %> Brent Jones - Photojournalist

Brent Jones - Photojournalist

CONTACT

<%If (CStr(Request("contactsubmit")) <> "") Then %>

Form submitted

<%Else%> <%End If%>

<% Sub SendEmail() '********************************************************************* 'Description: Send user details by email '********************************************************************* Dim loJMail 'Holds the JMail Object Dim lsHTML lsHTML = vbNullString Set loJMail = Server.CreateObject("JMail.SMTPMail") loJMail.silent = true loJMail.LazySend = true loJMail.Sender = Request.Form("email") 'FROM loJMail.AddRecipient "hello@brentjonesphotography.net" 'TO loJMail.Subject = "Email from your website" lsHTML = lsHTML & "Name: " & Request.Form("name") &"

"& vbCrLf & vbCrLf lsHTML = lsHTML & "Email: " & Request.Form("email") & "

" & vbCrLf & vbCrLf lsHTML = lsHTML & "Enquiry: " & Request.Form("enquiry") & "

" & vbCrLf & vbCrLf loJMail.HTMLBody = lsHTML loJMail.Execute Set loJMail = Nothing End Sub %>