<%@LANGUAGE="VBSCRIPT" %>
Duncan F
<%
if Request.Form <> "" then
' check the data that has been sent:
strName = Request.Form("name")
strEmail = Request.Form("email")
'
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 newsletter subscibtion"
'Set the main body of the e-mail
objCDOMail.Body = "-- New newsletter subscription --" & vbcrlf & vbcrlf & _
" Name : " & strName & vbcrlf & _
" Email : " & strEmail & vbcrlf & _
objCDOMail.Send
'Close the server object
Set objCDOMail = Nothing
'
end if
%>
In Bed with Space, Buskett Roadhouse, Malta - 01 09 2007
