Skapa ThumbNail av följande

Hej!

Jag har ett fungerande bilduppladdnigsscript.

Följande kod uploadar och sparar bilden i databasen.
Hur kan jag här i mata in ett thumbnail-script? Det finns väl i databasen som heter thumb där filnamnet kan sparas och bilderna kan sparas i "/thumb" eller liknande, det går ju att ändra.

Som sagt, jag behöver ett thumbnail-script och jag lyckas inte av det jag läst när jag sökt igenom webforum.nu, så jag undrar om någon kan skriva ihop ett i följande kod till mig? det vore underbart snällt!

Jag har ASPJpeg på servern, så kompnenter är inget problem!
/Patrik

<% 

Set Upload = Server.CreateObject("Persits.Upload.1") 
Upload.SetMaxSize 1000000000  
Upload.SaveVirtual "upload/" 
Upload.OverwriteFiles = False

If Upload.Files(1).ImageType = "mp3" or Upload.Files(1).ImageType = "wav" Then 

  Upload.Files(1).Delete               
  Session("mess") = "<font color='#880000'>Du f&aring;r inte ladda upp filer av det formatet!</font>"
  Response.Redirect("docs.asp")
  
  Else
  

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../db/db.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From galleri" 
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	RecSet.AddNew	
	
	
	RecSet("kategori_swe") = Upload.Form("kategori_swe")
	RecSet("kategori_eng") = Upload.Form("kategori_eng")
	RecSet("fil") = Upload.Files(1).ExtractFileName
	RecSet("datum") = Now()	
	RecSet("size") = Upload.Files(1).Size
	   
 	RecSet.Update
	RecSet.close
	
    Connect.Close
	Set RecSet = nothing
	Set Connect = nothing
	   
Response.Redirect  "default.asp?sida=galleri&type=upload&kategori=true&meddelande=done&kategori_swe="& Upload.Form("kategori_swe") &" &kategori_eng="& Upload.Form("kategori_eng") &""
End if
 %>