"
objEMail.Value("Reply-To") = """" & strName & """ <" & strEmail & ">"
objEMail.Subject = strSubject
strComments = "[Sent on behalf of " & strName & " <" & strEmail & ">]" & vbCrLf & vbCrLf & strComments
objEMail.Body = strComments
objEMail.Send()
Set objEMail = Nothing
'--------------------------------------------------------------
'--- Show results page.
'--------------------------------------------------------------
objDictForm.RemoveAll()
ctrlSection = "PASS"
writeBody()
Else
'--------------------------------------------------------------
'--- Output the comment form.
'--------------------------------------------------------------
ctrlSection = "FORM"
writeBody()
End If
' ---------------------------------------------------------------
' Clear the dictionary object and destroy the object.
' ---------------------------------------------------------------
objDictForm.RemoveAll()
Set objDictForm = Nothing
objDictAuthor.RemoveAll()
Set objDictAuthor = Nothing
Response.Flush()
%>
<%
' ---------------------------------------------------------------
' Subprocedure to write the document title.
' ---------------------------------------------------------------
Sub docTitle
%>
2061 Connections - Author Contact Form
<%
End Sub
' ---------------------------------------------------------------
' Subprocedure to write the header script.
' ---------------------------------------------------------------
Sub docHeader
%>
<%
End Sub
' ---------------------------------------------------------------
' Subprocedure to write the footer script.
' ---------------------------------------------------------------
Sub docFooter
End Sub
Function writeBody()
%>
<%
End Function
' ---------------------------------------------------------------
' Subprocedure to write the document body.
' ---------------------------------------------------------------
Sub docBody ()
If ctrlSection = "PASS" Then
writeDocHead()
writeSuccess()
ElseIf ctrlSection = "ERR" Then
writeDocHead()
writeError()
writeForm()
Else
writeDocHead()
writeForm()
End If
End Sub
Sub writeDocHead
%>
An electronic newsletter for the science education
community
<%
End Sub
' ---------------------------------------------------------------
' Subprocedure to write the form.
' ---------------------------------------------------------------
Sub writeForm
%>
<%
End Sub
' ---------------------------------------------------------------
' Subprocedure to write "success" message.
' ---------------------------------------------------------------
Sub writeSuccess
Response.Write("Your communication has been sent to the author (" & strAuthor & ").
")
Response.Write("Return to the article Field Notes.
")
End Sub
' ---------------------------------------------------------------
' Subprocedure to write any validation errors.
' ---------------------------------------------------------------
Sub writeError
%>
Errors were found in the data submitted.
<%=strValid%>
<%
End Sub
' ---------------------------------------------------------------
' Subprocedure to write out script processing errors.
' ---------------------------------------------------------------
Sub subShowError
' Clear any response that may have been cached up to now.
Response.Clear()
%>
Project 2061 : Page Error
Error Processing Request
An internal error was encountered while processing your registration. Please try refreshing this page
or going back to a previous page using the browser navigation.
If the problem persists, please contact the site administrator at web2061@aaas.org and ask for assistance.
When contacting us, please include the information below.
Page: | <%=Request.ServerVariables("SCRIPT_NAME")%> |
Source: | <%=Err.Source%> |
Description: | (<%=Err.Number%>) <%=Err.Description%> |
<%
' Send the response to the user and end the page processing.
Response.Flush()
Response.End()
End Sub
%>