<%@ language="VBScript" %>
<%
Dim strOnlineMessage
If Session("sessionRegistered") = True Then
Response.Redirect "thankYou.asp"
ElseIf Len(Request.Item("hidSubmit")) Then
SendEmail(Trim(Request.Item("txtEmail")))
SendConfirmationEmail(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("txtName")) & vbCrLf & _
"Address: " & Trim(Request.Item("txtAddress")) & vbCrLf & _
Trim(Request.Item("txtCity")) & ", " & Trim(Request.Item("txtState")) & " " & Trim(Request.Item("txtZip")) & vbCrLf & _
"Phone: " & Request.Item("txtPhone") & vbCrLf & _
"Email: " & sEmail & 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("txtCurrentPhysician")) Then
sMessage = sMessage & "Current Physician: " & Trim(Request.Item("txtCurrentPhysician")) & vbCrLf
End If
If Len(Request.Item("selectType")) Then
sMessage = sMessage & "Type of Request: " & Trim(Request.Item("selectType")) & vbCrLf
End If
If Len(Request.Item("checkNewsletter")) Then
sMessage = sMessage & "Receive a copy of the RIH Annual Journal: " & Trim(Request.Item("checkNewsletter")) & vbCrLf
Else
sMessage = sMessage & "Receive a copy of the RIH Annual Journal: NO" & 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,melinda@orangeroc.com,deb@retinahawaii.com,Lindsay@retinahawaii.com"
.To = "info@retinahawaii.com"
.Subject = "Retina Institute of Hawaii - Contact Form"
.TextBody = sMessage
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
End Sub
Sub SendConfirmationEmail(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 = "Dear " & Trim(Request.Item("txtName")) & "," & vbCrLf & vbCrLf & _
"Thank you for visiting the Retina Institute of Hawaii website and for registering with us. If you requested more information in the comment box, a representative from our office will be in touch with you shortly. " & vbCrLf & vbCrLf & _
"Since 2001, Retina Institute of Hawaii has specialized in the medical and surgical management of sight threatening diseases that affect the retina, vitreous and macula. Our focus is on preventing, suspending or reversing vision loss. " & vbCrLf & vbCrLf & _
"If we can be of any help to you or a member of your family, please don’t hesitate to call us. " & vbCrLf & vbCrLf & _
"Michael D. Bennett M.D. and Staff" & vbCrLf & vbCrLf & _
"Retina Institute of Hawaii" & vbCrLf & vbCrLf & _
"Yacht Harbor Professional Center" & vbCrLf & vbCrLf & _
"1620 Ala Moana Blvd., #500" & vbCrLf & vbCrLf & _
"Honolulu, HI 96815" & vbCrLf & vbCrLf & _
"T (808) 955-0255" & vbCrLf & vbCrLf & _
"F (808) 955-4155" & vbCrLf & vbCrLf & _
"Email: info@retinahawaii.com" & vbCrLf
' & vbCrLf & vbCrLf & _
' "Test Confirmation from RIH Contact Form - This will be modified before it's made public." & vbCrLf & vbCrLf & _
' "Retina Institute of Hawaii "
With cdoMessage
Set .Configuration = cdoConfig
.From = "info@retinahawaii.com"
.Bcc = "melinda@orangeroc.com,andy@orangeroc.com"
.To = sEmail
.Subject = "Retina Institute of Hawaii Confirmation"
.TextBody = sMessage
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
End Sub
%>