Proposals...
Want to propose?
Wish someone a Happy Birthday or Anniversary?
Here is your chance to do it BIG!
Here's how it works: Pick a template and fill in the specifics. If you want to add a custom photo or message. If the special request can be honored, we will contact you with an estimate for the additional cost. All personal messages must be pre-paid and sorry, no Credit Cards. Be sure to include your desired time and date, the message will appear for 5 minutes and must be scheduled at least 2 weeks in advance. This program is not available on New Year's Eve or Thanksgiving Day.
Examples of Templates that will be used for your request
Sorry you have not completed the security box, please try again
"
elseif Request.Form("submit") = "Submit" and Trim(Request.Form("ImageField")) = Session("ImageNo") then
seBody = " - Feedback Form - " & vbcrlf & "-------------------" & vbcrlf
seBody = seBody & "Fullname: " & trim(request.form("fullname")) & vbcrlf
seBody = seBody & "E-Mail: " & trim(request.form("email")) & vbcrlf
seBody = seBody & "Tel.: " & trim(request.form("tel")) & vbcrlf
seBody = seBody & "Mob.: " & trim(request.form("mob")) & vbcrlf
seBody = seBody & "Type of Event: " & trim(request.form("typeofevent")) & vbcrlf & vbcrlf
seBody = seBody & "Comments: " & vbcrlf & "-------------" & vbcrlf & vbcrlf
seBody = seBody & trim(request.form("comments"))
seBody = seBody & "To: " & trim(request.form("to")) & vbcrlf
seBody = seBody & "From: " & trim(request.form("from")) & vbcrlf
seBody = seBody & "Message on Board: " & vbcrlf & "-------------" & vbcrlf
seBody = seBody & trim(request.form("message"))
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = SERVER_ADDR
.Update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = FROM_EMAIL
.To = TO_EMAIL
.Subject = SUBJECT
.TextBody = seBody
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
'Redirecting User
response.redirect REDIRECT_URL
end if
end sub
%>