Hjælp til et script omkring filupload kombineret med access db.

<html>
<head>
<title></title>
</head>
<%
session.lcid = 1030

set conn = server.createobject("adodb.connection")
conn.open "provider=msdasql;driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("../../db/lillelund.mdb")

set filopdatering = server.createobject("aspsmartupload.smartupload")

filopdatering.upload

const adopenkeyset = 1
const adlockoptimistic = 3

set rs = server.createobject("adodb.recordset")
sql = "select * from produkter"
rs.open sql, conn, adopenkeyset, adlockoptimistic

rs.addnew


'Opretter variabler
varenr = filopdatering.form("varenr")
gruppe = filopdatering.form("gruppe")
type_123 = filopdatering.form("type_123")
navn = filopdatering.form("navn")
beskrivelse = filopdatering.form("beskrivelse")
data = filopdatering.form("data")
pris = filopdatering.form("pris")

rs("varenr") = varenr
rs("gruppe") = gruppe
rs("type") = type_123
rs("navn") = navn
rs("beskrivelse") = beskrivelse
rs("data") = data
rs("pris") = pris

rs("billede") = filopdatering.files("billede").filename
rs("pdfkatalog") = filopdatering.files("pdf-katalog").filename
rs("pdfdiagram") = filopdatering.files("pdf-katalog").filename
rs("doc1") = filopdatering.files("doc1").filename
rs("doc2") = filopdatering.files("doc2").filename

rs.update

filopdatering.files("billede").saveas "../../images/vare/" & filopdatering.files("billede").filename
filopdatering.files("pdf-katalog").saveas "../../pdf/" & filopdatering.files("pdf-katalog").filename
filopdatering.files("pdf-diagram").saveas "../../pdf/dia/" & filopdatering.files("pdf-diagram").filename
filopdatering.files("doc1").saveas "../../pdf/doc/" & filopdatering.files("doc1").filename
filopdatering.files("doc2").saveas "../../pdf/doc/" & filopdatering.files("doc2").filename

response.redirect("opret.htm")

%>

Point hermed hævet til 100 :-(

Og 145!