Chili Upload og Access db

Din fx. upload_form.asp

<FORM ACTION="fileupld.asp" METHOD="POST" ENCTYPE="multipart/form-data">
<INPUT TYPE="FILE" NAME="FILE">
<INPUT TYPE="SUBMIT" VALUE="Send">
</FORM>

og din fileupld.asp skal være:
<%
Response.Expires = 0
Set fbase = Server.CreateObject("Chili.Upload.1")
filnavn = fbase.SourceFileName & fbase.SourceFileExtension
fbase.SizeLimit = 10000 ' Hvis du vil begrænse uploads størrelsen

'fbase.SaveToFile("/opt/datafiles/test.dat") 'Sti til upload mappen eller:
fbase.SaveToFile("Server.mapPath("/") & "/dinmappe/" & filnavn")
%>

<%
'Gem I database
strConnect = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../database/dbnavn.mdb")
Set objConn = Server.CreateObject("ADODB.Connection")
call objConn.Open(strConnect)
id = "id nr eller ?"
tekst ="din tekst"
dato= now()
strINSERT = "INSERT INTO upload (id, filnavn, tekst, dato) VALUES ( '"
    strINSERT = strINSERT &  id & "', '" & filnavn & "', '" & tekst & "', '" & dato & "')"
   
    call objConn.execute(strINSERT)
objConn.close()
%>

Jeg har ikke prøvet om det virker, for at jeg ikke har installeret chili. du kan finde mere om upload chili her
http://www.chilisoft.com/caspdoc/360docs/html/chili_upload_file_upload_component_.htm

<%
'læs fra data base
strConnect = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../database/dbnavn.mdb")
Set objConn = Server.CreateObject("ADODB.Connection")
call objConn.Open(strConnect)

dim strSELECT, objRecordSet
  strSELECT = "select * from upload "
  set etRecordSet = objConn.execute(strSELECT)
  do until etRecordSet.EOF
%>
<a href="../dinmappe/<%=etRecordSet("filnavn")%>" ><%=etRecordSet("filnavn")%></a><br>
<% etRecordSet.moveNext()
  loop %>

<% objConn.close() %>

I den sidste del kan få data fra data base.

dim strSELECT, objRecordSet = dim strSELECT

Lukker, fandt en hel anden løsning.