|
|
<%
'==========================================
'Global variables
Dim strAction
strAction = Request.QueryString("action")
Dim strFont, strStartFont, strEndFont
strFont = "arial"
strStartFont = ""
strEndFont = ""
Dim strFormQuery
'Local scoped variables
Dim strTemp_form_date, strTemp_form_subject, strTemp_form_message
Dim strTemp_form_firstName, strTemp_form_lastName, strTemp_form_email
'==========================================
'==========================================
'Function for adding a new comment to the database
sub addComment
strTemp_form_date = month(date) & "/" & day(date) & "/" & year(date) & " " & Time
validateForm()
'Set dbRecordSet = Server.CreateObject("ADODB.Recordset")
'dbRecordSet.Open "comments", strConnect, adOpenStatic, adLockOptimistic, adCmdTable
'dbRecordSet.AddNew
'dbRecordSet("subject") = strTemp_form_subject
'dbRecordSet("message") = strTemp_form_message
'dbRecordSet("firstName") = strTemp_form_firstName
'dbRecordSet("lastName") = strTemp_form_lastName
'dbRecordSet("email") = strTemp_form_email
'dbRecordSet.Update
'dbRecordSet.Close
'Set dbRecordSet = Nothing
notifyAdministrator()
end sub
'==========================================
'ADMINISTRATIVE NOTIFICATION FUNCTIONS
'==========================================
sub notifyAdministrator
'send mail
Dim administrators
administrators = "fred.wright@dot.state.fl.us,joe.montalto@lochrane.com,anna@lw.net"
'administrators = "dave@lw.net"
Dim mailObj
set mailObj = Server.CreateObject("CDONTS.NewMail")
mailObj.BodyFormat = 0
mailObj.MailFormat = 0
mailObj.From = strTemp_form_firstName & " " & strTemp_form_lastName & "<" & strTemp_form_email & ">"
mailObj.To = administrators
mailObj.Subject = "I-75 Project Comment (" & strTemp_form_subject & ")"
mailObj.Body = strTemp_form_message & vbCrLf & vbCrLf &_
strTemp_form_firstName & " " & strTemp_form_lastName & vbCrLf &_
strTemp_form_email
mailObj.Send
Set mailObj = Nothing
end sub
'==========================================
'==========================================
'Check and validate contents of form
sub validateForm
strTemp_form_subject = Request.Form("subject")
strTemp_form_message = Request.Form("message")
strTemp_form_firstName = Request.Form("firstName")
strTemp_form_lastName = Request.Form("lastName")
strTemp_form_email = Request.Form("email")
If strTemp_form_subject = " " Then
strTemp_form_subject = "No Subject"
End If
If strTemp_form_message = " " Then
strTemp_form_message = "This message is blank"
End If
'If strTemp_form_firstName = " " Then
' strTemp_form_firstName = "No first name given"
'End If
'If strTemp_form_lastName = " " Then
' strTemp_form_lastName = "No last name given"
'End If
If strTemp_form_email = " " Then
strTemp_form_email = "admin@lw.net"
End If
end sub
'==========================================
'==========================================
'Main router for actions
Select Case strAction
Case "addComment"
addComment()
End Select
'==========================================
'==========================================
'Decide what kind of page to display (list, or individual message)
Dim strDisplayType
strDisplayType = Request.QueryString("displayType")
If strDisplayType = "message" Then
'Set up any variable only needed for message display
Else
'Default behaviour
strDisplayType = "list"
End If
strFormQuery = strFormQuery & "&displayType=" & strDisplayType
'==========================================
%>
<%
if strAction = "addComment" then
Response.Write "Thankyou"
end if
%>
|
|
|
|
|
 |
