---
title: "ASPUpload"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/53385-aspupload"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "CatZ"
published: "2002-09-16T16:54:41.000Z"
updated: "2002-09-16T18:17:21.000Z"
replies: 11
views: 352
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/53385-aspupload"
---

# ASPUpload

## #1 — CatZ, 2002-09-16T16:54Z

Följande kod vill inte fugera med JET

```
	Set Upload = Server.CreateObject("Persits.Upload")
	Upload.SetMaxSize 100000, True
	Count = Upload.Save("g:\home\lexolar.se\users\wexiobridgen.com\databas")

	Set File = Upload.Files("FResultat.htm")
	If Not File Is Nothing Then
		SQL = "UPDATE Spelprogram " _
		& " SET FBlob=?, " _
		& " FNamn = '" & File.Name & "', " _ 
		& " SmDatum = #" & Replace(Upload.Form("SmDatum"), "'", "''") & "#," _
		& " SmJour = '" & Replace(Upload.Form("SmJour"), "'", "''") & "', "_
		& " SmForm = '" & Replace(Upload.Form("SmForm"), "'", "''") & "', " _
		& " SmAnm = '" & Replace(Upload.Form("SmAnm"), "'", "''") & "', " _
		& " SmAnsv = '" & Replace(Upload.Form("SmAnsv"), "'", "''") & "', " _
		& " FStor = '" & File.Size & "' " _
		& " WHERE SmId= " & Request.Querystring("id") & " AND SmTyp = '" & Request.Querystring("typ")
		'response.write sql 
		[b]File.ToDatabase dbCom, SQL[/b] <-- Rad 234
		File.Delete
		Response.Redirect("spelprogram.asp?typ=" & typ & " ")
```

Det ger följande felmeddelande:
*Persits.Upload.1 error '800a0018' 

\[Microsoft\]\[ODBC Driver Manager\] Data source name not found and no default driver specified 

/spelprogram.asp, line 234* 

Och ser ut såhär när jag skriver ut response.write sql:

UPDATE Spelprogram SET FBlob=?, FNamn = 'FResultat.htm', SmDatum = #2002-09-17#, SmJour = 'Ingrid Christersson', SmForm = 'Barometer', SmAnm = '', SmAnsv = 'Ulrich Falk', SmAnsv = 'Ulrich Falk', FStor = '196' WHERE SmId= 165 AND SmTyp = 'TrappanTis

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

## #2 — solbulle, 2002-09-16T17:00Z

Och dbCom innehåller? (Rättstavat? Det ska inte stå tex dbConn?)

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

## #3 — CatZ, 2002-09-16T17:06Z

dbCom = databasCommunication

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

## #4 — LarsG, 2002-09-16T17:19Z

Hur har du skapat kommandoobjektet? Har du satt activeConnection osv?

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

## #5 — CatZ, 2002-09-16T17:29Z

Hmm nu fattar jag som så ofta annars ingenting ;)

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

## #6 — LarsG, 2002-09-16T17:37Z

dbCom borde vara ett commandobject (adodb.command).  Hur har det skapats? 

Hur är det tänkt att metoden File.ToDatabase skall fungera? Har du någon dokumentation om den?

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

## #7 — CatZ, 2002-09-16T17:43Z

dbCom är bara namnet på min conn till databasen, 

För att ni ska bättre kunna förstå vad det handlar om bifogar jag Persits egna exempel

```
Set Upload = Server.CreateObject("Persits.Upload")
' Capture files
Upload.Save "c:\upload"

' Obtain file object
Set File = Upload.Files("THEFILE")

If Not File Is Nothing Then
  ' Build ODBC connection string
  Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(".\aspupload.mdb")

  ' If you use SQL Server, the connecton string must look as follows:
  ' Connect = "Driver=SQL Server;Server=MYSERVER;UID=sa;PWD=xxxxxxxxx"

  ' Build SQL INSERT statement
  SQL = "INSERT INTO MYIMAGES(image_blob, filename, description, filesize) VALUES(?, '"
  SQL = SQL & File.Filename & "', '"
  SQL = SQL & Replace(Upload.Form("DESCR"), "'", "''") & "', "
  SQL = SQL & File.Size & ")"

  ' Save to database
  File.ToDatabase Connect, SQL
  Response.Write "File saved."
Else
  Response.Write "File not selected."
End If
```

Jag bytte alltså ut den icke fungerande Connect saken mot min inkluderade dbCom connection istället.

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

## #8 — LarsG, 2002-09-16T17:55Z

Vad är dbCom, en sträng eller ett connectionobjekt?

Som dom använder det så skall man bara skicka en connectionsträng och inte ett connectionobjekt.

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

## #9 — CatZ, 2002-09-16T17:57Z

ok får försöka med det då

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

## #10 — CatZ, 2002-09-16T18:04Z

Hmm nu vet jag varför det inte fungerade med Access drivern... jag har ju lösenordsskydddat databasen hehe

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

## #11 — CatZ, 2002-09-16T18:07Z

hur gör jag om följande så att det fungerar med Access Driver istället ?

```
dbCom.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=" & Server.MapPath("\") & "\databasen.mdb;" &_
           "Jet OLEDB:Database Password=lösenord", _
           "användare", "användarlösenord"
```

Alltså jag behöver ange DATABAS LÖSENORDET för att komma åt databasen, jag hittade ingen info om det någonstanns.....

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

## #12 — CatZ, 2002-09-16T18:17Z

vad betyder nu detta då? 

```
Persits.Upload.1 error '800a0018' 

[Microsoft][ODBC Microsoft Access Driver]General error Unable to 
open registry key 'Temporary (volatile) Jet DSN for process 0x500
Thread 0x75c DBC 0x14c04024 Jet'. 

/spelprogram.asp, line 235
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/53385-aspupload