Contact Summit Presentations for presentation training, production, coaching and multimedia

<%@ LANGUAGE="VBSCRIPT" %> <%Call ShowTitle()%> <% DIM view view=request.querystring("view") IF view <> "print" THEN %>

Present at your peak with Summit Presenatations

<%End If%>

<%Call BodyText()%>

<% IF view <> "print" THEN %>

<%End If%> <%Function ShowTitle()%> Contact Summit Presentations for presentation training, production, coaching and multimedia <%End Function Function BodyText() Select Case Request.QuerySTring("function") Case "send" Call NewSendEmail() Case Else%>

<%Call MainForm()%>

<%Call OtherContacts()%>

<%End Select End Function%> <%Function MainForm()%>

*Name:**
Company:
*Email:**
Phone:
Address:
City:
State:
Zip:
How do you preferred to be contacted?	Phone Email
How did you find us?
Question:

<%End Function%> <%Function OtherContacts()%>

Address:	P.O. Box 17502 Boulder, CO 80308
Phone:	303-818-2806
Fax:	303-665-9102

<%End Function%> <%Function SendEmail() strContactFormEmail = "wayne@summitpresentations.com" 'strContactFormEmailCC = "heather@wholebraintech.com" strCompanyName = "Summit Presentations" strName = request("Name") strCompany = request("Company") strPhone = request("Phone") strEmail = request("Email") strAddress = request("Address") strCity = request("City") strState = request("State") strZip = request("Zip") strPreferredContact = request("PreferredContactVia") strQuestion = request("Question") strHowFindUs = request("HowFindUs") Dim Message Dim BodyToSend Dim strEMessage If strEmail = "" Then strEmail = strContactFormEmail End If strSubject = "Message from Contact Page at " & strCompanyName 'set up email to be sent '*** Create the message object. Set Message = CreateObject("CDONTS.NewMail") '*** Set the from, to, and '*** subject fields. Message.From = strEmail Message.To = strContactFormEmail Message.Cc = strContactFormEmailCC Message.Subject = strSubject '*** Add any additional informtion '*** you want to the message text. BodyToSend = "Name: "& strName & vbCr & "Company: " & strCompany & vbCr & "Email: " & strEmail BodyToSend = BodyToSend & vbCr & vbCr & "Phone: " & strPhone & vbCr & "Address: " & strAddress & vbCr & "City: " & strCity & vbCr & "State: " & strState & vbCr & "Zip: " & strZip BodyToSend = BodyToSend & vbCr & vbCr & "Preffered Method to be Contacted: " & strPreferredContact & vbCr & "Question: " & strQuestion & vbCr & "Join Newsletter: " & strJoinNewsletter '*** Set the altered body text. Message.Body = BodyToSend '*** If there is an error, '*** continue with the script. On Error Resume Next '*** Send the email message. Message.Send '*** If sending the message caused '*** an error, then display the '*** message, else display a '*** success message (or redirect '*** to a different page). If Err.Number = 0 Then strEMessage = "QuestionSent" Else response.write(Err.Number) strEMessage = "QuestionNotSent" End If '*** Clear out the message variable Set Message = Nothing '*** End of If for checking '*** SendButton and message '*** to send. If strEMessage = "QuestionNotSent" Then%> Sorry Your message was not able to be processed at this time.
Please Email us instead. Sorry for the inconvenience. <%Else%> Thank you for contacting <%=strCompanyName%>. We appreciate your interest and will respond within 48 hours. <%End If End Function%> <%Function NewSendEMail() ' Send by connecting to port 25 of the SMTP server. Dim iMsg Dim iConf Dim Flds Dim strHTML strContactFormEmail = "wayne@summitpresentations.com" 'strContactFormEmailCC = "heather@wholebraintech.com" strCompanyName = "Summit Presentations" strName = request("Name") strCompany = request("Company") strPhone = request("Phone") strEmail = request("Email") strAddress = request("Address") strCity = request("City") strState = request("State") strZip = request("Zip") strPreferredContact = request("PreferredContactVia") strQuestion = request("Question") strHowFindUs = request("HowFindUs") Const cdoSendUsingPort = 2 set iMsg = CreateObject("CDO.Message") set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields ' Set the CDOSYS configuration fields to use port 25 on the SMTP server. With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort 'ToDo: Enter name or IP address of remote SMTP server. .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.summitpresentations.com" .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 .Update End With ' Build HTML for message body. strHTML = "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & " Name: " & strName & "
" strHTML = strHTML & " Company: " & strCompany & "
" strHTML = strHTML & " Address: " & strAddress & "
" strHTML = strHTML & " City: " & strCity & "
" strHTML = strHTML & " State: " & strState & "
" strHTML = strHTML & " Zip: " & strZip & "
" strHTML = strHTML & " Phone: " & strPhone & "
" strHTML = strHTML & " Email: " & strEmail & "
" strHTML = strHTML & " I prefer to be contacted via: " & strPreferredContact & "
" strHTML = strHTML & " My Question: " & strQuestion & "
" strHTML = strHTML & " I found Summit Presentations by: " & strHowFindUs & "
" strHTML = strHTML & "" strHTML = strHTML & "" ' Apply the settings to the message. With iMsg Set .Configuration = iConf .To = strContactFormEmail '.Cc = "heather@wholebraintech.com" .From = strEmail 'ToDo: Enter a valid email address. .Subject = "Message from Contact Page at " & strCompanyName .HTMLBody = strHTML .Send End With '*** If there is an error, '*** continue with the script. On Error Resume Next ' Clean up variables. Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing '*** If sending the message caused '*** an error, then display the '*** message, else display a '*** success message (or redirect '*** to a different page). If Err.Number = 0 Then strEMessage = "QuestionSent" Else response.write(Err.Number) strEMessage = "QuestionNotSent" End If '*** End of If for checking '*** SendButton and message '*** to send. If strEMessage = "QuestionNotSent" Then%> Sorry Your message was not able to be processed at this time.
Please Email us instead. Sorry for the inconvenience. <%Else%> Thank you for contacting <%=strCompanyName%>.
We appreciate your interest and will respond within 48 hours. <%End If 'MsgBox "Mail Sent!" End Function%>