---
title: "Uploadscript utan komponent 2"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/85304-uploadscript-utan-komponent-2/page3"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "OveRRidE"
published: "2003-09-05T03:58:32.000Z"
updated: "2010-05-14T13:05:14.000Z"
replies: 93
views: 6890
page: 3
pages: 5
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/85304-uploadscript-utan-komponent-2"
---

# Uploadscript utan komponent 2

_Sida 3 av 5._

## #41 — PatrikB, 2003-09-29T12:46Z

Vilken version av scriptet har du laddat ned?
Den senaste versionen som kan laddas ned här har inte denna "lilla bugg": <http://www.webforum.nu/attachment.php?s=&postid=707341>

cya,
/PatrikB

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

## #42 — hellboy, 2003-09-29T12:50Z

Fast det är den versionen jag har laddat ner.. 1.5.2.

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

## #43 — PatrikB, 2003-09-30T06:36Z

Ok,
ladda upp sidan som du använder denna klass i så får vi kika .... kan själv inte "tvinga" fram det problemet 

cya,
/PatrikB

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

## #44 — hellboy, 2003-09-30T11:08Z

Detta är sidan jag anropar från formuläret...

Har ändrat ett par grejer, och nu får jag inte längre något felmeddekande, men när man submittar formuläret står den bara och "tuggar" tills IIS inte längre fungerar kan ta emot fler användare...  

\<!--#INCLUDE FILE="clsUpload.asp"--\>
\<%
'Option Explicit

Dim objUpload
Dim strRubrik
Dim strNyhet
dim objFile
Dim varyErrors
Dim iErr
Dim blnErr
Dim connect
Dim sql
blnErr = False

Set objUpload = New overrUpload
strRubrik = objUpload.Form("rubrik")
strNyhet = objUpload.Form("nyhet")
Set objFile = objUpload.Form("theFile")

If objFile.IsFile Then

Call objFile.SaveToFile(Server.MapPath("../db/newsbilder/" & objFile.Filename), True)

If objFile.HasErrors Then
blnErr = True

varyErrors = objFile.GetErrors()

For iErr = 0 TO UBound(varyErrors)

Response.Write(varyErrors(iErr) & "\<hr\>")
Next
Else
set connect = server.createobject("ADODB.connection") 
Connect.Open "DRIVER={Microsoft Access Driver (\*.mdb)};DBQ=" & Server.MapPath("../db/db.mdb")
SQL= "INSERT INTO nyheter (rubrik,nyhet,fileName,datum) VALUES('" & strRubrik & "','" & strNyhet & "','" & objFile.Filename & "','" & Now() & "')" 
connect.Execute(SQL)
End If
End If

Set connect= Nothing
Set objFile = Nothing
Set objUpload = Nothing

If blnErr = False Then 
Response.Redirect ("admin.asp")
End if
%\>

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

## #45 — solbulle, 2003-09-30T16:42Z

Hur har du det med sökvägen där?
Som tidigare konstaterat i denna tråd bör du kanske inte fippla med placeringen av mappen classes samt deras sökväg...

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

## #46 — hellboy, 2003-09-30T16:51Z

ok.. men iom att jag bara använder denna klassen till bara en grej, kändes det enklast att lägga den i samma mapp som resten av scriptet... så sökvägen är rätt.. det jag funderar på är kanske sökvägen till mappen som bilderna ska sparas i.. Server.Mappath.. kan den användas som jag gjort?

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

## #47 — solbulle, 2003-09-30T17:48Z

Ok.
Jag tror nog att du kan använda sökvägen som du gjort. Du kan ju lätt iofs kolla om det är det som är fel genom att skriva in en fysisk sökväg tillfälligt.
Får du något felmeddelande?
Kan det vara Norton antivirus scriptblock som spökar?

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

## #48 — hellboy, 2003-10-01T01:16Z

