Error handling "ADODB.Stream error '800a0bba' File could not be opened"
I am getting this error ocassionally "ADODB.Stream error '800a0bba' File could not be opened" at Function LoadStream at line objStream.LoadFromFile FilePath . Please advise me on this. When i am trying to open images.
My Code:
<%@ Language=VBScript %>
<HTML>
<%
'Load a file from disk
Dim FilePath
Dim strUrl
Dim strCheck
dim conn
dim rs1
dim RecordNo
dim equal
dim ThreeSlashes
dim TwoSlashes
dim strEDMS
StrSQL = "select actionid,REPLACE(REPLACE(REPLACE(cast(StandardMemo006 AS varchar(255)), CHAR(10), ''), CHAR(13), ''), CHAR(9), '') as [EDMS URL] " & _
"from Table where ACTIONID ="& ActionID
set rs1 = conn.execute(strSQL)
Do while not rs1.eof
equal = rs1(1)
rs1.movenext
Loop
Response.Redirect(equal)
end if
If InStr(1, strUrl, strCheck) >= 1 Then
StrSQL = "select actionid,REPLACE(REPLACE(REPLACE(cast(StandardMemo006 AS varchar(255)), CHAR(10), ''), CHAR(13), ''), CHAR(9), '') as [EDMS URL] " & _
"from Table where ACTIONID ="& ActionID
set rs1 = conn.execute(strSQL)
Do while not rs1.eof
equal = rs1(1)
rs1.movenext
Loop
Response.Redirect(equal)
Else
StrSQL = "select actionid,REPLACE(REPLACE(REPLACE(cast(StandardMemo006 AS varchar(255)), CHAR(10), ''), CHAR(13), ''), CHAR(9), '') as [EDMS URL] " & _
"from Table where ACTIONID ="& ActionID
set rs1 = conn.execute(strSQL)
Do while not rs1.eof
equal = rs1(1)
rs1.movenext
Loop
equal = LCase(equal)
If InStr(1, equal, ThreeSlashes) >= 1 Then
equal = replace(strUrl,ThreeSlashes,"\\")
FilePath= equal
SendStreamToBrowser LoadStream(FilePath),FilePath,"pdf",true
End if
If InStr(1, equal, TwoSlashes) >= 1 Then
equal = replace(strUrl,TwoSlashes,"\\")
FilePath= equal
SendStreamToBrowser LoadStream(FilePath),FilePath,"pdf",true
End if
If instr(1,equal,strCheckslash) >= 1 then
equal= equal
Else
equal= strCheckslash & equal
End if
FilePath = equal
SendStreamToBrowser LoadStream(FilePath),FilePath,"pdf",true
' Else
' Response.write("<h2>Access Denied</h2>")
'Response.write(equal) + Response.write(equal)
'End if
End if
Function LoadStream(FilePath)
Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 'adTypeBinary=1
objStream.Open
objStream.LoadFromFile FilePath -- error at this line
LoadStream = objStream.Read
objStream.Close
Set objStream = Nothing
End Function
'returns the MIME header type for a given extension
Function GetMIMEType(Extension)
dim Ext
Ext = UCase(Extension)
select case Ext
'Common documents
case "TXT", "TEXT", "JS", "VBS", "ASP", "CGI", "PL", "NFO", "ME", "DTD"
sMIME = "text/plain"
case "HTM", "HTML", "HTA", "HTX", "MHT"
sMIME = "text/html"
case "CSV"
sMIME = "text/comma-separated-values"
case "JS"
sMIME = "text/javascript"
case "CSS"
sMIME = "text/css"
case "PDF"
sMIME = "application/pdf"
case "RTF"
sMIME = "application/rtf"
case "XML", "XSL", "XSLT"
sMIME = "text/xml"
case "WPD"
sMIME = "application/wordperfect"
case "WRI"
sMIME = "application/mswrite"
case "XLS", "XLS3", "XLS4", "XLS5", "XLW"
sMIME = "application/msexcel"
case "DOC"
sMIME = "application/msword"
case "PPT","PPS"
sMIME = "application/mspowerpoint"
'WAP/WML files
case "WML"
sMIME = "text/vnd.wap.wml"
case "WMLS"
sMIME = "text/vnd.wap.wmlscript"
case "WBMP"
sMIME = "image/vnd.wap.wbmp"
case "WMLC"
sMIME = "application/vnd.wap.wmlc"
case "WMLSC"
sMIME = "application/vnd.wap.wmlscriptc"
'Images
case "GIF"
sMIME = "image/gif"
case "JPG", "JPE", "JPEG"
sMIME = "image/jpeg"
case "PNG"
sMIME = "image/png"
case "BMP"
sMIME = "image/bmp"
case "TIF","TIFF"
sMIME = "image/tiff"
case "AI","EPS","PS"
sMIME = "application/postscript"
'Sound files
case "AU","SND"
sMIME = "audio/basic"
case "WAV"
sMIME = "audio/wav"
case "RA","RM","RAM"
sMIME = "audio/x-pn-realaudio"
case "MID","MIDI"
sMIME = "audio/x-midi"
case "MP3"
sMIME = "audio/mp3"
case "M3U"
sMIME = "audio/m3u"
'Video/Multimedia files
case "ASF"
sMIME = "video/x-ms-asf"
case "AVI"
sMIME = "video/avi"
case "MPG","MPEG"
sMIME = "video/mpeg"
case "QT","MOV","QTVR"
sMIME = "video/quicktime"
case "SWA"
sMIME = "application/x-director"
case "SWF"
sMIME = "application/x-shockwave-flash"
'Compressed/archives
case "ZIP"
sMIME = "application/x-zip-compressed"
case "GZ"
sMIME = "application/x-gzip"
case "RAR"
sMIME = "application/x-rar-compressed"
'Miscellaneous
case "COM","EXE","DLL","OCX"
sMIME = "application/octet-stream"
'Unknown (send as binary stream)
case else
sMIME = "application/octet-stream"
end select
GetMimeType = sMIME
End Function
'Sends the specified file to the browser
sub SendStreamToBrowser(FileStream, FileName, ContentType, IsInline)
Dim FileExt, FileSize
'Disable error checking
on error resume next
'Clear buffer
Response.Clear
'Add filename to header
Response.AddHeader "Connection", "keep-alive"
Response.AddHeader "Content-Length", FileSize
'Check if data should be delivered inline or not
If IsInline = True then
'Allow the browser to render the file inside a browser window (if it can)
Response.AddHeader "Content-Disposition","inline; filename=" & FileName
Else
'Force browser to save file
Response.AddHeader "Content-Disposition","attachment; filename=""" & FileName & """"
End If
'Get ContentType for download
select case ContentType
case false
'Generic binary ContentType and Charset
Response.ContentType = "application/octet-stream"
Response.Charset = "UTF-8"
case ""
'Find out what it should be
Response.ContentType = GetMIMEType(FileExt)
case else
'Use the ContentType that was passed
Response.ContentType = ContentType
end select
'Send data to client
Response.BinaryWrite(FileStream)
Response.Flush
End Sub
Reply With Quote
Bookmarks