<% if Request.Querystring("isSubmitted") = "yes" then Dim fname, lname, email, subject, comments, ErrorMsg Dim objCDO ' Data Validation 'If Request.Form.Count > 0 Then fname = Request.Querystring("First_Name") lname = Request.Querystring("Last_Name") email = Request.Querystring("Email_Address") subject = Request.Querystring("Subject") comments = Request.Querystring("Comments") comments = replace(comments,vbcrlf,"
") '*** data validation If fname = "" Then ErrorMsg = ErrorMsg & "Please enter your first name
" End If If lname = "" Then ErrorMsg = ErrorMsg & "Please enter your last name
" End If If email = "" Then ErrorMsg = ErrorMsg & "Please enter your email address
" End If If subject = "" Then ErrorMsg = ErrorMsg & "Please enter a subject
" End If If ErrorMsg = "" Then 'if you need to perform any database validations 'this would be a good place. 'once you are all done redirect to a final page 'Response.Redirect "thankyou.htm" PCTMsg = "***--- This Message was sent via the PCT Website - Contact Us ---***" Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = email objCDO.To = "phichi@lcc.net" objCDO.Cc = "kimgary1@earthlink.net" ' objCDO.Bcc = "bgates@microsoft.NET" objCDO.Subject = subject objCDO.Body = "" & PCTMsg & "
" & "From: " & fname & " " & lname & "

" & comments objCDO.BodyFormat = 0 objCDO.MailFormat = 0 objCDO.Send Set objCDO = Nothing ConfirmMsg = "

" & fname & " --- Thank You
for contacting Phi Chi Theta!

We will get back to you
as soon as possible.
" End If 'End If end if %> Phi Chi Theta National Website <% End If %> <% End If %>
<% If ErrorMsg <> "" Then %>

<%=ErrorMsg %>


Click HERE or press the back button
on the browser to return to the contact us form.

<% ConfirmMsg = "" %> <% else %> <% if ConfirmMsg <> "" then %>

<%=ConfirmMsg%>

<% else %>
First Name:
Last Name:
Email Address:
Subject:
Comment:
 

Get In Touch With Phi Chi Theta