---
title: "AspUpload 2.1 Hjälp"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/86944-aspupload-2-1-hjälp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "pRob3"
published: "2003-09-25T14:30:08.000Z"
updated: "2003-10-08T19:08:21.000Z"
replies: 9
views: 295
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/86944-aspupload-2-1-hjälp"
---

# AspUpload 2.1 Hjälp

## #1 — pRob3, 2003-09-25T14:30Z

Får messet att bilden har blivit uppladdad även fast bilden var förstor eller är av fel sort. Det funkar dock att ladda upp en bild som är av rätt sort och storlek.
Komponenten som jag använder för att ladda upp bilderna med är AspUpload 2.1.

```
<%@ LANGUAGE="VBSCRIPT" %>
<%Response.Buffer=True%>
<!-- #INCLUDE VIRTUAL="/include/koppling.asp" -->

<%
Set Rs = Connect.Execute("SELECT COUNT(id) AS Antal FROM bild Where slaf = '"& session("username") &"'")

Dim antal
antal=Rs("Antal") +1
Rs.Close : Set Rs=Nothing

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.SetMaxSize 35000, True
On Error Resume Next

'#################### Om filen är för stor

If Err.Number = 8 Then
Connect.Close : Set Connect=Nothing
Session("meddelande") = "Bilden du försöker ladda upp är förstor.\nBilden får max vara 35kB..."
Response.Redirect "default.asp"
Else
   If Err <> 0 Then
Connect.Close : Set Connect=Nothing
Session("meddelande") = "Ett fel inträffade:\n "& Err.Description &""
Response.Redirect "default.asp"
   Else
 
'#########################################

extension = Left(filen,4)
NewName = ""& Session("username") &""& antal &""

Upload.SaveToMemory

For Each File in Upload.Files
   Ext = LCase(Right(File.Path, 4))
   If Ext <> ".jpg" and Ext <> ".gif" and Ext <> ".bmp" Then
      Response.Write "Filen " & File.Path & " är inte av rätt sort.<br>Bara .gif .jpg och .bmp är tillåtna"
   Else
'################ Sparar in det i databasen

Set url = Upload.Form("url")
Set titel = Upload.Form("titel")
Set beskriv = Upload.Form("beskriv")
Set kate = Upload.Form("kate")
Set access = Upload.Form("access")
      
File.SaveAs ""& Server.MapPath("bilder") &"\"& NewName &""& Ext &""

Connect.Execute("INSERT INTO bild (bild_id,url,bild,slaf,titel,beskriv,kate,access,datum) VALUES('"& NewName &"','"& Replace(url,"'","''") &"','"& NewName &""& Ext &"','"& Session("username") &"','"& Replace(titel,"'","''") &"','"& Replace(beskriv,"'","''") &"','"& Replace(kate,"'","''") &"','"& access &"','"& Now() &"')")
Session("meddelande") = "Din bild har blivit uppladdad. :)"

Response.Redirect "default.asp"

'#################################
   End If
Next

Session("meddelande") = "Din bild har blivit uppladdad. :)"
Response.Redirect "default.asp"

End If
End If

Connect.Close : Set Connect=Nothing
%>
```

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

## #2 — solbulle, 2003-09-25T22:11Z

Kanske... fipplat lite i din kod har jag gjort hur som helst. :)

```
<%@ LANGUAGE="VBSCRIPT" %>
<%Response.Buffer=True%>
<!-- #INCLUDE VIRTUAL="/include/koppling.asp" -->

<%
Set Rs = Connect.Execute("SELECT COUNT(id) AS Antal FROM bild Where slaf = '"& session("username") &"'")

Dim antal
antal=Rs("Antal") +1
Rs.Close : Set Rs=Nothing

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.SetMaxSize 35000, True
On Error Resume Next

'#################### Om filen är för stor

If Err.Number = 8 Then
	Connect.Close : Set Connect=Nothing
	Session("meddelande") = "Bilden du försöker ladda upp är förstor.\nBilden får max vara 35kB..."
	Response.Redirect "default.asp"
ElseIf Err <> 0 Then
	Connect.Close : Set Connect=Nothing
	Session("meddelande") = "Ett fel inträffade:\n "& Err.Description
	Response.Redirect "default.asp"
Else
 
'#########################################

	extension = Left(filen,4)
	NewName = ""& Session("username") &""& antal &""

Upload.SaveToMemory

For Each File in Upload.Files
   Ext = LCase(Right(File.Path, 4))
   If Ext <> ".jpg" and Ext <> ".gif" and Ext <> ".bmp" Then
      Response.Write "Filen " & File.Path & " är inte av rätt sort.<br>Bara .gif .jpg och .bmp är tillåtna"
   Else
'################ Sparar in det i databasen

	Set url = Upload.Form("url")
	Set titel = Upload.Form("titel")
	Set beskriv = Upload.Form("beskriv")
	Set kate = Upload.Form("kate")
	Set access = Upload.Form("access")
      
	File.SaveAs Server.MapPath("bilder") &"\"& NewName & Ext

	Connect.Execute("INSERT INTO bild (bild_id,url,bild,slaf,titel,beskriv,kate,access,datum) VALUES('"& NewName &"','"& Replace(url,"'","''") &"','"& NewName &""& Ext &"','"& Session("username") &"','"& Replace(titel,"'","''") &"','"& Replace(beskriv,"'","''") &"','"& Replace(kate,"'","''") &"','"& access &"','"& Now() &"')")
	Session("meddelande") = "Din bild har blivit uppladdad. "

	Connect.Close : Set Connect=Nothing

	Response.Redirect "default.asp"

'#################################
   End If
Next

End If
%>
```

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

## #3 — pRob3, 2003-09-26T12:05Z

med den koden så händer det ingenting om bilden är för stor.

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

## #4 — solbulle, 2003-09-26T13:52Z

Ah, om du byter ut denna rad:

ElseIf Err \<\> 0 Then

mot denna då:

ElseIf Err.Number \<\> 0 Then

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

## #5 — pRob3, 2003-09-26T14:07Z

Händer fortfarande inget om bilden är förstor.

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

## #6 — solbulle, 2003-09-26T14:30Z

Händer inget skriver du. Inget mess o ingen uppladdad bild eller vadå?

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

## #7 — pRob3, 2003-09-26T14:41Z

nej ingen uppladdad bild det blir bara en tom vit sida...

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

## #8 — pRob3, 2003-10-01T20:48Z

ingen?

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

## #9 — @nders, 2003-10-02T04:22Z

Och du får inget felmeddelande om du tar bort **on error resume next**?

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

## #10 — pRob3, 2003-10-08T19:08Z

Då får jag det här fel messet om bilden är för stor:

Persits.Upload.1 error '800a0008' 

Size of file bild.jpg exceeds the maximum allowed size of 35000 bytes. 

/bild/upload.asp, line 27

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/86944-aspupload-2-1-hjälp