%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% if Request.Form("FFSubmitted") = "yes" then Dim BodyString Dim ExcludeFields Dim objCDO Dim RedirectURL Set objCDO = Server.CreateObject("CDONTS.NewMail") ExcludeFields = "FFSubmitted;" & "" objCDO.From = "enquiry@fisherindependent.co.uk" objCDO.To = "simon@FisherIndependent.co.uk" objCDO.Cc = "" objCDO.Bcc = "" objCDO.Subject = "Website Feedback Form" 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 Set objCDO = Nothing RedirectURL = "form_response.asp" If RedirectURL <> "" then If Request.QueryString <> "" Then response.redirect(RedirectURL & "?" & Request.QueryString) else response.redirect(RedirectURL) end If end if end if %> <% MM_EditAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_EditAction = MM_EditAction & "?" & Request.QueryString End If %>
|
Enquiry Form To get a call back you can just enter your name and telephone number |
||||||||||||||||||||||||||||||||||||||||||