<%@ language="VBScript" %>
<%
Dim strOnlineMessage
If Session("sessionRegistered") = True Then
Response.Redirect "thankYou.asp"
ElseIf Len(Request.Item("hidSubmit")) Then
SendEmail(Trim(Request.Item("txtEmail")))
SendEmailConfirmation(Trim(Request.Item("txtEmail")))
Session("sessionRegistered") = True
Response.Redirect "thankYou.asp"
End If
Sub SendEmail(sEmail)
'*****************************************************************
' Sub Name: Send Email
' Date: September 21, 2006
' Version: 1.1
' Developed: Julio C. Arreygue
' Email: julio@arreygue.com
' Purpose: Emails BHH staff
' Note: Display items only if selected.
' Don't ask why this isn't going into a database.
' I'm Code Monkey, I do what I'm told.
'*****************************************************************
Dim sZip
Dim sMessage
Dim cdoMessage
Dim cdoConfig
If Len(Trim(Request.Item("txtZip2"))) Then
sZip = "-" & Trim(Request.Item("txtZip2"))
Else
sZip = ""
End If
sMessage = "Name: " & Trim(Request.Item("txtFirstName")) & " " & Trim(Request.Item("txtLastName")) & vbCrLf & _
"Address: " & Trim(Request.Item("txtAddress")) & vbCrLf & _
Trim(Request.Item("txtCity")) & ", " & Trim(Request.Item("txtState")) & " " & Trim(Request.Item("txtZip")) & sZip & vbCrLf & _
"Phone: (" & Request.Item("txtPhoneDayArea") & ") " & Request.Item("txtPhoneDay1") & "-" & Request.Item("txtPhoneDay2") & " " & Request.Item("txtPhoneDayExt") & vbCrLf
If Len(Request.Item("txtPhoneCellArea")) Then
sMessage = sMessage & "Cell: (" & Request.Item("txtPhoneCellArea") & ") " & Request.Item("txtPhoneCell1") & "-" & Request.Item("txtPhoneCell2") & vbCrLf
End If
If Len(Request.Item("txtPhoneHomeArea")) Then
sMessage = sMessage & "Home: (" & Request.Item("txtPhoneHomeArea") & ") " & Request.Item("txtPhoneHome1") & "-" & Request.Item("txtPhoneHome2") & vbCrLf
End If
If Len(Request.Item("moreinfo")) Then
If StrComp(Request.Item("moreinfo"), "Other") = 0 Then
sMessage = sMessage & "Would Like More info about: other - " & Trim(Request.Item("moreinfoother")) & vbCrLf
Else
sMessage = sMessage & "Would Like More info about: " & Trim(Request.Item("moreinfo")) & vbCrLf
End If
End If
If Len(Request.Item("newsletter")) Then
sMessage = sMessage & "Newsletter: " & Trim(Request.Item("newsletter")) & vbCrLf
End If
If Len(Request.Item("alerts")) Then
sMessage = sMessage & "Missing Child Alerts: " & Trim(Request.Item("alerts")) & vbCrLf
End If
If Len(Request.Item("comments")) Then
sMessage = sMessage & "Comments: " & Trim(Request.Item("comments")) & vbCrLf
End If
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "mail-fwd"
.Update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = sEmail
.Bcc = "andy@orangeroc.com"
.To = "charlene.s.takeno@hawaii.gov, veronica.r.garcia@hawaii.gov,melinda@orangeroc.com"
' .To = "bentut@gmail.com"
.Subject = "Friends of the Missing Child Center Hawaii"
.TextBody = sMessage
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
End Sub
Sub SendEmailConfirmation(sEmail)
'*****************************************************************
' Sub Name: Send Confirmation Email to request
' Date: October 10, 2006
' Version: 1.0
' Developed: Julio C. Arreygue
' Email: julio@arreygue.com
' Purpose: Emails a confirmation to customer
' Note:
'*****************************************************************
Dim sMessage
Dim cdoMessage
Dim cdoConfig
'----------------------------------------------------------------------------------------------------
'-- Send confirmation to user
'----------------------------------------------------------------------------------------------------
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "mail-fwd"
.Update
End With
Set cdoMessage = CreateObject("CDO.Message")
sMessage = "Aloha " & Trim(Request.Item("txtFirstName")) & " " & Trim(Request.Item("txtLastName")) & "," & vbCrLf & vbCrLf & _
"Thank you for taking the time to register with the Friends of the Missing Child Center – Hawaii. A member of our staff will be contacting you shortly to find out more about your interests and ways you might like to help our organization. From educating Hawaii’s children and families about ways to stay safe, to helping us with efforts to locate and reunify missing children with their families – we are always looking for people and resources to help make our organization a success. " & vbCrLf & vbCrLf & _
"We look forward to speaking with you," & vbCrLf & vbCrLf & _
"Mahalo Nui Loa," & vbCrLf & vbCrLf & _
"The Friends of The Missing Child Center – Hawaii"
With cdoMessage
Set .Configuration = cdoConfig
.From = "hawaiimissingkids@hawaii.gov"
.Bcc = "melinda@orangeroc.com,andy@orangeroc.com"
.To = sEmail
.Subject = "Friends of the Missing Child Center - Hawaii Confirmation"
.TextBody = sMessage
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
End Sub
%>
Register for news and updates