Nope, inget felmeddelande, inte fel på sökvägen (så vitt mina kunskaper inom området räcker) och inget virusprogram som stör..  allt som händer är att stapeln rör sig sakta framåt, men jag har inte orkat vänta för att se vad som händer när den kommer fram.. ska ju hur som helst inte ta sån tid.. . så jag är helt lost här..

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

## #49 — LR^evil.sid, 2003-10-01T07:11Z

Ursäkta. Men om jag själv vill bestämma filnamn, inte extension. Var ändrar jag då? Jag vill nämligen lägga sessionsid till namnet.

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

## #50 — PatrikB, 2003-10-01T13:33Z

> **hellboy skrev:**
>
> Nope, inget felmeddelande, inte fel på sökvägen (så vitt mina kunskaper inom området räcker) och inget virusprogram som stör..  allt som händer är att stapeln rör sig sakta framåt, men jag har inte orkat vänta för att se vad som händer när den kommer fram.. ska ju hur som helst inte ta sån tid.. . så jag är helt lost här..

Kör du lokalt eller ute på webbhotellet?
Hur stor är filen du försöker att ladda upp?
Vad händer när du kör tills det säger "stopp"?

> **LR^evil.sid skrev:**
>
> Ursäkta. Men om jag själv vill bestämma filnamn, inte extension. Var ändrar jag då? Jag vill nämligen lägga sessionsid till namnet.

Du ändrar:

```
Call objFile.SaveToFile(Server.MapPath("../db/newsbilder/" & objFile.Filename), True)
```

till

```
Call objFile.SaveToFile([b]"VilkenSökVägDuVillHa" + "Filnamnet" + "." + objFile.FileExtension[/b], True)
```

Ser lite andra brister också som borde "snyggas till" och förbättras :e

cya,
/PatrikB

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

## #51 — hellboy, 2003-10-01T13:39Z

just nu kör jag lokalt. 
filen ligger bara på ca. 400kb, och jag har inte kört tills det tar stopp nån gång.. lät det stå i ca 10 minuter igår, och då hade stapeln kommit ung. halvvägs...

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

## #52 — dendålige, 2003-10-01T13:51Z

hadde samma fel... du måste ändra rättigheterna för mappen... eller du kan ju iaf testa det...

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

## #53 — PatrikB, 2003-10-01T14:52Z

Nu har jag lyckats att "tvinga fram" samma felmeddelande som du, hellboy .... "index out of range ...."

har "bugg-fixat" lite och filen kan, förhoppningsvis, snart laddas ned här: <http://www.webforum.nu/showthread.php?s=&threadid=83458&forumid=148> så snart det har godkännts av moderator

Version 1.5.3 ska filen heta.

Kika också om du har samma namn att hämta värden från formuläret som namnen i formuläret .... när jag "råkade stava fel" så fick jag fram samma felmeddelande (kunde inte hittas i själva collectionen av uppladdad data)

cya,
/PatrikB

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

## #54 — LR^evil.sid, 2003-10-01T23:21Z

Kan man med detta uploadscript ta reda på filens storlek innan man skriver filen?

Om inte, hur lägger jag till det?

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

## #55 — PatrikB, 2003-10-02T07:46Z

Tyvärr, finns inte med i scriptet idag.
Vilken miss då det kan vara av intresse i vissa fall.

Hmm, blir till att fixa en uppdatering till ikväll då.

cya,
/PatrikB

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

## #56 — hellboy, 2003-10-03T11:40Z

efter din uppdaterinh Patrik, lyckades jag med att få in de andra formulärfälten i databsen, en gång.. vet inte varför det funkade, för det funkar inte när jag provar igen.. får samma problem nu, så jag antar att jag gjort nått fel i databas-tillägget?

Kod:

\<%
Option Explicit

Dim objUpload
Dim strRubrik
Dim strNyhet
dim objFile
Dim varyErrors
Dim iErr
Dim blnErr
Dim Connect
Dim SQL

blnErr = False

