<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim subject, from, toAddress, textBody, htmlBody
subject = "Contact form submitted from website"
from = "jbrahy@ad2.com"
toAddress = "john@brahy.com"
Dim
message = "Contact Form Data
" & _
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2 ' cdoSendUsingPort
.Item(sch & "smtpserver") = "127.0.0.1"
.update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = from
.To = toAddress
.Subject = subject
.HTMLBody = message
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>
Thank you
Thank you for submitting our contact form. Someone will contact you.
Back to the site