|
I tested a text file and a doc file and there was
no corruption but here is the corrupted asp file and after that is the asp file
that was downloaded with outlook express. Here is part of the corrupted
file (downloaded from Imail Web Mail and after that is the same file downloaded
to Outlook Express) I took out my clients name out of the areas where it was
located and and only included the first part of the asp code. There is much
more but I think you can see what I mean.
Thanks
Corrupted File:
<%@ Lang<%<h
ml> ml>
Explicit%> %> <Head> <link re</He<body> <% > Dim oRS "stDim sSQL stDim strConn lesheetDim objConn DiDim iCount iteri iCount iteria Dim sInsertEmaiDim iInsertEmaiDim sNewEmaiDim sOldEmailDim sEMail Dim sBError Type href="" type="Dim sEError Type sBError = "<center><font face=""arcosEError = "</b></font></center>" rror = "</bFunction
CheckForErrors(objConn)
Dim objError orErrors(objConn) al""If objConn.Errors.count > 0 Then For Each objError in objConn.Errors si If objError.Number <> 0 Then ors size=""4"" ext/css Response.Write "<Table Border=1>" & _ e=""4"" ext/css"> "<TR><TD>Error Property</TD><TD>Contents</TD>" & "</TR><TR><TD>Number</TD><TD>" & objError "</TD></TR><TR><TD>Native Error</TD><TD>" & _ & _ objerror.NativeError & "</TD></TR>" & _ "<TR><TD>SQLState</TD><TD>" & objErro "</TD></TR><TR><TD>Source</TD><TD>" objError.Source & "</TD></TR>" & _ _ ta "<TR><TD>Description</TD><TD>" & _ objError.Description & Response.Write objerror.HelpContext Response.Write "<br Res Chec End If Next Errors = True Else CheckForErro EEn Function
s = False ror.helpfile BLE>" e & Function s = False ror.helpfile Normal File:
<%@ Language=VBScript %>
<%Option Explicit%> <html> <Head> <link rel="stylesheet" href="" type="text/css"> </Head> <body> <% Dim oRS Dim sSQL Dim strConn Dim objConn Dim sSearchCriteria Dim iCount Dim sInsertEmail
Dim iInsertEmailType Dim sNewEmail Dim sOldEmail Dim sEMail Dim sBError Dim sEError sBError = "<center><font face=""arial"" size=""4"" color=""blue""><b>" sEError = "</b></font></center>" Function CheckForErrors(objConn)
Dim objError If objConn.Errors.count > 0 Then For Each objError in objConn.Errors If objError.Number <> 0 Then Response.Write "<Table Border=1>" & _ "<TR><TD>Error Property</TD><TD>Contents</TD>" & _ "</TR><TR><TD>Number</TD><TD>" & objError.Number & _ "</TD></TR><TR><TD>Native Error</TD><TD>" & _ objerror.NativeError & "</TD></TR>" & _ "<TR><TD>SQLState</TD><TD>" & objError.SQLState & _ "</TD></TR><TR><TD>Source</TD><TD>" & _ objError.Source & "</TD></TR>" & _ "<TR><TD>Description</TD><TD>" & _ objError.Description & "</TD></TR></TABLE>" Response.Write objerror.HelpContext Response.Write "<br>" Response.Write objerror.helpfile CheckForErrors = True End If Next Else CheckForErrors = False End If End Function |
