Upload af filer

Chili!ASP har en inbygget Chili!Upload:
http://docs.sun.com/source/817-2514-10/Ch13_SpicePack84.html

Alt efter hvor ny en version af Chili!ASP virker den ikke helt godt. Det som ikke virker er at man kan upload filer og andre form felter på en gang.


Alternativt skal du lave upload uden komponent som dette eks:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnasdj01/html/asp0900.asp
Koden kan downloades herfra, det er en bruger fra eksperten som har lagt det i en zip:
http://www.cwboy.dk/downloads/

Hey Eagleeye

Er du ikke flink at kontakte mig: jappe@besked.com

Mvh Thomas (Dirch)

Tak zip-filen firker fint

Har udvidet eks. lidt, vil gerne have den til at gemme navnet på filen i databasen, jeg har følgende kode:

<% Option Explicit %>
<html>
<body>
<!-- #INCLUDE FILE="FilePost.asp" -->


<%

    Dim res
   
    Response.Write "ReadFormData"
    res = ReadFormData
    Response.Write "...Done!<br />"
   
    If res <> "" Then
        Response.Write res
        Response.End
    End If
   
    If FileCount < 1 Then
        Response.Write "Ingen filer " & FileCount
        Response.End
    End If
   
    Response.Write "SavePostedFile"
    res = SavePostedFile(0, "./", "test", "")
    Response.Write "...Done!<br />"
   
    Response.Write FieldCount & "<br />"
   
    Dim tekst
    tekst = requestForm("tekst")
   
    Response.Write "CleanUp"
    CleanUp
    Response.Write "...Done!<br />"
%>
<%
if request.form("Opret1")="Opret1" then
fil1 = request.form("fil1")
tekst = request.form("tekst")
' Databaseforbindelse - husk at angive sti til din database
Dim Conn
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
Set Conn = Server.CreateObject("ADODB.Connection")

Conn.ConnectionString="DRIVER={MySQL};SERVER=localhost;DATABASE=styrketraening_;UID=styrketraening_;PWD=68sNoa;"
Conn.Open

' SQL sætning opbygges
strSQL = "Insert into produkt ("

'strSQL = strSQL & "billede, "
strSQL = strSQL & "billede) "

strSQL = strSQL & "values('"

'strSQL = strSQL & tekst& "', '"
strSQL = strSQL & fil1& "')where id="&tekst

response.write strSQL
' SQL sætning eksekveres
Conn.Execute(strSQL)
'set rs = Conn.Execute("select max(id) as nyID from produkt")
'nyId= rs("nyID")

Conn.Close
Set Conn = Nothing
'response.redirect "betalingsbetingelse.asp"
end if
' Luk databaseforbindelse
%>
Filen <% =res %> blev gemt.<br />
Tekst: <% =tekst %>
</body>
</html>

Får følgende fejlmeddelelse:

ReadFormData...Done!
SavePostedFile...Done!

CleanUp...Done!

Request object error 'ASP 0207 : 80004005'

Cannot use Request.Form

/postit.asp, line 39

Cannot use Request.Form collection after calling BinaryRead.

Måske du kan hjælpe