<%@Language = VBScript Codepage = 65001 %> <% if mid(Request.ServerVariables("LOCAL_ADDR"), 1, 7) = "192.168.26" then 'if mid(Request.ServerVariables("LOCAL_ADDR"), 1, 7) = "203.117" then If Request.Form("Email") <> "" Then If Request.Form("redirect") <> "" Then Redirect_url = Request.Form("redirect") Else If Request.QueryString("redirect") <> "" then Redirect_url = Request.QueryString("redirect") Else Redirect_url = Request.ServerVariables("HTTP_REFERER") End If End If 'Script to capture all Form fields and send it as an e-mail Dim msg msg="" For i=1 to Request.Form.Count msg = msg & Request.Form.Key(i) & " = " & Request.Form.Item(i) & "

" Next 'Retrieving the Receipient's mail address and the subject of the mail On Error Resume next Dim MyMail Set MyMail = CreateObject("CDO.Message") 'my'Mail.MailFormat = 0 'my'Mail.HTMLBodyFormat = 0 MyMail.From = Request.Form("Email") MyMail.To = Request.Form("recipient") MyMail.Subject = Request.Form("subject") MyMail.HTMLBody = msg MyMail.HTMLBody.Charset = "utf-8" MyMail.HTMLBodyPart.Charset = "utf-8" MyMail.TextBodyPart.ContentTransferEncoding = "quoted-printable" MyMail.HTMLBodyPart.ContentTransferEncoding = "quoted-printable" MyMail.Send Set MyMail = Nothing Response.Redirect(Redirect_url) Else%> Email cannot be left blank. <%End If Else Response.Redirect(Request.Form("redirect")) End if %>