550 Access - Press Inquiry

<%@ Language=VBScript %> <% dim flagSendInquiry flagSendInquiry = 0 if Request.QueryString = "send" then dim flagPubDead,flagPubDate flagPubDead = 0 flagPubDate = 0 Response.Clear MOPStatus = trim(Request.Form("Current_Member")) Name = trim(Request.Form("fullname")) PubName = trim(Request.Form("Pub_Name")) PubDeadline = trim(Request.Form("Pub_Dead")) PubDate = trim(Request.Form("Pub_Date")) City = trim(Request.Form("city")) State = trim(Request.Form("state")) PhoneNo = trim(Request.Form("Phone_Num")) Contact = trim(Request.Form("Contact_Method")) Subject = trim(Request.Form("Subject")) Info = trim(Request.Form("Contents")) Priority = trim(Request.Form("Priority")) Department = trim(Request.Form("Press")) if PubDeadline = "" then flagPubDead = 1 end if if PubDate = "" then flagPubDate = 1 end if pressinfotxt = pressinfotxt & "Following is the information enter in by the person for press inquiry

" pressinfotxt = pressinfotxt & "" pressinfotxt = pressinfotxt & "" pressinfotxt = pressinfotxt & "" pressinfotxt = pressinfotxt & "" pressinfotxt = pressinfotxt & "" if not(flagPubDead = 1)then pressinfotxt = pressinfotxt & "" end if if not(flagPubDate) = 1 then pressinfotxt = pressinfotxt & "" end if pressinfotxt = pressinfotxt & "" pressinfotxt = pressinfotxt & "" pressinfotxt = pressinfotxt & "" pressinfotxt = pressinfotxt & "" pressinfotxt = pressinfotxt & "" pressinfotxt = pressinfotxt & "" pressinfotxt = pressinfotxt & "" pressinfotxt = pressinfotxt & "" pressinfotxt = pressinfotxt & "" pressinfotxt = pressinfotxt & "" pressinfotxt = pressinfotxt & "

Press Information
Member of Press?	" & MOPStatus & "
Full Name	" & Name & "
Publication Name	" & PubName & "
Publication Name	" & PubDeadline & "
Publication Name	" & PubDate & "
City	" & City & "
State	" & State & "
Phone Number	" & PhoneNo & "
Contact Method	" & Contact & "
Subject	" & Subject & "
Information	" & Info & "
Priority	" & Priority & "
Department	" & Department & "
IP Address	" & Request.ServerVariables("REMOTE_ADDR") & "
Browser Used	" & Request.ServerVariables("HTTP_USER_AGENT") & "

" 'Response.Write pressinfotxt 'Response.End set ObjMail = server.CreateObject("cdonts.newmail") ObjMail.To = "johnsmith@550access.com" ObjMail.Bcc = "nandip@vippowernet.com,dave@vippowernet.com" ObjMail.From = "support@550access.com" ObjMail.subject = "550Access-Press Inquiry" ObjMail.Body = pressinfotxt ObjMail.BodyFormat = 0 ObjMail.MailFormat = 0 ObjMail.send set ObjMail = nothing session("currentmsg") = "" session("currentmsg") = session("currentmsg") & "

The information that you filled up has been sent successfully.

Note: Your message will be forwarded to the correct individual, if you do not receive a response within 24 Hours please contact John Smith directly (VP Marketing/Media Relations) at johnsmith@550access.com for immediate attention.

" Response.Redirect("pressinquiry.asp") end if %> 550 Access - Press Inquiry

NEW USER

QUICK LINKS

	WHERE YOU ARE? :: HOME COMAPNY PRESS ROOM PRESS INQUIRY

<% if not session("currentmsg") = "" then %>

<%=session("currentmsg")%> <% end if %>

Member of Press:*
Name:*
Publication Name:*
Publication Deadline:
Publication Date:
City:*
State:*
Phone Number:*
Contact Method:*
Subject:*
Info:*
Priority:
Department:


* Required Fields

Contacts:

John Smith
Senior Vice President/Media Relations
johnsmith(@)550access.com

My 550Access | Make 550access.com your home page | Add 550Access.com to your favorites

User	Software	Support	Business Partnerships	Company Info.
Webmail \| Take a tour \| Getting Started \| Sign Up \| Order A CD \| Plans & Prices \| Referrals \| Support \| Downloads \| General FAQ's	Toolbar \| Toolbar 3.0 \| Deskbar \| Browser \| Dialer \| Automatic configuration	Access Numbers \| Settingup Connection \| Common Errors/Issues	Corporate Dialup \| Affiliate	About Us \| Contact Us \| Press Room \| Terms & Conditions \| Privacy Policy \| Employment