Jag ska använda detta till ett galleri och använder komponenten AspSmartImage. Har denna kod:


<%Function Thumb(Mappen,Thumben)
Set oSmartImage = Server.CreateObject("aspSmartImage.SmartImage")
oSmartImage.OpenFile(Mappen & Thumben)
oSmartImage.Resample 100, 100
oSmartImage.Download
Set oSmartImage = Nothing
End Function%>

<%=Thumb("umapp","bild.jpg")%>

Men om jag nu lägger lite htmlkod ovanför <%=Thumb("umapp/","bild.jpg")%> så visas inte bilden utan den blir till text. Någon som vet varför?

Ex på texten som syns istället för bilden:
ÿØÿàJFIF



ÿþ.Intel(R) JPEG Library, version [1.51.12.44]ÿÛC   %# , #&')*)-0-(0%()(ÿÛC
   (((((((((((((((((((((((((((((((((((((((((((((((((((ÿÄ
¢

Funktionen Thumb returnerar en bild, och inte ett dokument med en bild... Om du skriver något mer i dokumentet "blandas" det med bilden. För att göra som du har tänkt får du lägga thumbnail-koden i ett separat dokument som du sedan anropar från dokumentet som har texten med en vanlig img-tag. T.ex:

<img src="bild.asp?bildnr=1">

/Johan

Eftersom det är binär data som du får tillbaks så borde det räcka med att använda Response.BinaryWrite kommandot för att få ut din bild till webbläsaren.

<code>
<%
Function Thumb(Mappen,Thumben)
Set oSmartImage = Server.CreateObject("aspSmartImage.SmartImage")
oSmartImage.OpenFile(Mappen & Thumben)
oSmartImage.Resample 100, 100
oSmartImage.Download
Set oSmartImage = Nothing
End Function
%>

<%
Response.BinaryWrite Thumb("umapp","bild.jpg")
%>
</code>

Jag gjorde såhär:

bild.asp
<code><table>
<tr>
<td><img src="thumb.asp?bild=chippiland/user_pix/user_1.jpg"></td>
</tr>
</table></code>

thumb.asp
<code><%
Set oSmartImage = Server.CreateObject("aspSmartImage.SmartImage")
oSmartImage.OpenFile(Request("bild"))
oSmartImage.Quality = 100
oSmartImage.Resample 100, 100
oSmartImage.Download
Set oSmartImage = Nothing
%></code>