Hente store billeder via ADODB.Stream
Hejsa,Jeg prøver at hente store billeder via nedenstående script som ikke ligger tilgængeligt via et hyberlik men ligger under roder..
Men hver gang jeg prøver at hente et billede siger den denne her underlige fejlmed..
<font face="Arial" size=2>
<p>Response object</font> <font face="Arial" size=2>error 'ASP 0251 : 80004005'</font>
<p>
<font face="Arial" size=2>Response Buffer Limit Exceeded</font>
<p>
<font face="Arial" size=2>/admin/kort/grabimage.asp</font><font face="Arial" size=2>, line 46</font>
<p>
<font face="Arial" size=2>Execution of the ASP page caused the Response Buffer to exceed its configured limit.
</font>
min kode er således, og jeg fatter ikke hvad der går galt da jeg har taget response.buffer = false med:
<%Response.Buffer = False%>
<!--#include file="../../Connections/connect.asp" -->
<!--#include file="../addons/loggedin.asp" -->
<%
TIID = request.QueryString("TIID")
TIID = replace(TIID, "'", "")
TIID = replace(TIID, " ", "")
TIID = replace(TIID, """", "")
set findtheimage = Connsalon.Execute("SELECT * FROM theimages where TIID = "&TIID&"")
theTIexten = findtheimage("TIexten")
theTIexten = replace(theTIexten, ".", "")
if theTIexten <> "" then
if theTIexten = "gif" then
usethiscontenttype = "image/gif"
end if
if theTIexten = "jpg" then
usethiscontenttype = "image/JPEG"
end if
if theTIexten = "jpeg" then
usethiscontenttype = "image/JPEG"
end if
if theTIexten = "tif" then
usethiscontenttype = "image/tiff"
end if
if theTIexten = "tiff" then
usethiscontenttype = "image/tiff"
end if
else
usethiscontenttype = "image/JPEG"
end if
Response.ContentType = usethiscontenttype
Set objStream = server.CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.open
objStream.LoadFromfile "E:\websites\orgimages\"&findtheimage("TIimagename")&""
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
findtheimage.close
Connsalon.close
%>