---
title: "Problem med att ladda upp bild!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/50663-problem-med-att-ladda-upp-bild"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "UnConed"
published: "2002-08-18T15:34:32.000Z"
updated: "2002-08-18T19:04:43.000Z"
replies: 4
views: 351
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/50663-problem-med-att-ladda-upp-bild"
---

# Problem med att ladda upp bild!

## #1 — UnConed, 2002-08-18T15:34Z

'Skriver in info som man skickar
IF Request.QueryString("Do") = "Add" Then
	'Dimmar variabler
	Dim Slumptal, SlumptalDatabas, TidenNu, Klockan, Datum, Sposten
	TidenNu = Date & Time
	Klockan = Time
	Datum = Date
	Sposten = Time & "-" & Session("Username")
	Randomize
	Slumptal = Int(Rnd \* 1000000000000)
	'  Variables 
	'  \*\*\*\*\*\*\*\*\*
	Dim mySmartUpload 
	Dim intCount
	'  Object creation 
	'  \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
	Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")  

	'  Upload 
	'  \*\*\*\*\*\* 

	mySmartUpload.MaxFileSize = 400000
	mySmartUpload.Upload 
	mySmartUpload.AllowedFilesList = "jpg,gif,png"

	'  DeniedFilesList can also be used :
	' Allow all files except exe, bat and asp
	' \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
	' mySmartUpload.DeniedFilesList = "exe,bat,asp"

	'  Deny physical path
	'  \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
	mySmartUpload.DenyPhysicalPath = True

	For each file In mySmartUpload.Files
   '  Only if the file exist
   '  \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
      If not file.IsMissing Then
		'  Save the files with his original names in a virtual path of the web server
		'  \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
			file.SaveAs("Upload/" & Session("Username") & "/Forum/" & Slumptal & "." & file.FileExt)
			SlumptalDatabas = Slumptal & "." & file.FileExt
		   ' sample with a physical path 
		   ' file.SaveAs("c:\\temp\\" & file.FileName)
		
			' Uppdaterar Sqln till databasen
					Set Connect = Server.CreateObject("ADODB.Connection")
					Connect.Open "driver=MySQL;server=localhost;uid=uid;pwd=lösenord;database=Forum"
					SQL = "INSERT INTO svar (Fran, PersonalStatus, Tid, Bild, Rubrik, Meddelande, SvarsID, Bifogat) Values ('" & Session("Username") & "','" & Session("Status") & "','" & Klockan & "','" & Session("Image")  & "','" & mySmartUpload.Form("headline") & "','" & mySmartUpload.Form("Meddelande") & "','" & mySmartUpload.Form("SvarsID") & "','" & SlumptalDatabas & "')"
					Connect.Execute(SQL)
					Connect.Close
					Set Connect = Nothing
			ELSE
					Set Connect = Server.CreateObject("ADODB.Connection")
					Connect.Open "driver=MySQL;server=localhost;uid=uid;pwd=lösenord;database=Forum"
		
					SQL = "INSERT INTO svar (Fran, PersonalStatus, Tid, Bild, Rubrik, Meddelande, SvarsID) Values ('" & Session("Username") & "','" & Session("Status") & "','" & Klockan & "','" & Session("Image")  & "','" & mySmartUpload.Form("headline") & "','" & mySmartUpload.Form("Meddelande") & "','" & mySmartUpload.Form("SvarsID") & "')"
					Connect.Execute(SQL)
					Connect.Close
					Set Connect = Nothing
			End If
		Next

		
	'------DETTA SKA ALLTID VARA MED!
	'Uppdaterar info till rubriken
	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver=MySQL;server=localhost;uid=uid;pwd=lösenord;database=Forum"
		
	SQL	= "UPDATE rubrik Set Sposten = '" & Sposten & "',DatumTid = '" & TidenNu & "',SettAlla = 'Nej',Svar = Svar + 1 Where ID = '" & Request.Form("SvarsID") & "'"
	Connect.Execute(SQL)
	Connect.Close
	Set Connect = nothing

	Response.Redirect "ForumMessage.asp?Org=" & Request.Form("OrgForum") & "&Open=" & Request.Form("SvarsID") 
End IF

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

## #2 — UnConed, 2002-08-18T15:36Z

Jag bör väll också tilläga att jag får felet: 
Feltyp:
aspSmartUpload (0x800A0009)
Subscript out of range
/version2/ForumMessage.asp, line 25

.. Och att line 25 är: mySmartUpload.Upload

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

## #3 — Dwarfen, 2002-08-18T15:40Z

Du försöker alltså att uppdatera båda en bild och information till en databas? Skulle gärna också ha hjälp med detta, har också kört fast

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

## #4 — solbulle, 2002-08-18T18:49Z

Skall inte objektet initieras? (Det där lät bra)
Typ:

```
mySmartUpload.initialize(pageContext);
```

<http://www.jspsmart.com/liblocal/docs/en/jspsmartupload/help/Requirements.htm>

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

## #5 — Svante89, 2002-08-18T19:04Z

Anders

Visste inte att du behöver hjälp. aja, har ingen aning heller.
Föresten, jag vill betatesta v2.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/50663-problem-med-att-ladda-upp-bild