<% if request.form("submit")<>"" then strFirstName = replace(trim((request.form("FirstName"))),"'","''") strLastName = replace(trim((request.form("LastName"))),"'","''") strCompany = replace(trim((request.form("Company"))),"'","''") strPhone = replace(trim((request.form("Phone"))),"'","''") strEmail = replace(trim((request.form("Email"))),"'","''") strAccountRegions = replace(trim((request.form("AccountRegions"))),"'","''") strAccountState = replace(trim((request.form("AccountState"))),"'","''") strAccountCity = replace(trim((request.form("AccountCity"))),"'","''") strAccountOtherInstructions = replace(trim((request.form("AccountOtherInstructions"))),"'","''") strTargetRegions = replace(trim((request.form("TargetRegions"))),"'","''") strTargetState = replace(trim((request.form("TargetState"))),"'","''") strTargetCity = replace(trim((request.form("TargetCity"))),"'","''") strTargetOtherInstructions = replace(trim((request.form("TargetOtherInstructions"))),"'","''") strHotelLocation = replace(trim((request.form("HotelLocation"))),"'","''") strHotelType = replace(trim((request.form("HotelType"))),"'","''") strNumberofRooms = replace(trim((request.form("NumberofRooms"))),"'","''") strConferencespace = replace(trim((request.form("Conferencespace"))),"'","''") strAmenities = replace(trim((request.form("Amenities"))),"'","''") strOtherCriteria = replace(trim((request.form("OtherCriteria"))),"'","''") strInterest = replace(trim((request.form("Interest"))),"'","''") strForm_From = Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("PATH_INFO") insertSQL = "insert into DGO_RFP (FirstName,LastName,Company, Phone,Email,AccountRegions,AccountState,AccountCity,AccountOtherInstructions,TargetRegions,TargetState,TargetCity,TargetOtherInstructions,HotelLocation,HotelType,NumberofRooms,Conferencespace,Amenities,OtherCriteria,Interest,Form_From,Source)" insertSQL = insertSQL & " values('" & strFirstName & "','" & strLastName & "','" & strCompany & "','" & strPhone & "','" & strEmail & "','" & strAccountRegions & "','" & strAccountState & "','" & strAccountCity & "','" & strAccountOtherInstructions & "','" & strTargetRegions & "','" & strTargetState & "','" insertSQL = insertSQL & strTargetCity & "','" & strTargetOtherInstructions & "','" & strHotelLocation & "','" & strHotelType & "','" &strNumberofRooms & "','" & strConferencespace & "','" & strAmenities & "','" & strOtherCriteria & "','" & strInterest & "','" & strForm_From & "','" & strSource & "')" con.execute(insertSQL) strFirstName = replace(strFirstName,"''","'") strLastName = replace(strLastName,"''","'") strPhone = replace(strPhone,"''","'") strCompany = replace(strCompany,"''","'") strEmail = replace(strEmail,"''","'") strAccountRegions = replace(strAccountRegions,"''","'") strAccountState = replace(strAccountState,"''","'") strAccountCity = replace(strAccountCity,"''","'") strAccountOtherInstructions = replace(strAccountOtherInstructions,"''","'") strTargetRegions = replace(strTargetRegions,"''","'") strTargetState = replace(strTargetState,"''","'") strTargetCity = replace(strTargetCity,"''","'") strTargetOtherInstructions = replace(strTargetOtherInstructions,"''","'") strHotelLocation = replace(strHotelLocation,"''","'") strHotelType = replace(strHotelType,"''","'") strNumberofRooms = replace(strNumberofRooms,"''","'") strConferencespace = replace(strConferencespace,"''","'") strAmenities = replace(strAmenities,"''","'") strOtherCriteria = replace(strOtherCriteria,"''","'") strInterest = replace(strInterest,"''","'") '---Common Mail Start----------------------------------------- Dim BOUNDARY, TEXT_HEADER, HTML_HEADER, MP_FOOTER Dim strTextBody, strHTMLBody BOUNDARY = "----xxxxxx" TEXT_HEADER = "--" & BOUNDARY & vbCrLf & "Content-Type: text/plain;" & vbCrLf & _ "Content-Transfer-Encoding: quoted-printable" & vbCrLf & vbCrLf HTML_HEADER = "--" & BOUNDARY & vbCrLf & "Content-Type: text/html;" & vbCrLf & _ "Content-Transfer-Encoding: quoted-printable" & vbCrLf & vbCrLf MP_FOOTER = "--" & BOUNDARY & "--" & vbCrLf 'Set strTextBody to your message in plain text format strTextBody = "A DGO_RFP Form was just completed on the website. Below are the details of the submission." & vbCrLf & vbCrLf strTextBody = strTextBody & vbcrlf & "Contact Information" strTextBody = strTextBody & vbcrlf & "First Name: " & strFirstName strTextBody = strTextBody & vbcrlf & "Last Name: " & strLastName strTextBody = strTextBody & vbcrlf & "Phone: " & strPhone strTextBody = strTextBody & vbcrlf & "Company: " & strCompany strTextBody = strTextBody & vbcrlf & "Email: " & strEmail strTextBody = strTextBody & vbcrlf & vbcrlf & "Account Location" strTextBody = strTextBody & vbcrlf & "Account Regions: " & strAccountRegions strTextBody = strTextBody & vbcrlf & "Account State: " & strAccountState strTextBody = strTextBody & vbcrlf & "Account City: " & strAccountCity strTextBody = strTextBody & vbcrlf & "Account Other Instructions: " & strAccountOtherInstructions strTextBody = strTextBody & vbcrlf & vbcrlf & "Competitive Hotels Targeting Criteria" strTextBody = strTextBody & vbcrlf & "Target Market Regions: " & strTargetRegions strTextBody = strTextBody & vbcrlf & "Target Market State: " & strTargetState strTextBody = strTextBody & vbcrlf & "Target Market City: " & strTargetCity strTextBody = strTextBody & vbcrlf & "Target Market Other Instructions: " & strTargetOtherInstructions strTextBody = strTextBody & vbcrlf & "Hotel Location: " & strHotelLocation strTextBody = strTextBody & vbcrlf & "Hotel Type: " & strHotelType strTextBody = strTextBody & vbcrlf & "Number of Rooms: " & strNumberofRooms strTextBody = strTextBody & vbcrlf & "Conference space: " & strConferencespace strTextBody = strTextBody & vbcrlf & "Amenities: " & strAmenities strTextBody = strTextBody & vbcrlf & "Other Criteria: " & strOtherCriteria strTextBody = strTextBody & vbcrlf & "Interest: " & strInterest strTextBody = strTextBody & vbcrlf & "--- End of Email ---" & vbCrLf '----------------------------------------------------------------- strHTMLBody = "
A DGO_RFP Form was just completed on the website. Below are the details of the submission.
" strHTMLBody = strHTMLBody & "
Contact Information
" strHTMLBody = strHTMLBody & "
First Name: " & strFirstName strHTMLBody = strHTMLBody & "
Last Name: " & strLastName strHTMLBody = strHTMLBody & "
Phone: " & strPhone strHTMLBody = strHTMLBody & "
Company: " & strCompany strHTMLBody = strHTMLBody & "
Email: " & strEmail strHTMLBody = strHTMLBody & "
Account Location
" strHTMLBody = strHTMLBody & "
Account Regions: " & strAccountRegions strHTMLBody = strHTMLBody & "
Account State: " & strAccountState strHTMLBody = strHTMLBody & "
Account City: " & strAccountCity strHTMLBody = strHTMLBody & "
Account OtherInstructions: " & strAccountOtherInstructions strHTMLBody = strHTMLBody & "
Competitive Hotels Targeting Criteria
" strHTMLBody = strHTMLBody & "
Target Market Regions: " & strTargetRegions strHTMLBody = strHTMLBody & "
Target Market State: " & strTargetState strHTMLBody = strHTMLBody & "
Target Market City: " & strTargetCity strHTMLBody = strHTMLBody & "
Target Market Other Instructions: " & strTargetOtherInstructions strHTMLBody = strHTMLBody & "
Hotel Location: " & strHotelLocation strHTMLBody = strHTMLBody & "
Hotel Type: " & strHotelType strHTMLBody = strHTMLBody & "
Number of Rooms: " & strNumberofRooms strHTMLBody = strHTMLBody & "
Conference space: " & strConferencespace strHTMLBody = strHTMLBody & "
Amenities: " & strAmenities strHTMLBody = strHTMLBody & "
Other Criteria: " & strOtherCriteria strHTMLBody = strHTMLBody & "
Interest: " & strInterest strHTMLBody = strHTMLBody & "
--- End of Email ---
" strBody = TEXT_HEADER & strTextBody & vbCrLf & HTML_HEADER & strHTMLBody & vbCrLf & MP_FOOTER '-------------------------------------------------------------------- Dim objMailer Set objMailer = Server.CreateObject("SMTPsvg.Mailer") objMailer.Qmessage = false objMailer.FromName = strEmail 'strFirstName & " " & strLastName objMailer.FromAddress= strEmail 'strEmail objMailer.CharSet = 2 'objMailer.RemoteHost= "mx1.cdcservices.com" objMailer.RemoteHost = "ns3.vianetworks.net" objMailer.AddRecipient "Teddy_Alemu@dgochi.com","Teddy_Alemu@dgochi.com" objMailer.AddBCC "emily@cendyn.com","emily@cendyn.com" 'objMailer.AddBCC "wen@cendyn.com","wen@cendyn.com" objMailer.Subject = "DGO RFP Form" objMailer.ContentType = "multipart/alternative; boundary=""" & BOUNDARY & """" objMailer.BodyText = strBody objMailer.SendMail set objMailer = Nothing response.Redirect("DGO_RFP_Thanks.asp") end if %>
Corporate Meeting Planning: David Green Organization corporate business meetings conventions special events planning management services experts professionals planner companies solution facilitation
Data Request Form
Contact Infomation
First Name:
Last Name:
Company:
Phone:
Email:
Account Location
Regions:
Select One
Northeast
Mid-Atlantic
Southeast
South
Southwest
Midwest
Northwest
Other
State:
selected<%end if%>>Select One
<% StateSQL = "select * from StateCodes order by StateName" set rsState=con.execute(StateSQL) if not rsState.eof then Do until rsState.eof StateName= rsState("StateName") StateCode= rsState("StateCode") %>
selected<%end if%>><%=StateName%>
<% rsState.movenext Loop end if rsState.close set rsState=nothing %>
City:
Other Special Instructions:
Competitive Hotels Targeting Criteria:
Geographic Markets to Target
Regions:
Select One
Northeast
Mid-Atlantic
Southeast
South
Southwest
Midwest
Northwest
Other
State:
selected<%end if%>>Select One
<% StateSQL = "select * from StateCodes order by StateName" set rsState=con.execute(StateSQL) if not rsState.eof then Do until rsState.eof StateName= rsState("StateName") StateCode= rsState("StateCode") %>
selected<%end if%>><%=StateName%>
<% rsState.movenext Loop end if rsState.close set rsState=nothing %>
City:
Other Special Instructions:
Hotel Location:
Select One
Downtown
Suburban
Airport
Resort
Others
Hotel Type:
Select One
Resort
Hotel
Conference Center
Convention Center
Luxury or Hotel Rating
Hotel Size:
Number of rooms:
Conference space:
Amenities:
Select One
Golf
Spa
Others
Other Criteria:
Please Specify your Interest:
Direct Mail List
Email List
Combined Mail/Email
© 2003 DGO Inc.
Internet Solutions from
Cendyn
