<%
dim cust_name, house_number, address1, address2, city, phone, email, message, full_message
cust_name=request.form("name")
address1=request.form("address1")
address2=request.form("address2")
city=request.form("city")
phone=request.form("phone")
email=Request.Form("email")
message=Request.Form("message")
if email <> "" then
if message = "" then
response.write "
"
Response.Write ""
Response.Write ""
Response.End
end if
%>
You have not provided a message, please use your browser's " back " button and try again.
" response.end end if if cust_name = "" then response.write "You have not provided your name, please use your browser's " back " button and try again.
" %> <% response.End end if full_message="This is a new message from the contact page on www.jsystems.co.uk:" & vbcrlf & vbcrlf full_message=full_message & "+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++" & vbcrlf & vbcrlf full_message=full_message & "The message text is : " & vbcrlf & vbcrlf & message & vbcrlf & vbcrlf & "From: " & cust_name & vbcrlf full_message=full_message & "Phone Number: " & phone & vbcrlf full_message=full_message & "Address: " & address1 & ", " & address2 & ", " & city & vbcrlf & vbcrlf full_message=full_message & "+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++" & vbcrlf & vbcrlf full_message=full_message & "End of message" Dim objMail Set objMail = Server.CreateObject("CDO.Message") Set objConfig = Server.CreateObject("CDO.Configuration") 'Configuration: objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort objConfig.Fields(cdoSMTPServer)="auth.smtp.1and1.co.uk" objConfig.Fields(cdoSMTPServerPort)=25 objConfig.Fields(cdoSMTPAuthenticate)=cdoBasic objConfig.Fields(cdoSendUserName) = "m40576314-13" objConfig.Fields(cdoSendPassword) = "fucknuts" 'Update configuration objConfig.Fields.Update Set objMail.Configuration = objConfig objMail.From = email objMail.To = "info@frea-consulting.co.uk" objMail.Subject ="Frea Consulting Contact Page Responder" objMail.TextBody=full_message objMail.Send Response.Write "Message Sent Successfully!
" Response.Write "A summary of your message is shown below: -
" Response.Write ""
Response.Write "Message From: " & cust_name & "
"
Response.Write "email: " & email & "
"
Response.Write "Phone: " & phone & "
"
Response.Write "Message: " & message & "
What happens next:
" Response.Write "We will endeavour to contact you shortly to discuss your message, thank you for contacting Frea Consulting.
" Response.Write "If you need to contact us:
" Response.Write "" Response.Write "
Address:
" Response.Write "7 Penybanc,
"
Response.Write "Tanerdy,
"
Response.Write "Carmarthen,
"
Response.Write "SA31 2HA
Telephone:
" Response.Write "+44 (0) 1267 233 161
" Response.Write "