---
title: "Uppdatera upload problem"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/100885-uppdatera-upload-problem"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "clacke"
published: "2004-04-04T12:22:09.000Z"
updated: "2004-04-05T17:45:17.000Z"
replies: 3
views: 214
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/100885-uppdatera-upload-problem"
---
# Uppdatera upload problem
## #1 — clacke, 2004-04-04T12:22Z
Har ett upload script som laddar upp bilder och samtidigt
lägger in ett textfälts värde och bildnamn i databasen.
Jag vill kunna uppdatera detta med nedan kod, att om Uploader.Form("file1") har ett värde så uppdatera med det om inte så använd existing = Uploader.Form("existing")
men jag får inte det att funka!
Koden ser ut som följande:
```
Dim Uploader, File , onpage , thetext , image, headline, strConn,rs,sql,conn,dat,strFileName,saveto,file1,test,bild1
Dim image1,image2,id,existing
Set Uploader = New FileUploader
if Uploader.Form("file1")<>"" then
Files = Uploader.Form("file1")
response.write "fil"
' This starts the upload process
Uploader.Upload()
'******************************************
' Use [FileUploader object].Form to access
' additional form variables submitted with
' the file upload(s). (used below)
'******************************************
dim images(20)
dim files
files = 0
For Each File In Uploader.Files.Items
' Save the file
File.SaveToDisk Server.MapPath("images")
if files > ubound(images) then redim images(files+20)
images(files) = file.filename
'response.write images(files) & "
"
files = files + 1
Next
'End If
id = Uploader.Form("id")
'response.write id&"
"
'******************skriver ut textrutans text
headline = Uploader.Form("headline")
'response.write headline
'******************skriver ut andra textrutans text
onpage = Uploader.Form("onpage")
'response.write onpage&"
"
dat = date()
'*********Detta lägger in data i databasen i resp fält*******************'
sql= "UPDATE upload SET datum = '"& dat &"', headline = '"& headline &"', image1 = '"& images(0) &"' WHERE upload_id='" & id &"';"
conn.Execute (sql)
else
id = Uploader.Form("id")
'response.write id&"
"
'******************skriver ut textrutans text
headline = Uploader.Form("headline")
'response.write headline
'******************skriver ut andra textrutans text
onpage = Uploader.Form("onpage")
'response.write onpage&"
"
dat = date()
existing = Uploader.Form("existing")
response.write Uploader.Form("existing")
'*********Detta lägger in data i databasen i resp fält*******************'
sql= "UPDATE upload SET datum = '"& dat &"', headline = '"& headline &"', image1 = '"& existing &"' WHERE upload_id='" & id &"';"
conn.Execute (sql)
end if
'***********stänger databasen***************'
conn.close
set conn=nothing
response.redirect("links.asp?onpage="& onpage &"")
%>
```
Mycket tacksam för hjälp!
Permalänk: https://www.webforum.nu/p/100885
## #2 — clacke, 2004-04-04T13:32Z
Ingen som vet?
Permalänk: https://www.webforum.nu/p/1314053
## #3 — LarsG, 2004-04-05T17:37Z
```
Uploader.Upload()
```
körs bara i första fallet, dvs då
```
if Uploader.Form("file1")<>"" then
```
Permalänk: https://www.webforum.nu/p/1317471
## #4 — clacke, 2004-04-05T17:45Z
Tack LarsG du är en klipp :-)
Men tro det eller men jag fixade det själv med:
```
File.SaveToDisk Server.MapPath("images")
if files > ubound(images) then redim images(files+20)
images(files) = file.filename
'response.write images(files) & "
"
nybild=images(files)
'response.write nybild
files = files + 1
Next
'***********************************************************************************************
if nybild <>"" then
```
Funkar precis som det ska.
Men tack ändå.
Permalänk: https://www.webforum.nu/p/1317478
---
Tråden på webben: https://www.webforum.nu/amne/asp/100885-uppdatera-upload-problem