<%
Dim cnConnection
Dim cmComments
Dim cmHash
Dim cmIncident
Dim strDescription
Dim strFileName
Dim sFileName
Dim iPos
Dim strTextEventName
Dim strIncidentID
Dim strSystem
Dim strPreviousPage
Dim strNotes
Dim strComments
Dim bolDatabaseError
Dim oFileObj
Dim strTempSourceFileName
Dim strTempFileName
Dim bol64Bit
Dim strPrevLoadedFiles
Dim strErrNumber
Dim strErrDescription
Dim strFailureNumber
Dim strHash
Dim strEventName
Dim strName
Dim strPhone
Dim strEmail
on error resume next
If oPassMgrObj.IsAuthenticated(TimeWindow, ForceLogin) = false then
Response.Redirect("http://" & Request.ServerVariables("SERVER_NAME") & "/welcome.asp")
Response.End
end if
Call CVerifyEntry
Call CSetPreviousPage
Call CCreateObjects
Call CGetFileName
Call CCreateConnection
if len(strDescription) > 512 then
strDescription = left(strDescription, 512)
end if
CAll CSetMessage
if Request.Cookies("Misc")("auto") = "True" then
Call CSetCustomer
End if
Call CSetIncident
if Request.Cookies("Misc")("unassoc") = "true" then
Call CGetIncidentID
end if
Response.Cookies("Misc")("unassoc") = "false"
if bolDatabaseError = true then
Response.Write "
" & L_COMMENTS_DATABASE_FAILURE_ERRORMESSAGE & "
"
Response.Write "
" & L_COMMENTS_DATABASE_FAILUREBODY_ERRORMESSAGE & "
"
Response.Write "
Error Number:" & strErrNumber & "
"
Response.Write "
Failure Number:" & strFailureNumber & "
"
Response.Write "
Error Description:" & strErrDescription & "
" & L_COMMENTS_UNABLE_TOCONNECT_ERRORMESSAGE & "
"
Response.Write "
" & L_COMMENTS_DATABASE_FAILED_TEXT & "
" & L_COMMENTS_UNABLE_TOCONNECT_ERRORMESSAGE & "
"
Response.Write "
" & L_COMMENTS_CONNECTION_FAILED_TEXT & "
Error Number:" & cnConnection.Errors(0).Number & "
"
Response.Write "Error Description:" & cnConnection.Errors(0).Description & "
"
cnConnection.Errors.Clear
strFailureNumber = 4
Call CDestroyObjects
%>
<%
Response.End
end if
End Sub
Private Sub CGetFileName
on error resume next
sFileName = Request.Cookies("ocaFileName")
iPos = Instr(1, sFileName, ",")
sFileName = Left(sFileName, iPos - 1)
if InstrRev(sFileName, "/") <> 0 then
sFileName = Right(sFileName, len(sFileName) - InStrRev(sFileName, "/"))
elseif InstrRev(sFileName, "\") <> 0 then
sFileName = Right(sFileName, len(sFileName) - InStrRev(sFileName, "\"))
end if
End Sub
Private Sub CCreateObjects
on error resume next
bol64Bit = false
bolDatabaseError = false
strIncidentID = Request.Cookies("Misc")("txtIncidentID")
'Create connection, command and recordset objects
set cnConnection = CreateObject("ADODB.Connection")
set cmComments = CreateObject("ADODB.Command")
set cmHash = CreateObject("ADODB.Command")
set cmIncident = CreateObject("ADODB.Command")
Set oFileObj = CreateObject("Scripting.FileSystemObject")
End Sub
Private Sub CDestroyObjects
on error resume next
'Close connection object and set ado objects to nothing
if cnConnection.State = adStateOpen then cnConnection.Close
set cmIncident = nothing
set cmComments = nothing
set cmHash = nothing
set cnConnection = nothing
End Sub
Private Sub CSetPreviousPage
on error resume next
strPreviousPage = Request.ServerVariables("SCRIPT_NAME")
strPreviousPage = Right(strPreviousPage, len(strPreviousPage) - Instrrev(strPreviousPage, "/"))
Response.Cookies("Misc")("PreviousPage") = strPreviousPage
End Sub
Private Sub CVerifyEntry
on error resume next
if Trim(Request.Cookies("Misc")("PreviousPage")) <> "submit.asp" and Trim(Request.Cookies("Misc")("PreviousPage")) <> "view.asp" then
Response.Redirect("http://" & Request.ServerVariables("SERVER_NAME") & "/welcome.asp")
Response.End
end if
End Sub
'_____________________________________________________________________________________________________________________
%>
<%
Response.Cookies("Misc")("txtIncidentID") = "~|~|"
Response.Cookies("Misc")("auto") = "False"
Response.Cookies("Misc")("privacy") = "1"
%>
<%
Response.Cookies("txtEventName") = "~|~|"
Response.Cookies("selSystem") = "0"
%>