---
title: "Databas och filuppladdning.."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/82914-databas-och-filuppladdning"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Fredde Mannen"
published: "2003-07-28T12:31:04.000Z"
updated: "2003-07-28T15:52:57.000Z"
replies: 8
views: 398
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/82914-databas-och-filuppladdning"
---

# Databas och filuppladdning..

## #1 — Fredde Mannen, 2003-07-28T12:31Z

Här har jag en lite kod, jag vill vid den fetmarkerade texten lägga in filens namn och filändelse i databasen, hur skall jag göra får Server Error 500 hela tiden....

Har säkert skrivit helt fel på den raden... 

```
Dim objSmartUpload, files

Set objSmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
objSmartUpload.Upload
Set Files = objSmartUpload.Files("file")
myFiles = objSmartUpload.Save("/upload")

SQL = "INSERT INTO nyheter(rubrik, kort_om, nyheten,datum,typ,bild) VALUES("
SQL = SQL & "'" & Replace(objSmartUpload.Form("txtRubrik"),"'","''") & "', "
SQL = SQL & "'" & Replace(objSmartUpload.Form("txtKortom"),"'","''") & "', "
SQL = SQL & "'" & Replace(objSmartUpload.Form("txtContent"),"'","''") & "', "
SQL = SQL & "'" & NOW & "', "
SQL = SQL & "'ARTIKEL', "
[b]SQL = SQL & "'/uploads/" & Replace(objSmartUpload.Form("txtFile").FileName,"'","''") & "'"[/b]
SQL = SQL & ")"
ObjConn.ExeCute(SQL)
```

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

## #2 — Fredde Mannen, 2003-07-28T12:58Z

Någon :q

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

## #3 — Josef, 2003-07-28T13:01Z

Hur ser sql-strängen ut om du skriver ut den?

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

## #4 — Fredde Mannen, 2003-07-28T13:08Z

> **Josef skrev:**
>
> Hur ser sql-strängen ut om du skriver ut den?

```
SQL = "INSERT INTO nyheter(rubrik, kort_om, nyheten,datum,typ,bild) VALUES("
SQL = SQL & "'" & Replace(objSmartUpload.Form("txtRubrik"),"'","''") & "', "
SQL = SQL & "'" & Replace(objSmartUpload.Form("txtKortom"),"'","''") & "', "
SQL = SQL & "'" & Replace(objSmartUpload.Form("txtContent"),"'","''") & "', "
SQL = SQL & "'" & NOW & "', "
SQL = SQL & "'ARTIKEL', "
SQL = SQL & "'/uploads/" & Replace(objSmartUpload.Form("txtFile").FileName,"'","''") & "'"
SQL = SQL & ")"
```

men det kan inte ha med sql-strängen att gör, för plockar jag bort den så blir det fel ändå, sä här ser hele koden ut: 

```
if(Request.QueryString("do") = "create") Then
Dim objSmartUpload, myFiles

Set objSmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
objSmartUpload.AllowedFileList = "jpg,gif,png,txt,html,htm,pdf"
objSmartUpload.DenyPhysicalPath = False
objSmartUpload.MaxFileSize = 50000
objSmartUpload.Upload

Set Files = objSmartUpload.Files("file")
myFiles = objSmartUpload.Save("/uploadsdir")

if Err Then
Response.Write "fel" & Err.description
Else
SQL = "INSERT INTO nyheter(rubrik, kort_om, nyheten,datum,typ,bild) VALUES("
SQL = SQL & "'" & Replace(objSmartUpload.Form("txtRubrik"),"'","''") & "', "
SQL = SQL & "'" & Replace(objSmartUpload.Form("txtKortom"),"'","''") & "', "
SQL = SQL & "'" & Replace(objSmartUpload.Form("txtContent"),"'","''") & "', "
SQL = SQL & "'" & NOW & "', "
SQL = SQL & "'ARTIKEL', "
SQL = SQL & "'/uploadsdir/image.gif'"
SQL = SQL & ")"
ObjConn.ExeCute(SQL)

Response.Redirect("artiklar.asp")
End if
End if
```

Och plockar jag bort sql-strängen så återstår felet! x(

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

## #5 — Skarre, 2003-07-28T13:16Z

Skulle du kunna citera felmeddelandet? Vad gäller SQL-strängen menar Josef att du ska skriva ut den på sidan med Response.Write.

```
SQL = "INSERT INTO nyheter(rubrik, kort_om, nyheten,datum,typ,bild) VALUES("
SQL = SQL & "'" & Replace(objSmartUpload.Form("txtRubrik"),"'","''") & "', "
SQL = SQL & "'" & Replace(objSmartUpload.Form("txtKortom"),"'","''") & "', "
SQL = SQL & "'" & Replace(objSmartUpload.Form("txtContent"),"'","''") & "', "
SQL = SQL & "'" & NOW & "', "
SQL = SQL & "'ARTIKEL', "
SQL = SQL & "'/uploads/" & Replace(objSmartUpload.Form("txtFile").FileName,"'","''") & "'"
SQL = SQL & ")"

[b]Response.Write SQL
Response.End[/b]
```

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

## #6 — Fredde Mannen, 2003-07-28T13:22Z

Oki... nu har jag fixat så att jag får ett riktigt felmeddelande 

> aspSmartUpload error '800a0009' 
> 
> Subscript out of range 
> 
> /home/admin/save.asp, line 10

Hittar inget om detta felmeddelande på aspsmart.com...

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

## #7 — Nickemannen, 2003-07-28T13:33Z

Ja då får du kolla upp vad deras förklaring av det felmeddelandet är på den komponenten.

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

## #8 — Fredde Mannen, 2003-07-28T13:38Z

> **Nickemannen skrev:**
>
> Ja då får du kolla upp vad deras förklaring av det felmeddelandet är på den komponenten.

Hittade inget... man det löste sig.... såg att en liten grejj saknades: 

```
ENCTYPE="multipart/form-data"
```

 i formuläret! :r

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

## #9 — solbulle, 2003-07-28T15:52Z

<http://www.aspsmart.com/scripts/aspSmartUpload/publigen/content/templates/show.asp?P=267&L=EN>

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/82914-databas-och-filuppladdning