 |
 |
|
Comments: Enter your email address (must be valid) and comments in the form below, then click the Send button.Your comments will be sent to the project administrator. <% Dim sEmailAddr, sComment, sMsg On Error Resume Next sEmailAddr = Request.Form("EmailAddress") sComment = Request.Form("txtComment") If Len(sEmailAddr) > 0 Then If InStr(1,sEmailAddr,"@") > 0 Then Call SendEmail Else sMsg = "Please enter a valid email address." End If End If If Err.number <> 0 Then sMsg = Err.Description End If Sub SendEmail() Dim oMail On Error Resume Next Set oMail = Server.CreateObject("CDONTS.NewMail") With oMail .From = sEmailAddr .To = "gm.wortman@earthlink.net" .Subject = "MRCDC Gaps Database Comments" .Body = sComment .Send End With Set oMail = Nothing If Err.number <> 0 Then sMsg = Err.Description Err.Clear End If End Sub %> <%If Len(sEmailAddr) > 0 And Len(sMsg) = 0 Then%> Your Email was sent successfully. <%End If%> |