AspImage Text?

Lyckas att ladda upp bilden men den skriver inte ut någon text på bilden.

File.SaveAs Server.MapPath("bilder") &"\"& NewName & Ext

'-------------------------

' Create instance of AspJpeg

Set Image = Server.CreateObject("AspImage.Image")

  Image.AntiAliasText = True
  Image.FontColor = vbWhite
  Image.Italic = False
  Image.Bold = True
  Image.FontName = "Verdana"
  Image.FontSize = 7
  Image.PadSize = 2

  strMessage = "Texten....."
  

  Image.X = Image.MaxX - Image.TextWidth (strMessage) - 1
  Image.Y = Image.MaxY - Image.TextHeight (strMessage) - 2
  Image.TextOut strMessage, Image.X, Image.Y, true
 

' Set the filename and save
Image.FileName = Server.MapPath("bilder") &"\"& NewName & Ext

Och hur gör man thumbnails i AspImage?

Ingen som vet hur man gör thumbnails (80px i bredd) med aspImage?

Eller kan man göra det samtidigt som man laddar upp bilden med aspUpload?

Jag vet inte. Men har du kollat i dokumentationen / API:t ?
Det borde stå där om det går, annars är risken stor att det inte är möjligt mha de komponenterna.

Hittade den här koden som ska göra bilden mindre. Någon som vet hur man ändrar den så att bilden blir 80px i bredd och istället för att ta en bild från servern så ska den spara bilden som laddades upp via mitt formulär?

function CreateThumbnail(strPath, strFilename, maxX, maxY)
Set image = server.createobject("aspimage.image")
if image.loadimage(strPath & "\" & strFilename) then
intWidth = image.MaxX
intHeight = image.MaxY

if (intWidth<MaxX) and (intHeight<MaxY) then
if intWidth>intHeight then
intRatio=(maxX/intWidth)
image.resizeR intWidth*intRatio, intHeight*intRatio
else
intRatio=(maxY/intHeight)
image.resizeR intWidth*intRatio, intHeight*intRatio
end if
end if

'Optimised for JPEG thumbnails - generally better than GIFs
Image.ImageFormat = 1
Image.PixelFormat = 6
strSfilename=split(strFilename,".")
Image.Filename=strPath & "\thumb_" & strSfilename(0)
picture="thumb_" & strSfilename(0) 
if Image.SaveImage then
response.write "<img src=""pics/" & picture & ".jpg"">"
Set Image = nothing
else
'You may want to put some kind of error handler in here
Set Image = nothing
end if
else
'Error while loading, abort
Set Image = nothing
exit function
end if
end function

%>

<%Test=CreateThumbnail("c:\inetpub\wwwroot\pics", "sverige.jpg", "200", "200")%>

<%=Thumb_bild%>