<%@LANGUAGE="VBSCRIPT" %>
Duncan F
<%
if Request.Form <> "" then
' check the data that has been sent:
strName = Request.Form("name")
strsurname = Request.Form("surname")
strEmail = Request.Form("email")
strTel = Request.Form("tel")
strMessage = Request.Form("message")
'
Dim objCDOMail
'Holds the CDONTS NewMail Object
'Create the e-mail server object
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
'Who the e-mail is from
objCDOMail.From = "root@duncanf.com"
'Who the e-mail is sent to
objCDOMail.To = "info@duncanf.com;"
'Who the blind copies are sent to
'objCDOMail.Bcc = "myFriend1@thereDomain.com;myFriend2@anotherDomain.com"
objCDOMail.Bcc = ";"
'Set the subject of the e-mail
objCDOMail.Subject = "New contact from the website"
'Set the main body of the e-mail
objCDOMail.Body = "-- New website query --" & vbcrlf & vbcrlf & _
" Name : " & strName & vbcrlf & _
" Surname : " & strsurname & vbcrlf & _
" Email : " & strEmail & vbcrlf & _
" Tel : " & strTel & vbcrlf & _
" Message : " & strMessage & vbcrlf & vbcrlf
'Send the e-mail
objCDOMail.Send
'Close the server object
Set objCDOMail = Nothing
'
end if
%>
<% Server.Execute("/traffic/track.asp") %>
