---
title: "Skapa ThumbNail av följande"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/142050-skapa-thumbnail-av-följande"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "hallmert"
published: "2006-02-05T20:01:53.000Z"
updated: "2006-02-06T13:32:57.000Z"
replies: 3
views: 388
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/142050-skapa-thumbnail-av-följande"
---

# Skapa ThumbNail av följande

## #1 — hallmert, 2006-02-05T20:01Z

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
 %>
```

Permalänk: https://www.webforum.nu/p/142050

## #2 — Travoni, 2006-02-06T09:40Z

<http://support.persits.com/jpeg/demo_jpeg.zip>

Permalänk: https://www.webforum.nu/p/1761404

## #3 — hallmert, 2006-02-06T13:00Z

Fick inte ens detta att fungera.

Permalänk: https://www.webforum.nu/p/1761456

## #4 — @nders, 2006-02-06T13:32Z

Nähä?

Felmeddelande? Aktuell kod kanske kan få bo i ett inlägg också?

Permalänk: https://www.webforum.nu/p/1761468

---

Tråden på webben: https://www.webforum.nu/amne/asp/142050-skapa-thumbnail-av-följande