%@ Language=VBScript %> <% Option Explicit Response.Buffer = true Response.Expires = -1000 Dim JMail, emailmsg, thing, msg %>
Submitting a question to PortfolioFAQ does not guarantee an answer (this is a spare time activitiy!)
This form is intended to let you ask for a new article (or series of articles) in the FAQ. PortfolioFAQ has attempted to cover many areas not covered by the hand book, but that doesn't mean everything. Please feel free to request a new topic for inclusion in the FAQ, although PortfolioFAQ cannot promise that this will be taken forward.
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.<% ' 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 end if next set msg = Server.CreateOBject( "JMail.Message" ) msg.Logging = true msg.silent = false if (request.form("Email")) = "" then msg.From = "firstname.lastname@example.org" blnMailOK = true 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 "email@example.com" 'Recipient of emailed form msg.Subject = "PortfolioFAQ FormMail - User Question" '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 %>