ASP Form Handler Error

Forms giving intermittent error mesages.

[dolphinsdock]

I just converted a large number of forms from CDONTS to CDOSYS. I tested all the forms and they seemed to king fine. Staff members (as well as my boss) have encountered errors when using the forms however. I have not been able to replicate the error either from the office or from home. The forms seems to be working intermittently. It's not a issue with the individual computers being used because one staff membered recievied an error while submitting a form only to have it work from the same computer a few hours later. I had several staff members cut and paste the error message and email it to me:

Error Type:
(0x8004020E)
formhandler.asp, line 201

line 201 is: objCDOSYSMail.Send

[mrMister]

You'll have to post your code Nobody can help you with a generic error message like that.

[dolphinsdock]

ok, I'm just posting the whole thing then. It's long and most of it's probably irrelevant.

-------code---------

<%
' Validate: String
Function check_string(field, low, high, mode, isOpt)
 check_string = false
 If ( (Len(field) = 0) and (isOpt = true) ) Then
 check_string = true 
 Else
 If (mode=1) then
 If Len(field) >= low then
 check_string = true
 End If
 End If
 If (mode=2) then
 If Len(field) <= high then
 check_string = true
 End If
 End If
 If (mode=3) then
 If Len(field) >= low and Len(field) <= high then
 check_string = true
 End If
 End If
 End If
End Function
Dim objCDOSYSMail
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Dim objCDOSYSCnfg
Set objCDOSYSCnfg = Server.CreateObject("CDO.Configuration")
Name = request.form("Name")
Building = request.form("Building")
WeekOf = request.form("WeekOf")
CommendableActs = request.form("CommendableActs")
StaffIssues = request.form("StaffIssues")
StudentConcerns = request.form("StudentConcerns")
ResHallSummary = request.form("ResHallSummary")
PerformanceGrade = request.form("PerformanceGrade")
Why = request.form("Why")
Submit = request.form("Submit")
Reset = request.form("Reset")
' Field Validations
validationFailed = false
FTGName_errmsg = ""
if ( (not check_string(Name, 1, 0, 1, false))) then
 validationFailed = true
 FTGName_errmsg = "Please enter your name"
 errorList = errorList & FTGName_errmsg & "<BR>"
End if
FTGBuilding_errmsg = ""
if ( (not check_string(Building, 1, 0, 1, false))) then
 validationFailed = true
 FTGBuilding_errmsg = "Please enter your building"
 errorList = errorList & FTGBuilding_errmsg & "<BR>"
End if
FTGWeekOf_errmsg = ""
if ( (not check_string(WeekOf, 1, 0, 1, false))) then
 validationFailed = true
 FTGWeekOf_errmsg = "Please enter the week"
 errorList = errorList & FTGWeekOf_errmsg & "<BR>"
End if
FTGPerformanceGrade_errmsg = ""
if ( (not check_string(PerformanceGrade, 1, 0, 1, false))) then
 validationFailed = true
 FTGPerformanceGrade_errmsg = "Please select a Grade"
 errorList = errorList & FTGPerformanceGrade_errmsg & "<BR>"
End if
FTGWhy_errmsg = ""
if ( (not check_string(Why, 1, 0, 1, false))) then
 validationFailed = true
 FTGWhy_errmsg = "Why do you deserve this grade?"
 errorList = errorList & FTGWhy_errmsg & "<BR>"
End if
If (validationFailed = true) Then
 dim fsoError
 set fsoError = server.CreateObject("Scripting.FileSystemObject")
 set fErrorHandle = fsoError.GetFile(Server.MapPath("hdweeklyerror.asp"))
 set tsError = fErrorHandle.OpenAsTextStream(1, -2)
 Do While not tsError.AtEndOfStream
 errorPage = errorPage & tsError.ReadLine & vbCrLf
 Loop
 errorPage = Replace(errorPage, "<!--VALIDATIONERROR-->", errorList)
 errorPage = Replace(errorpage, "<!--FIELDVALUE:Name-->", Name)
 errorPage = Replace(errorpage, "<!--FIELDVALUE:Building-->", Building)
 errorPage = Replace(errorpage, "<!--FIELDVALUE:WeekOf-->", WeekOf)
 errorPage = Replace(errorpage, "<!--FIELDVALUE:CommendableActs-->", CommendableActs)
 errorPage = Replace(errorpage, "<!--FIELDVALUE:StaffIssues-->", StaffIssues)
 errorPage = Replace(errorpage, "<!--FIELDVALUE:StudentConcerns-->", StudentConcerns)
 errorPage = Replace(errorpage, "<!--FIELDVALUE:ResHallSummary-->", ResHallSummary)
 errorPage = Replace(errorpage, "<!--FIELDVALUE:PerformanceGrade-->", PerformanceGrade)
 errorPage = Replace(errorpage, "<!--FIELDVALUE:Why-->", Why)
 errorPage = Replace(errorpage, "<!--FIELDVALUE:Submit-->", Submit)
 errorPage = Replace(errorpage, "<!--FIELDVALUE:Reset-->", Reset)
 errorPage = Replace(errorpage, "<!--ERRORMSG:Name-->", FTGName_errmsg)
 errorPage = Replace(errorpage, "<!--ERRORMSG:Building-->", FTGBuilding_errmsg)
 errorPage = Replace(errorpage, "<!--ERRORMSG:WeekOf-->", FTGWeekOf_errmsg)
 errorPage = Replace(errorpage, "<!--ERRORMSG:PerformanceGrade-->", FTGPerformanceGrade_errmsg)
 errorPage = Replace(errorpage, "<!--ERRORMSG:Why-->", FTGWhy_errmsg)
 Response.Write errorPage
 Response.End
 
