<%@ 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
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("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"
.To = "info@kilimanjarorifles.com"
' .To = "bentut@gmail.com"
.Subject = "Kilimanjaro Rifles - Confirmation"
.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 = "Dear " & Trim(Request.Item("txtFirstName")) & " " & Trim(Request.Item("txtLastName")) & "," & vbCrLf & vbCrLf & _
"Thank you for you interest in Kilimanjaro Rifles, we will be in contact with you soon." & vbCrLf & vbCrLf & _
"Erik D. Eike"& vbCrLf & _
"President"& vbCrLf & _
"Kilimanjaro Rifles"& vbCrLf & _
"707 Richards Street - Suite 201"& vbCrLf & _
"Honolulu, Hawaii 96813"& vbCrLf & _
"Toll Free: (877) 351-4440"& vbCrLf & _
"Fax: (808) 537-5955" & vbCrLf & _
"Email: eike@kilimanjarorifles.com" & vbCrLf & _
"Web: www.kilimanjarorifles.com"
With cdoMessage
Set .Configuration = cdoConfig
.From = "info@kilimanjarorifles.com"
.Bcc = "melinda@orangeroc.com,andy@orangeroc.com"
.To = sEmail
.Subject = "Kilimanjaro Rifles - Confirmation"
.TextBody = sMessage
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
End Sub
%>
Register for news and updates Kilimanjaro Rifles