%@ Language=VBScript %> <% Option Explicit Response.Buffer = true Response.Expires = -1000 Dim JMail, emailmsg, thing, msg, blnMailOK %>
Submitting a question to PortfolioFAQ does not guarantee an answer (this is a spare time activitiy!)
This form is intended to let you ask a question about something either not in, or unclear 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 ask a question, although PortfolioFAQ cannot promise that you will receive a (full) reply; the FAq is a spare tie activity and time availalbe to answer questions depends on pressure or actual work).
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 & 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 %>