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) & "<br>"
files = files + 1
Next
'End If
id = Uploader.Form("id")
'response.write id&"<br>"
'******************skriver ut textrutans text
headline = Uploader.Form("headline")
'response.write headline
'******************skriver ut andra textrutans text
onpage = Uploader.Form("onpage")
'response.write onpage&"<br>"
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&"<br>"
'******************skriver ut textrutans text
headline = Uploader.Form("headline")
'response.write headline
'******************skriver ut andra textrutans text
onpage = Uploader.Form("onpage")
'response.write onpage&"<br>"
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 &"")
%>
<html>
<head>
</head>
<body>
</body>
</html>
Mycket tacksam för hjälp!