<% Sub SendEmail( fromStr, toStr, subjectStr) Dim mailObj, msgBody, emailAddr msgBody = "" emailAddr = "" & Request("Email") if emailAddr = "" then Exit Sub msgBody = msgBody & "E-News Sign-up from the SF Limited Website" & Request("Name") & vbCrLf & vbCrLf msgBody = msgBody & "Email: " & emailAddr & vbCrLf & vbCrLf 'Write the message to text file just in case anything should go wrong with the email AppendToLog fromStr, toStr, subjectStr, msgBody Set mailObj = CreateObject("CDONTS.NewMail") mailObj.From = fromStr mailObj.To = toStr mailObj.Subject = subjectStr mailObj.Body = msgBody mailObj.Send Set mailObj = Nothing End Sub Sub AppendToLog( fromStr, toStr, subjectStr, bodyStr) Dim fs, fh, qRecord Set fs = CreateObject( "Scripting.FileSystemObject") Set fh = fs.OpenTextFile( "D:\Inetpub\TextFiles\SFLimitedLog.txt", 8, TRUE) qRecord = "Date : " & Now() fh.WriteLine( qRecord) qRecord = "From : " & fromStr fh.WriteLine( qRecord) qRecord = "To : " & toStr fh.WriteLine( qRecord) qRecord = "Subject : " & subjectStr & vbCrLf fh.WriteLine( qRecord) fh.WriteLine( bodyStr) fh.WriteLine( "----------------------------------------") fh.Close Set fs = Nothing End Sub %>
SFL - Expect More
Home News Systems Solutions Company
 
 
Home
Site Map
System Quick Links

Single Wall
Supra I SW

Gas & Oil Vents
IL I ILS I QC

Chimney & Exhaust Systems
Europa I Nova SF I Nova SM I SM I SMW

Ancillaries
Gas Flue Boxes
Seldek (Flashing)
Click here to find out more about the Clean Air Act
Unsubscribe
HelpPrint this PageBottom of Page
Remove yourself from our mailing list

If you would like to unsubscribe from the SFL mailing list, please submit your name and email address below.

Name:
Email:

Click once to unsubscribe

 
<% SendEmail "info@sflimited.com", "markw@funasset.com", "E-News Sign-up from the SF Limited Website" %>
 
Copyright 2006 SFL. All Rights Reserved. sfl.uk.com