---
title: "aspupload, flera filer i db"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/102635-aspupload-flera-filer-i-db"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Weedma"
published: "2004-04-29T15:04:45.000Z"
updated: "2004-04-29T15:04:45.000Z"
replies: 0
views: 183
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/102635-aspupload-flera-filer-i-db"
---

# aspupload, flera filer i db

## #1 — Weedma, 2004-04-29T15:04Z

Ska skriva in några textfält + 5 stycker filer med hjälp av aspupload.. så här ser det ut.
\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
\<%

Set objFile = Server.CreateObject("Persits.Upload.1")
objFile.OverwriteFiles = FALSE
objFile.Save(Server.MapPath("PicsNews"))

'Det ifyllda värdet från formulärfältet hämtas in

datum = objFile.Form("datum")
        If datum = "" Then
            Response.Redirect("news.asp?fel=ja")
        end if

datum = kontroll(datum)

headline = objFile.Form("headline")
        If headline = "" Then
            Response.Redirect("news.asp?fel=ja")
        end if

headline = kontroll(headline)

news = objFile.Form("news")
        If news = "" Then
            Response.Redirect("news.asp?fel=ja")
        end if

news = kontroll(news)

sign = objFile.Form("sign")
        If sign = "" Then
            Response.Redirect("news.asp?fel=ja")
        end if

sign = kontroll(sign)

function kontroll(check)
        check = trim(check)
        check = replace(check,"'","''")
        check = replace(check,"\<",".")
        check = replace(check,"\>",".")
        check = replace(check,vbCrLf,"\<br\>")
        kontroll = check
end function

Set Con = Server.CreateObject("ADODB.Connection") 
Con.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("db/db.mdb")&";"
    
SQL = "INSERT INTO WEnews (datum,headline, news, sign,bild01,bild02,bild03,bild04,bild05) VALUES ('" & datum & "','" & headline & "','" & news & "','" & sign & "','"&Mid(objFile.Files("bild01").Path , InStrRev(objFile.Files("bild01").Path, "\\"))&"','"&Mid(objFile.Files("bild02").Path , InStrRev(objFile.Files("bild02").Path, "\\"))&"','"&Mid(objFile.Files("bild03").Path , InStrRev(objFile.Files("bild03").Path, "\\"))&"','"&Mid(objFile.Files("bild04").Path , InStrRev(objFile.Files("bild04").Path, "\\"))&"','"&Mid(objFile.Files("bild05").Path , InStrRev(objFile.Files("bild05").Path, "\\"))&"');"

Con.Execute(SQL)

Con.close
Set con = nothing

Response.Redirect "news3.asp"

%\> 
\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*'
felmeddelandet:

Microsoft VBScript runtime error '800a01a8' 

Object required: 'objFile.Files(...)' 

news2.asp, line 54 

\*\*\*\*\*\*\*\*\*\*\*\*
jag vet inte hur jag ska göra riktigt...
chansade att det skulle vara så här.. men det blir fel.
plz hilfe mir!

/Widman

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/102635-aspupload-flera-filer-i-db