%@LANGUAGE="VBSCRIPT"%> <% if Request.Form("FFSubmitted") = "yes" then Dim BodyString Dim ExcludeFields Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") ExcludeFields = "FFSubmitted;" & "email;" & "subject;" objCDO.From = Request.Form("email") objCDO.To = "john@hsbourne.co.uk" objCDO.Cc = "nathan@notcon-internet.co.uk" objCDO.Bcc = "nathan@notcon-internet.co.uk" objCDO.Subject = Request.Form("subject") BodyString = Replace("","~",chr(13) & chr(10) )& chr(13) For Each item In Request.Form If InStr(1,ExcludeFields,item,1) = 0 then BodyString = BodyString & item & ": " & Request.Form(item) & chr(13) End If Next objCDO.Body = BodyString objCDO.BodyFormat = 1 objCDO.MailFormat = 1 objCDO.Send Response.Redirect "email_confirmation.htm" end if %> <% FFeditAction = CStr(Request("URL")) If (Request.QueryString <> "") Then FFeditAction = FFeditAction & "?" & Request.QueryString End If %>
|
||||||||||||||||||||||||||||||||||||||||
|
©
2000 H.S. Bourne - All Rights Reserved
H.S. Bourne The Bank Malpas Cheshire SY14 7AL United Kingdom tel: +44 (0)1948 770214 fax: +44 (0)1948 770288 e-mail: john@hsbourne.co.uk site design by notcon internet |
||||||||||||||||||||||||||||||||||||||||