haster >> aspupload

Det må være noget i denne retning...

<% response.buffer=true %>

<html>
<head>
<meta name=\"Robot\" content=\"noindex,nofollow\">
</head>
<body>

<%
    dbConnection = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\\db\\database.mdb\"
    Set Upload = Server.CreateObject(\"Persits.Upload.1\")   
    Upload.OverwriteFiles = True
    Upload.SetMaxSize 1000000, True
    Upload.SaveVirtual(\"../grafik/upload/\")
   
Set Str_id          = Upload.Form(\"id\")
Set    Str_bem          = Upload.form(\"bem\")

For Each File in Upload.Files

  Dim FileName
  FileName = File.ExtractFileName

    if Err <> 0 Then

        Response.Write \"Der er sket en fejl! : \" & Err.Description

    Else
   
        Response.Write \"Filen \"&FileName&\" er uploaded!<br>\"
        Response.Write Str_id




\'gemmer nyt billed og oplysninger i databasen
\'--------------------------------------------

%>

<% 
strSQL = \"SELECT * FROM billeder\"
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
rs.Open strSQL, dbConnection, 1, 3

  rs.AddNew   
  rs(\"billed\")          = FileName
  rs(\"bem\")              = Str_bem
  rs(\"hund\")            = Str_id
End If
  rs.Update   

rs.Close
Set rs = Nothing

\'Response.Redirect \"accept.asp target=parent\"


Next

Response.Redirect \"accept.asp\"
%>




</body>
</html>

sk at forme skal være :

<form method=\"post\" name=\"form\" ENCTYPE=\"multipart/form-data\" action=\"gembilled.asp?action=Gem\">

bongi >> jeg er nu nået lidt længere:

-------------------------

<html>
<body>

<%
  Set Upload = Server.CreateObject(\"Persits.Upload.1\")
  Upload.OverwriteFiles = False
  Upload.SetMaxSize 300000, True
  Upload.SaveVirtual(\"/\")

  \'For Each Item in Upload.Form
  \'  FileID = Item.Value
  \'Next

  For Each File in Upload.Files

  \'Dim FileName
  FileName = File.ExtractFileName

session(\"db\") = \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"test.mdb\")
    File.ToDatabase Session(\"DB\"), \"insert into test(test) \" &_
    \"values(\'\" &FileName& \"\')\"
    if Err <> 0 Then
      Response.Write \"Der er sket en fejl! : \" & Err.Description
    Else

  Dim FileName
  FileName = File.ExtractFileName

      File.Delete
      Response.Write \"Filen \"&FileName&\" er uploaded!<br>\"
    End If
  Next
%>

</body>
</html>

-------------------

med denne bliver filnavnet sat ind i databasen som den skal - men billedet kommer ikke med... kan ikke lige gennemskue hvor fejlen ligger...

Filen bliver gemt i bibloteket der hedder grafik/upload som det står her :

Upload.SaveVirtual(\"../grafik/upload/\")
   

med den ovenstående kode, bliver filnavnet kun lagt i databasen og ikke andre steder - i hvert fald når jeg tester det....

Hmmm jeg har det kørende live, og den gemmer billedet i den nævnte folder (husk skriverettighed) og gemmer filnavnet i databasen, så det virker altså fint på min server (NT 4.0 /IIS )

har du installeret aspupload ??

ja - det er installeret... jeg kigger lige lidt mere på det...

du har vel ikke tilfældigvis et færdigt eksempel? er ved at gå ret død i det her :o/

jeg har fået løst mit problem...

jeg har ikke brugt din kode men har fået en smule inspration - så hvis ikke der er den store uenighed deler jeg pointene...

tak for den hjælp du har ydet..

huh - den kan ikke engang finde ud af at dele!! det var da godt nok mystifystisk...

nå - men shit happens ;o)