ASPUpload og DB

Du kan bruge følgende:

<%
    Set Upload = Server.CreateObject("Persits.Upload.1")
    Upload.Save "c:\upload"
%>

Files:<BR>
<%
For Each File in Upload.Files
    Response.Write File.Name & "=" & File.Path & " (" & File.Size & ")<BR>"
Next
%>
<P>
Other items:<BR>
<%
For Each Item in Upload.Form
    Response.Write Item.Name & "=" & Item.Value & "<BR>"
Next


set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("billeder.mdb")

conn.Execute("INSERT INTO billeder (info,filename) VALUES ('" & replace(Upload.Form("info"),"'","''") & "','" & replace(File.Name,"'","''") & "')")
conn.Close
set conn = nothing
%>

Okay. Og hvad så hvis man vil uploade fx 10 filer og beskr. af gangen?

Der er lige en lille fejl i det jeg skrev, linjen skal indsættes lige efter:
Response.Write File.Name & "=" & File.Path & " (" & File.Size & ")<BR>"

Du kan sagtens tilføje flere felter til linjen:

conn.Execute("INSERT INTO billeder (info,filename,text1,text2) VALUES ('" & replace(Upload.Form("info"),"'","''") & "','" & replace(File.Name,"'","''") & "','" & replace(Upload.Form("text1"),","'","''") & "','" & replace(Upload.Form("text2"),"'","''") & "')")

og linjerne:

set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("billeder.mdb")

skal indsættes før:
For Each File in Upload.Files



Hvis du har forskellige tekster til de forskellige billeder, så kan du bruge følgende:

For Each File in Upload.Files

    Response.Write File.Name & "=" & File.Path & " (" & File.Size & ")<BR>"
Next

Jeg blev ikke helt færdig med det sidste, der skulle stå:

Hvis du har forskellige tekster til de forskellige billeder, så kan du bruge følgende:

For Each File in Upload.Files
    x=x+1
conn.Execute("INSERT INTO billeder (info,filename,text1,text2) VALUES ('" & replace(Upload.Form("info"&x),"'","''") & "','" & replace(File.Name,"'","''") & "','" & replace(Upload.Form("text1"),","'","''") & "','" & replace(Upload.Form("text2"),"'","''") & "')")

    Response.Write File.Name & "=" & File.Path & " (" & File.Size & ")<BR>"
Next

Hvor du på din side kan lave:

<input type=text name=info1>
<input type=text name=info2>
<input type=text name=info3>
osv.

Undskyld den lange svartid!
Det er prøvet, og jeg kunne ikke få det til at virke!

jeg har desværre ikke tid til at kigge på det lige nu, men får du nogen fejlmeddelelser eller noget?

Nej. Den skriver bare ikke noget i databasen. Jeg kan gøre det , hvis der ikke skal nogen beskrivelse med, altså at der kun skal gemmes filnavn i db'en. Beskrivelsen kommer ikke med!

ok, jeg har i hvert en fil liggende her, som virker. Jeg kan sende den til din e-mail, hvis du gerne vil have den.