<%@ Language=VBScript %> <% Option Explicit Response.Buffer = true Response.Expires = -1000 Dim JMail, emailmsg, thing, msg %> PortfolioFAQ Form

Portfolio FAQ - Report an Error

This form is intended to let you inform the FAQ of any spelling mistakes, broken links or factual errors. The FAQ tries to be as correct as possible but errors can creep in and external links die. So please, do report any errors so they can be fixed!

If you wanted to report something else, see the links at the bottom of the page or simply go back to the last FAQ page you were looking at.

Your name.
 (optional)

Your E-mail
 (optional)

The problem:

   

<% ' Amend the Recipient, Subject and redirected page below. if (Request.Form("Submit")) = "Submit Request" then emailmsg = "" for each thing in request.form if thing <> "Submit" then emailmsg = emailmsg & trim(thing) & ": " & trim(request.form(thing)) & vbcrlf & vbcrlf end if next set msg = Server.CreateOBject( "JMail.Message" ) msg.Logging = true msg.silent = false if Request.Form("Email") = "" then msg.From = "no@null.com" else msg.From = request.form("Email") if not right(msg.From,7) = "mail.ru" and (Request.Form("Client")) <> "rgergerger" then blnMailOK = true end if end if if blnMailOK then msg.AddRecipient "faqforms@portfoliofaq.com" 'Recipient of emailed form msg.Subject = "PortfolioFAQ FormMail - Error Report" 'Subject of Email msg.Body = cstr(EmailMsg) msg.Send( "www11.redstation.co.uk" ) 'Change this to www2, www3 etc response.redirect "http://www.portfoliofaq.com/pfaq/index.html" 'address of thank you page else response.redirect "http://www.portfoliofaq.com/pfaq/index.html" 'address of thank you page end if end if %>

...or did you actually mean to:

Suggest a new topic

Ask a question

...or just go back to your last viewed page?