upload

Jeg kan ikke  blive klog på hvad der sker, så nu poster jeg altså hele scriptet:

For Each File in Upload.Files fanger hele tiden kun af af filerne, lige meget hvordan jeg drejer den. Den skal virke på den måde, at man kan udfylde højre eller venstre, eller begge og altid få opdateret. Hvis en er tom, skal den ikke overskrive med tom. Håber dette var klar nok?


<%@LANGUAGE="VBSCRIPT"%>
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
'Upload.IgnoreNoPost = True

' Upload files
'Upload.OverwriteFiles = False ' Generate unique names
Upload.SetMaxSize 1048576 ' Truncate files above 1MB
Upload.save "c:\www\domain.dk\www\billeder\"

For Each File in Upload.Files
  if file_v = "" then
    file_v = File.ExtractFileName
  else
    file_h = File.ExtractFileName
  end if
Next

' Databaseforbindelse - husk at angive sti til din database

    Set Conn = Server.CreateObject("ADODB.connection")
    Conn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
    "DBQ=c:\www\domain.dk\www\db\katalog.mdb"
    Conn.Open
   
' SQL sætning opbygges
'filnavn_v = "test1.txt"
'filnavn_h = "test2.txt"
strSQL = "UPDATE produkt SET v = '" & file_v & "', h = '" & file_h & "' WHERE produkt_id=" & Request.QueryString("produkt_id")


' SQL sætning eksekveres
'Response.Write("sql er:" & strSQL)
Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>