Set objUpload = New overrUpload

	Set objFile = objUpload.Form("theFile")
		
		If objFile.IsFile Then
			
			Call objFile.SaveToFile(Server.MapPath("../db/" & objFile.Filename), True)
			
			If objFile.HasErrors Then
				blnErr = True
				varyErrors = objFile.GetErrors()
				For iErr = 0 TO UBound(varyErrors)
					Response.Write(varyErrors(iErr) & "\<hr\>")
				Next
			End If

	strRubrik = objUpload("rubrik")
	strNyhet = objUpload("nyhet")
	strFilename = objFile.Filename
	dtDatum = Now()

set connect = server.createobject("ADODB.connection") 
Connect.Open "DRIVER={Microsoft Access Driver (\*.mdb)};DBQ=" & Server.MapPath("../db/db.mdb")
SQL= "INSERT INTO nyheter (rubrik,nyhet,filename,datum) VALUES('" & strRubrik & "','" & strNyhet & "','" & strFilename & "','" & dtDatum & "')" 
connect.Execute(SQL)

		End If
	Set objFile = Nothing

If blnErr = False Then Response.Redirect("admin.asp")
%\>
\<!--#INCLUDE FILE="classes/clsUpload.asp"--\>

av nån anledning fungerar det inte med INCLUDE VIRTUAL för mig.. då hittar den inte filen..

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

## #57 — OveRRidE, 2003-10-03T13:04Z

Oj, här går det snabbt. :)

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

## #58 — PatrikB, 2003-10-03T18:50Z

hellboy,
kan du testa denna kod .....

```
<% 
Option Explicit 

Dim objUpload 
Dim strRubrik 
Dim strNyhet 
dim objFile 
Dim varyErrors 
Dim iErr 
Dim blnErr 
Dim Connect 
Dim SQL 

blnErr = False 

Set objUpload = New overrUpload 

Set objFile = objUpload.Form("theFile") 

	If objFile.IsFile Then 

		Call objFile.SaveToFile(Server.MapPath("../db/" & objFile.Filename), True) 

		If objFile.HasErrors Then 
			blnErr = True 
			varyErrors = objFile.GetErrors() 
			For iErr = 0 TO UBound(varyErrors) 
				Response.Write(varyErrors(iErr) & "<hr>") 
			Next 

		Else

			strRubrik = objUpload("rubrik") 
			strNyhet = objUpload("nyhet") 
			strFilename = objFile.Filename 
			dtDatum = Now() 

			set connect = server.createobject("ADODB.connection") 
				Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/db.mdb") 
				SQL= "INSERT INTO nyheter (rubrik,nyhet,filename,datum) VALUES('" & strRubrik & "','" & strNyhet & "','" & strFilename & "','" & dtDatum & "')" 
				connect.Execute(SQL) 
				connect.close
			Set connect = Nothing
		End If

	End If 
Set objFile = Nothing 

'## -- skippa denna redirect så länge, tills allt funkar på denna sida --
'If blnErr = False Then Response.Redirect("admin.asp") 
%> 
<!--#INCLUDE FILE="classes/clsUpload.asp"-->
```

kolla så att fälnamnen är rätt stavade där du hämtar den datan: objUpload("nyheter") - så att det inte heter txtNyheter eller ngt liknande

override:
jepp, här blåser det storm :e

cya,
/PatrikB

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

## #59 — hellboy, 2003-10-04T11:56Z

näe.. fortfarande samma problem.. har dubbekollat alla formulärnamn, tabellnamn och kolumnnamn.. allting ska stämma.

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

## #60 — PatrikB, 2003-10-04T15:01Z

Om du låter det gå tills det säger stopp, vad händer då? ev. felmeddelande

Ett annat alternativ .... börja om och testa med ett nytt formulär och ta field för field och testkör.

cya,
/PatrikB

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/85304-uploadscript-utan-komponent-2/page3  
Föregående sida: https://www.webforum.nu/amne/asp/85304-uploadscript-utan-komponent-2/page2.md  
Nästa sida: https://www.webforum.nu/amne/asp/85304-uploadscript-utan-komponent-2/page4.md