---
title: "Problem med aspsmartupload"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/145941-problem-med-aspsmartupload"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "calson"
published: "2006-04-24T12:07:13.000Z"
updated: "2006-04-24T13:03:09.000Z"
replies: 2
views: 374
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/145941-problem-med-aspsmartupload"
---

# Problem med aspsmartupload

## #1 — calson, 2006-04-24T12:07Z

Hej
Jag har letat efter komponenten för att kunna köra aspsmartupload på min dator men kan inte hitta.. installerade aspupload men verkar inte kunna köra smartupload med den? Någon som vet var jag kan hitta aspsmartupload?

Jag har kört detta skript på mitt webhotell som använder sig av aspsmartupload men får inget felmedelande, någon som kan se felet och kanske modifiera koden till det bättre?

```
'### Öppnar objektet FSO ###

   Set objFileSys = CreateObject("Scripting.FileSystemObject")
   Set strFolder = objFileSys.GetFolder("*hemligt*/bilder/users")
   intFolderSize = strFolder.size

'### Öppnar objektet aspSmartUpload ###

   Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

    For each file In mySmartUpload.Files

      If not file.IsMissing Then

	If file.FileExt = "jpg" Or file.FileExt = "jpeg" then

	  If (intFolderSize + file.Size) < 70000000 Then

	    If file.Size < 1000000 Then

  	        strFileName=(session("id") & "." & file.FileExt)
		   mySmartUpload.Upload
		file.SaveAs("bilder/users/pbImg_" & strFileName)

		response.write("Klart")

	    Else
	      strMess=("Filen får inte överskrida 1 mb!")
	    End If

	  Else
	    strMess=("Mappen för profilbilderna har överskridit maxstorleken (70 mb). Pröva igen senare!")
	  End If

	Else
	  strMess=("Bilden måste vara utav formaten jpg/jpeg!")
	End if

      Else
	strMess=("Bilden kunde inte hittas i din dator!")
      End If

    Next

    objFileSys.Close : set objFileSys = nothing
```

Tack på förhand

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

## #2 — @nders, 2006-04-24T12:23Z

> installerade aspupload men verkar inte kunna köra smartupload med den?

Nej, det är klart. Det är ju två helt olika programvaror.

> Någon som vet var jag kan hitta aspsmartupload?

<http://www.aspsmart.com/aspSmartUpload/>

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

## #3 — CatZ, 2006-04-24T13:03Z

Jag använder mig av aspsmartupload, jag tankar upp spelresultat från bridgetävlingar och sparar dem i ett fält i databasen. Begrep mig aldrig på det där med mappar. Bifogar lite av min urgamla kod 

```
For Each file in objUpload.Files
	'om filen finns		
	If not File.IsMissing Then
		'kolla om filen har rätt ändelse
		If NOT ((File.FileExt = "htm") OR (File.FileExt = "html")) Then
			Call sfelFil
		Else
			'kör en insert om filen finns			
			SQL = "SELECT * FROM tblSpelprogram"
	
			Set objRS = Server.CreateObject("ADODB.recordset")
			Set objRS.ActiveConnection = objConn
			objRS.Source = SQL
			objRS.LockType = 3
			objRS.Open

			objRS.AddNew		
				file.FileToField objRS.Fields("FBlob")
				objRS("FNamn")		= removeSpace(file.FileName)
				objRS("FStor")		= File.Size
				objRS("SmDatum")	= datDatum
				objRS("SmForm")		= strForm
				objRS("SmAnsv")		= strAnsv
				objRS("SmJour")		= strJour
				objRS("SmAnm")		= strAnm
				objRS("SmTyp")		= intTypID					
			objRS.Update
			Response.Redirect("/admin_spel/ny.asp?typ=" & intTypID & " ")
		End If
	Else
		'kör en insert om det inte fanns någon fil
	End If
```

Vet inte om det hjälper dig. Bara ett exempel på hur man kan göra :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/145941-problem-med-aspsmartupload