---
title: "Ladda upp fill till server och spara i databas"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/108695-ladda-upp-fill-till-server-och-spara-i-databas"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "illusion"
published: "2004-08-06T18:59:59.000Z"
updated: "2004-08-07T11:24:13.000Z"
replies: 1
views: 206
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/108695-ladda-upp-fill-till-server-och-spara-i-databas"
---

# Ladda upp fill till server och spara i databas

## #1 — illusion, 2004-08-06T18:59Z

Hej jag har försökt med ett gallery-script, när jag försöker ladda upp en fil i admin-sektionen, och samtidigt när jag ska lägga till adressen till filen i databasen så uppdateras inte databasen, den laddar upp filen till servern men inget händer med databasen.

```
<%
If (Request.ServerVariables("REQUEST_METHOD") = "POST") Then
     
			Set Upload	= get_upload_files()
			fcontent	= Upload("upload").Item("content")
			              
                extension = right(extract_filename(Upload("upload").Item("filename")),4)
                If objFSO.FileExists(Files_upload & "\" & extract_filename(Upload("upload").Item("filename"))) Then
                    Session("mess") = "Det finns redan en fil med det namnet, byt namn på filen !!!"
		    Response.Redirect strPageName
                Else
                     If instr(strAllow,extension) then
                     	Set Conn = Server.CreateObject("ADODB.Connection") 
						Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("../Dbase/gallery_db.mdb")
						SQL = "Insert Into files(category,name) Values('" & Request.Cookies("5days") & "','" & Request.Form("url") & "')"
        				Conn.Execute(SQL)
                        Set File	= objFSO.CreateTextFile(Files_upload & "\" & extract_filename(Upload("upload").Item("filename")))
                     Else
                        Session("mess") = "Filen är ej godkänd. Endast <b>" & strAllow & "</b> är godkända."
                        Response.Redirect strPageName
                     End If
                End If                        
		For i = 1 to LenB(fcontent)
			File.Write chr(AscB(MidB(fcontent, i, 1)))
		Next
				
		File.Close: Set File = Nothing
		Session("mess") = "Du har gjort en lyckad uppladdning !!!"
		Response.Redirect strPageName
End If
%>
```

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

## #2 — solbulle, 2004-08-07T11:24Z

Du måste använda samma tillvägagångssätt som med dina andra formulärsfält, typ:

```
SQL = "Insert Into files(category,name) Values('" & Request.Cookies("5days") & "','" & Upload("upload").Item("url")
 & "')"
```

Skulle jag tro det ska stå.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/108695-ladda-upp-fill-till-server-och-spara-i-databas