Avatar billede matthiasmarkussen Nybegynder
08. maj 2006 - 11:40 Der er 3 kommentarer

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

Jeg har tilrettet et script jeg har fundet. Oprindeligt en gæstebog med billedeupload.
Det virker sådan set, men jeg kunne godt tænke mig at man kan oprette på trods af at der ikke vælges filer til upload...

Jeg har prøvet forskelige løsninger m. if sætninger osv. men kan ikke få det til at spille ;-)
Avatar billede matthiasmarkussen Nybegynder
08. maj 2006 - 11:40 #1
<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")

%>
Avatar billede matthiasmarkussen Nybegynder
09. maj 2006 - 11:40 #2
Point hermed hævet til 100 :-(
Avatar billede matthiasmarkussen Nybegynder
10. maj 2006 - 10:18 #3
Og 145!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester