|
|
 |
 |
|
Contact PRSA Kansas City
<%@ LANGUAGE="VBScript" %>
<%
error = ""
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' Displays the Contact Form
'
function showForm()
%>
<%
end function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' send to Rightful Owner
'
function sendContact()
message_text = _
"First Name: " & Request("first_name") & vbNewLine & _
"Last Name: " & Request("last_name") & vbNewLine & _
"Company: " & Request("company") & vbNewLine & _
"Address: " & Request("address") & vbNewLine & _
"City: " & Request("city") & vbNewLine & _
"State: " & Request("state") & vbNewLine & _
"Zip: " & Request("zip") & vbNewLine & _
"Phone: " & Request("phone") & " ext." & Request("phone_extention") & vbNewLine & _
"E-mail: " & Request("email") & vbNewLine & _
"Affilitation: " & Request("affiliation")& vbNewLine & _
"Comments: " & Request("comments") & vbNewLine & _
"I'm interested in: "
'Sends to Justin LaBerge when volunteer is selected
If(Request("volunteer") = "true") then
message_text = message_text & "Volunteering" & vbNewLine
Set message_obj = Server.CreateObject("LAFmessage.Message")
message_obj.AddHeader LAFMESSAGE_MIME_HEADER_from, Request("first_name") & " " & Request("last_name") & "<" & Request("email") & ">"
message_obj.AddHeader LAFMESSAGE_MIME_HEADER_to, "justin@sturgesward.com"
message_obj.AddHeader LAFMESSAGE_MIME_HEADER_subject, "PRSA Get Involved Form Inquiry"
message_obj.AddText LAFMESSAGE_MIME_text_plain, message_text
Set smtp_obj = Server.CreateObject("LAFmessage.SMTP")
smtp_obj.SenderAddress = Request("email")
smtp_obj.SMTPServer = "smtp-script.lookandfeel.com"
smtp_obj.Add message_obj, Array("justin@sturgesward.com")
end if
'Sends to Bridget Koan when student is selected
If(Request("student") = "true") then
message_text = message_text & "Student Conference/Student Services" & vbNewLine
Set message_obj = Server.CreateObject("LAFmessage.Message")
message_obj.AddHeader LAFMESSAGE_MIME_HEADER_from, Request("first_name") & " " & Request("last_name") & "<" & Request("email") & ">"
message_obj.AddHeader LAFMESSAGE_MIME_HEADER_to, "bkoan@kumc.edu"
message_obj.AddHeader LAFMESSAGE_MIME_HEADER_subject, "PRSA Get Involved Form Inquiry"
message_obj.AddText LAFMESSAGE_MIME_text_plain, message_text
Set smtp_obj = Server.CreateObject("LAFmessage.SMTP")
smtp_obj.SenderAddress = Request("email")
smtp_obj.SMTPServer = "smtp-script.lookandfeel.com"
smtp_obj.Add message_obj, Array("bkoan@kumc.edu")
end if
'Sends to Brooke Ehlers when prism is selected
If(Request("prism") = "true") then
message_text = message_text & "Prism Awards" & vbNewLine
Set message_obj = Server.CreateObject("LAFmessage.Message")
message_obj.AddHeader LAFMESSAGE_MIME_HEADER_from, Request("first_name") & " " & Request("last_name") & "<" & Request("email") & ">"
message_obj.AddHeader LAFMESSAGE_MIME_HEADER_to, "behlers@nicholsonkovac.com"
message_obj.AddHeader LAFMESSAGE_MIME_HEADER_subject, "PRSA Get Involved Form Inquiry"
message_obj.AddText LAFMESSAGE_MIME_text_plain, message_text
Set smtp_obj = Server.CreateObject("LAFmessage.SMTP")
smtp_obj.SenderAddress = Request("email")
smtp_obj.SMTPServer = "smtp-script.lookandfeel.com"
smtp_obj.Add message_obj, Array("behlers@nicholsonkovac.com")
end if
'Sends to Andy DiOrio when mentor is selected
If(Request("mentor") = "true") then
message_text = message_text & "Being a mentor/Finding a Mentor" & vbNewLine
Set message_obj = Server.CreateObject("LAFmessage.Message")
message_obj.AddHeader LAFMESSAGE_MIME_HEADER_from, Request("first_name") & " " & Request("last_name") & "<" & Request("email") & ">"
message_obj.AddHeader LAFMESSAGE_MIME_HEADER_to, "ADiOrio@amctheatres.com"
message_obj.AddHeader LAFMESSAGE_MIME_HEADER_subject, "PRSA Get Involved Form Inquiry"
message_obj.AddText LAFMESSAGE_MIME_text_plain, message_text
Set smtp_obj = Server.CreateObject("LAFmessage.SMTP")
smtp_obj.SenderAddress = Request("email")
smtp_obj.SMTPServer = "smtp-script.lookandfeel.com"
smtp_obj.Add message_obj, Array("ADiOrio@amctheatres.com")
end if
'Sends to Erin Curtin when consultant or board is selected
If((Request("consultant") = "true") OR (Request("board") = "true")) then
if(Request("consultant") = "true") then
message_text = message_text & "Finding a Consultant" & vbNewLine
end if
if(Request("board") = "true") then
message_text = message_text & "Joining the Board" & vbNewLine
end if
Set message_obj = Server.CreateObject("LAFmessage.Message")
message_obj.AddHeader LAFMESSAGE_MIME_HEADER_from, Request("first_name") & " " & Request("last_name") & "<" & Request("email") & ">"
message_obj.AddHeader LAFMESSAGE_MIME_HEADER_to, "ecurtin@trozzolo.com"
message_obj.AddHeader LAFMESSAGE_MIME_HEADER_subject, "PRSA Get Involved Form Inquiry"
message_obj.AddText LAFMESSAGE_MIME_text_plain, message_text
Set smtp_obj = Server.CreateObject("LAFmessage.SMTP")
smtp_obj.SenderAddress = Request("email")
smtp_obj.SMTPServer = "smtp-script.lookandfeel.com"
smtp_obj.Add message_obj, Array("ecurtin@trozzolo.com")
end if
'Sends to Justin LaBerge when join or packet or other is selected
If((Request("join") = "true") OR (Request("packet") = "true") OR (Request("other")="true"))then
if(Request("join") = "true") then
message_text = message_text & "Join PRSA" & vbNewLine
end if
if(Request("packet") = "true") then
message_text = message_text & "Get a membership packet" & vbNewLine
end if
if(Request("other") = "true") then
message_text = message_text & "Other" & vbNewLine
end if
Set message_obj = Server.CreateObject("LAFmessage.Message")
message_obj.AddHeader LAFMESSAGE_MIME_HEADER_from, Request("first_name") & " " & Request("last_name") & "<" & Request("email") & ">"
message_obj.AddHeader LAFMESSAGE_MIME_HEADER_to, "justin@sturgesword.com"
message_obj.AddHeader LAFMESSAGE_MIME_HEADER_subject, "PRSA Get Involved Form Inquiry"
message_obj.AddText LAFMESSAGE_MIME_text_plain, message_text
Set smtp_obj = Server.CreateObject("LAFmessage.SMTP")
smtp_obj.SenderAddress = Request("email")
smtp_obj.SMTPServer = "smtp-script.lookandfeel.com"
smtp_obj.Add message_obj, Array("justin@sturgesword.com")
end if
%>
<%
end function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' Verify Form
'
function verifyForm()
verifyForm = false
if (len(request("first_name")) = 0) then
error = error & "You must enter your first name
"
end if
if (len(request("last_name")) = 0) then
error = error & "You must enter your last name
"
end if
if(len(request("address")) = 0) then
error = error & "You must enter your address
"
end if
if (len(request("city")) = 0) then
error = error & "You must enter your city
"
end if
if (len(request("state")) = 0) then
error = error & "You must enter your state
"
end if
if (len(request("zip")) = 0) then
error = error & "You must enter your zip/postal code
"
end if
if (len(request("phone")) = 0) then
error = error & "You must enter your phone number
"
end if
if (len(request("email")) = 0) then
error = error & "You must enter your email address
"
end if
if (len(error) = 0) then
session("first_name") = request("first_name")
session("last_name") = request("last_name")
session("address") = request("address")
session("city") = request("city")
session("state") = request("state")
session("zip") = request("zip")
session("phone") = request("phone")
session("email") = request("email")
verifyForm = true
else
error = error & "
"
end if
end function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' send to Database
'
function save()
Set SQLUtil = Server.CreateObject("LAFCOMMON.SQLUtil")
SQL = "INSERT INTO contact_form (first_name, last_name, company, address, city, state, zip, phone, ext, email, affiliation, volunteer, student, prism, mentor, consultant, board, [join], packet, other) VALUES ('" & _
SQLUtil.canonicalize(request("first_name")) & "', '" & _
SQLUtil.canonicalize(request("last_name")) & "', '" & _
SQLUtil.canonicalize(request("company")) & "', '" & _
SQLUtil.canonicalize(request("address")) & "', '" & _
SQLUtil.canonicalize(request("city")) & "', '" & _
SQLUtil.canonicalize(request("state")) & "', '" & _
SQLUtil.canonicalize(request("zip")) & "', '" & _
SQLUtil.canonicalize(request("phone")) & "', '" & _
SQLUtil.canonicalize(request("phone_ext")) & "', '" & _
SQLUtil.canonicalize(request("email")) & "', '" & _
SQLUtil.canonicalize(request("affiliation")) & "', '" & _
SQLUtil.canonicalize(request("volunteer")) & "', '" & _
SQLUtil.canonicalize(request("student")) & "', '" & _
SQLUtil.canonicalize(request("prism")) & "', '" & _
SQLUtil.canonicalize(request("mentor")) & "', '" & _
SQLUtil.canonicalize(request("consultant")) & "', '" & _
SQLUtil.canonicalize(request("board")) & "', '" & _
SQLUtil.canonicalize(request("join")) & "', '" & _
SQLUtil.canonicalize(request("packet")) & "', '" & _
SQLUtil.canonicalize(request("other")) & "'); "
Set connection_obj = Server.CreateObject("ADODB.Connection")
connection_obj.Open "DSN=PRSAdb;UID=prsa;PWD=m3mb3rl1st"
connection_obj.Execute(SQL)
connection_obj.Close()
end function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' Main control statement
'
if (len(cmd) = 0) then
cmd = request("cmd")
end if
if (len(cmd) = 0) then
cmd = "new"
end if
select case(len(cmd))
case 3
showForm
case 6
if (verifyForm()) then
sendContact
save
else
showForm
end if
end select
%>
|
|
|
|
