Join Sendero and Sweetman Systems at CSUN 2018 in San Diego, March 21 - 23
Sendero CSUN Sessions:
Sendero/Sweetman Activities Include:
- Sendero and Sweetman's party in Harbor Suite 977 - Friday 5:00PM
Please fill out the following form to indicate your interest in the Sendero/Sweetman activities. Once we process your submission, we will confirm your Suite meeting place and time.
<%
If Action = "SendEmail" Then
' Here we quickly check/validate the information entered
' These checks could easily be improved to look for more things
If IsValidEmail(CSUN_Email) = "False" Then
IsError = "Yes"
Response.Write("
You did not enter a valid email address.")
End If
If CSUN_Name = "" Then
IsError = "Yes"
Response.Write("
You did not enter your Name.")
End If
If CSUN_Phone = "" Then
IsError = "Yes"
Response.Write("
You did not enter a Phone Number.")
End If
End If
' If there were no input errors and the action of the form is "SendEMail" we send the email off
If Action = "SendEmail" And IsError <> "Yes" Then
Dim strBody
' Here we create a nice looking html body for the email
strBody = strBody & "
CSUN Form submitted at " & Now() & vbCrLf & "
"
strBody = strBody & "From http://" & Request.ServerVariables("HTTP_HOST") & vbCrLf & "
"
strBody = strBody & "IP " & Request.ServerVariables("REMOTE_ADDR") & vbCrLf & "
"
strBody = strBody & "Name" & " : " & " " & Replace(CSUN_Name,vbCr,"
") & "
"
strBody = strBody & "Email" & " : " & " " & Replace(CSUN_Email,vbCr,"
") & "
"
strBody = strBody & "Phone" & " : " & " " & Replace(CSUN_Phone,vbCr,"
") & "
"
strBody = strBody & "Company" & " : " & " " & Replace(CSUN_Company,vbCr,"
") & "
"
strBody = strBody & "Title" & " : " & " " & Replace(CSUN_Title,vbCr,"
") & "
"
strBody = strBody & "Sessions" & " : " & " "
if Indtravel<>"" then
strBody = strBody & "Indtravel"
end if
if Allgps2<>"" then
strBody = strBody & "Allgps2"
end if
if FSI<>"" then
strBody = strBody & "FSI"
end if
if HIMS<>"" then
strBody = strBody & "HIMS"
end if
if HW<>"" then
strBody = strBody & "HW"
end if
if SS<>"" then
strBody = strBody & "SS"
end if
if Allgps3<>"" then
strBody = strBody & "Allgps3"
end if
if Party<>"" then
strBody = strBody & "Party"
end if
strBody = strBody & "
"
strBody = strBody & ""
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
'This section provides the configuration information for the remote SMTP server.
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = youremail
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourpassword
ObjSendMail.Configuration.Fields.Update
'End remote SMTP server configuration section==
ObjSendMail.To = youremail
ObjSendMail.From = CSUN_Email
ObjSendMail.Subject="CSUN 2018 Participation"
' we are sending a html email.. simply switch the comments around to send a text email instead
ObjSendMail.HTMLBody = strBody
'ObjSendMail.TextBody = strBody
ObjSendMail.Send
Set ObjSendMail = Nothing
' change the success messages below to say or do whatever you like
' you could do a response.redirect or offer a hyperlink somewhere.. etc etc
%>
Thank you for joining us at CSUN 2018! Stay tuned to this page for more details about CSUN. Once we process your submission, we will confirm your Suite meeting place and time.
<% Else %>
<% End If %>