<% Option Explicit %> <% Response.Buffer=TRUE %> <% dim strAction : strAction = LCase(Request("action")) Select Case strAction Case "submit" ' Form Values dim frmv_Contact, frmv_Email, frmv_Name, frmv_Phone, frmv_Connection_Speed, frmv_Problem_Type, frmv_Message, frmv_Previous_Page frmv_Contact = Request("frmv_Contact") frmv_Email = Request("frmv_Email") frmv_Name = Request("frmv_Name") frmv_Phone = Request("frmv_Phone") frmv_Message = Request("frmv_Message") frmv_Connection_Speed = Request("frmv_Connection_Speed") frmv_Problem_Type = Request("frmv_Problem_Type") frmv_Previous_Page = Request("referpage") '## CONVERSIONS ' Check for Problem Type and convert abbrev to full name Select Case frmv_Problem_Type Case "DLP" frmv_Problem_Type = " - Download Problem" Case "SGM" frmv_Problem_Type = " - Spelling or Grammar Mistake" Case "PLP" frmv_Problem_Type = " - Web Page or Link Problem" Case "WSF" frmv_Problem_Type = " - Website Suggestion or Feature" Case "GE" frmv_Problem_Type = " - General" Case Else frmv_Problem_Type = " - unspecified" End Select ' SendMail Values dim strsendtoEmail,strsendtoRep,strname,stremail,strmessage,strSubject,sMsgText dim strSendBack : strSendBack = Request.ServerVariables("HTTP_REFERER") 'strsendtoEmail = Request("sendtoEmail") strsendtoEmail = "webmaster@domain-name.com" strsendtoRep = " " ' Check for Contact Type and set correct email address Select Case frmv_Contact Case "1" strsendtoEmail = "epreston@domain-name.com" ' The Editor Case "2" strsendtoEmail = "epreston@domain-name.com" ' Editorial Staff Case "3" strsendtoEmail = "customerservice@domain-name.com" ' Advertising Department Case "4" strsendtoEmail = "customerservice@domain-name.com" ' Classified Ads Case "5" strsendtoEmail = "customerservice@domain-name.com" ' Customer Sales & Service Case "99" strsendtoEmail = "webmaster@domain-name.com" ' Webmaster Case Else strsendtoEmail = "webmaster@domain-name.com" End Select strSubject = "Plays Magazine Contact Form " & frmv_Problem_Type '-- get Messsage-body --INSERT sMsgText CODE HERE sMsgText = " " sMsgText = sMsgText & vbNewLine & "PLAYS MAGAZINE CONTACT FORM" sMsgText = sMsgText & vbNewLine & "Plays Magazine Web Site" & vbNewLine sMsgText = sMsgText & vbNewLine & "SUBMISSION DATE & TIME" sMsgText = sMsgText & vbNewLine & Now() sMsgText = sMsgText & vbNewLine & "--------------------------------------------------------------------------" sMsgText = sMsgText & vbNewLine & vbNewLine & "NAME" & vbNewLine & frmv_Name & vbNewLine sMsgText = sMsgText & vbNewLine & "EMAIL" & vbNewLine & frmv_Email & vbNewLine sMsgText = sMsgText & vbNewLine & "PHONE" & vbNewLine & frmv_Phone & vbNewLine sMsgText = sMsgText & vbNewLine & "MESSAGE" & vbNewLine & frmv_Message & vbNewLine & vbNewLine sMsgText = sMsgText & vbNewLine & "--------------------------------------------------------------------------" sMsgText = sMsgText & vbNewLine & "TECHNICAL INFORMATION" sMsgText = sMsgText & vbNewLine & Request.ServerVariables("HTTP_USER_AGENT") sMsgText = sMsgText & vbNewLine & Request.ServerVariables("REMOTE_ADDR") & vbNewLine sMsgText = sMsgText & vbNewLine & "This e-mail was submitted via Plays Magazine Contact Form Page." sMsgText = sMsgText & vbNewLine & strSendBack & vbNewLine sMsgText = sMsgText & vbNewLine & "Plays Magazine Contact Form Page Refer." sMsgText = sMsgText & vbNewLine & frmv_Previous_Page & vbNewLine Call SendMail(strsendtoRep,strsendtoEmail,frmv_Name,frmv_Email,strSubject,sMsgText) %> <% 'response.end response.redirect("/form/form_contact.html?action=thankyou") Case Else 'nothing End Select Dim strTemplateTitle, strLocName, strLocURL, strSubHead Select Case strAction Case "thankyou" strTemplateTitle = "Thank You" strLocName = "Contact Form" strLocURL = "/form/form_contact.html" strSubHead = "Contacting Plays" Call BuildTemplateTop(strTemplateTitle,strSubHead,strLocName,strLocURL) Response.Write ("

Your message has been sent.

") Response.Write ("

Thank you for taking the time to contact us.

") Call BuildTemplateBottom() Case Else strTemplateTitle = "Contact Us" strLocName = "Contact Form" strLocURL = "/form/form_contact.html" strSubHead = "Contacting Plays" Call BuildTemplateTop(strTemplateTitle,strSubHead,strLocName,strLocURL) Call DisplayCForm() Call BuildTemplateBottom() End Select Sub DisplayCForm() %>

Contact Information for Plays Magazine:

Plays Magazine
P.O. Box 600160
Newton, MA 02460

(800) 630-5755, (617) 630-9100 in Massachusetts
(617) 630-9101 fax
lpreston@playsmag.com

For better assistance, please provide as much information as possible:

My message is for:

Personal Information:

My name is:

My e-mail address:

Phone Number:

Additional Information:

Using the space provided below, please type a brief but detailed description of any difficulties you may be experiencing or any questions that you may have.

If you are experiencing problems related to the website, please provide the following information.

<% End Sub Sub InsertPageImage() %>

<% End Sub %>