%@LANGUAGE="VBSCRIPT"%> <% if Request.Form("FFSubmitted") = "yes" then Dim BodyString Dim ExcludeFields Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") ExcludeFields = "FFSubmitted;" & "" objCDO.From = "CharterQueen" objCDO.To = "charterqueen@charterqueen.com" objCDO.Cc = "" objCDO.Bcc = "" objCDO.Subject = "" BodyString = Replace("this is a test","~",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 end if %> <% FFeditAction = CStr(Request("URL")) If (Request.QueryString <> "") Then FFeditAction = FFeditAction & "?" & Request.QueryString End If %>