End If
' Owner Email: cdosys
objCDOSYSCnfg.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.lynchburg.edu"
objCDOSYSCnfg.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCnfg.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCnfg.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCnfg.Fields.Update
objCDOSYSMail.Configuration = objCDOSYSCnfg
emailFrom = Name
emailSubject = "HD Weekly Report"
emailBodyHtml = "<html>" & vbCrLf _
 & "" & vbCrLf _
 & "<head>" & vbCrLf _
 & "<title>Hall Director Weekly Report OFFICE OF RESIDENCE LIFE" & vbCrLf _
 & "</title>" & vbCrLf _
 & "" & vbCrLf _
 & "</head>" & vbCrLf _
 & "" & vbCrLf _
 & "<body>" & vbCrLf _
 & "" & vbCrLf _
 & " " & vbCrLf _
 & " <p align=""center"">" & vbCrLf _
 & " <b><font size=""5"">Hall Director Weekly Report</font><br>" & vbCrLf _
 & " OFFICE OF RESIDENCE LIFE<br>" & vbCrLf _
 & " LYNCHBURG COLLEGE</b></p>" & vbCrLf _
 & " <p align=""left""><b>Name: </b>" & Name & "<b> </b>&nbsp;<b>Building: </b>" & Building & "<b>" & vbCrLf _
 & " </b>&nbsp;<b>Week of: #</b>WeekOf#</p>" & vbCrLf _
 & " <table border=""0"" cellpadding=""3"" cellspacing=""0"" style=""border-collapse: collapse"" bordercolor=""#111111"" width=""100%"">" & vbCrLf _
 & " <tr>" & vbCrLf _
 & " <td width=""21%""><b>Commendable Acts:<br>" & vbCrLf _
 & " </b>(Staff or Residents)</td>" & vbCrLf _
 & " <td width=""79%"">" & CommendableActs & "</td>" & vbCrLf _
 & " </tr>" & vbCrLf _
 & " <tr>" & vbCrLf _
 & " <td width=""21%""><b>Staff Issues:<br>" & vbCrLf _
 & " </b>(Incl 1on1s conducted)</td>" & vbCrLf _
 & " <td width=""79%"">" & StaffIssues & "</td>" & vbCrLf _
 & " </tr>" & vbCrLf _
 & " <tr>" & vbCrLf _
 & " <td width=""21%""><b>Student Concerns:<br>" & vbCrLf _
 & " </b>(Concerns)</td>" & vbCrLf _
 & " <td width=""79%"">" & StudentConcerns & "</td>" & vbCrLf _
 & " </tr>" & vbCrLf _
 & " <tr>" & vbCrLf _
 & " <td width=""21%""><b>Residence Hall Summary:</b></td>" & vbCrLf _
 & " <td width=""79%"">" & ResHallSummary & "</td>" & vbCrLf _
 & " </tr>" & vbCrLf _
 & " </table>" & vbCrLf _
 & " <hr>" & vbCrLf _
 & " <p><b>Grade your Performance this Week: </b>" & PerformanceGrade & "</p>" & vbCrLf _
 & " <p><b>Why? </b>" & Why & "</p>" & vbCrLf _
 & "" & vbCrLf _
 & "" & vbCrLf _
 & "</body>" & vbCrLf _
 & "" & vbCrLf _
 & "</html>" & vbCrLf _
 & ""
objCDOSYSMail.To = """Greg Nayor"" <[e-mail]>"
objCDOSYSMail.From = emailFrom
objCDOSYSMail.Subject = emailSubject
objCDOSYSMail.HTMLBody = emailBodyHtml
objCDOSYSMail.BodyPart.Charset = "ISO-8859-1"
objCDOSYSMail.Send
dim fsoSuccess
set fsoSuccess = server.CreateObject("Scripting.FileSystemObject")
set fSuccessHandle = fsoSuccess.GetFile(Server.MapPath("success.html"))
set tsSuccess = fSuccessHandle.OpenAsTextStream(1, -2)
Do While not tsSuccess.AtEndOfStream
 successPage = successPage & tsSuccess.ReadLine & vbCrLf
Loop
successPage = Replace(successPage, "<!--FIELDVALUE:Name-->", Name)
successPage = Replace(successPage, "<!--FIELDVALUE:Building-->", Building)
successPage = Replace(successPage, "<!--FIELDVALUE:WeekOf-->", WeekOf)
successPage = Replace(successPage, "<!--FIELDVALUE:CommendableActs-->", CommendableActs)
successPage = Replace(successPage, "<!--FIELDVALUE:StaffIssues-->", StaffIssues)
successPage = Replace(successPage, "<!--FIELDVALUE:StudentConcerns-->", StudentConcerns)
successPage = Replace(successPage, "<!--FIELDVALUE:ResHallSummary-->", ResHallSummary)
successPage = Replace(successPage, "<!--FIELDVALUE:PerformanceGrade-->", PerformanceGrade)
successPage = Replace(successPage, "<!--FIELDVALUE:Why-->", Why)
successPage = Replace(successPage, "<!--FIELDVALUE:Submit-->", Submit)
successPage = Replace(successPage, "<!--FIELDVALUE:Reset-->", Reset)
Response.Write successPage
' End of ASP script
%>

-------code-------

The thing that has really stumped me is the fact that it's an intermittent problem.

[defanjos]

Enter "0x8004020E cdosys" (no quotes) on a search engine - it might point you in the right direction.