Oploade jpeg-billeder til Access database

Hvorfor vil du have billederne i databasen?
Hvorfor ikke have filerne på disk, og navnene på filerne i databasen?

Jow det lyder meget fornuftigt - hvordan gør man?

gem for guds skyld ikke billederne i databasen - lav kun en sti i databasen og læg billederne en andet sted...

du kan uploade både med og uden komponent - og du kan finde eksempler på begge dele på www.netcoders.dk og www.activeserverpages.dk

p.s. en komponent er at foretrække, så find ud af hvad du kan bruge...

sone>> Tror du du kan lave det?

Ja med din hjælp!
Hvilken komponent har du adgang til ?

Med komponent mener du???

Det objekt som skal være til stede på serveren for at du kan uploade filer.
Man _kan_ gøre det uden komponent, men er ikke så fedt.

Jeg er lidt \"grøn\" mht. ASP - men hvad kan objektet eksempelvis være?

Det eneste jeg ved er at mit web-hotel bl.a. understøtter ASP!

Er det noget jeg kan undersøge hos mit web-hotel?

Hvilken udbyder har du ?

www.web-sale.dk

Okay, jeg kan lave et eksempel senere på dagen.

Lyder godt netsrac - hvis det er godt er jeg villig til at give dig flere point.

Det skal bare laves så folk kan uploade jpeg-filer til en access database - så jeg kan lave nogle udtræk til en anden side på mit site.

Det skal bruges til at man kan sætte tekst og billede ind på en side - ved udtræk fra databasen.

jeg tror det du leter etter ligger her:

http://www.activeserverpages.dk/aspdigital/kapitel2/upload_access.asp

/nute

Dette burde kunne gøre det hvis du gemmer det i profil.asp

<%
action = request.querystring(\"action\")
if action = \"send\" then
Set myUpload = Server.CreateObject(\"AspSmartUpload.SmartUpload\")

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\") & \";UID=admin;PWD=;\"

Set rs2 = Server.CreateObject(\"ADODB.RecordSet\")
rs2.Open \"Select * From profil\", Conn, 1, 3
rs2.AddNew
rs2(\"felt\") = myupload.form(\"felt\")
rs2(\"felt2\") = myupload.form(\"felt2\")
rs2(\"felt3\") = myupload.form(\"felt3\")
rs2.Update
id = rs2(\"id\")
rs2.Close
set rs2 = nothing


type = right(myUpload.files.item(0).filename, 3)
newfilename = id & \".\" & type
myUpload.files.item(0).saveas \"c:\\uploads\\\" & newfilename

conn.execute(\"UPDATE profil set billede = \'\" & newfilename & \"\' WHERE id = \" & id)
set conn = nothing
set myupload = nothing
else %>

<FORM ENCTYPE=\"multipart/form-data\" ACTION=\"profil.asp?action=send\">
Tekst osv.
<INPUT TYPE=\"text\" NAME=\"felt\">
<INPUT TYPE=\"text\" NAME=\"felt2\">
<INPUT TYPE=\"text\" NAME=\"felt3\">
Fil.
<INPUT TYPE=\"FILE\" NAME=\"file0\">
<INPUT TYPE=\"SUBMIT\">
</FORM>
<% end if %>

Hvad med databasen??? Hvad gør jeg der?

Det er jo blot et eksempel jeg har lavet, men i det eksempel gemmer den hvad man har skrevet i felt1 i et felt i databasen som også hedder felt1.
Så renamer den billedet til det id nummer som posten blev oprettet med gemmer det i c:\\uploads

Kan du lægge det op mod en access-database? og evt. maile den til mig:
henrik-friis@mail.tele.dk

Sendt :-)

Får en fejl når jeg går ind på siden:::


Microsoft VBScript compilation error \'800a0400\'

Expected statement

/car/profil.asp, line 21

type = right(myUpload.files.item(0).filename, 3)
^

Prøv lige at ændre disse tre linier
type = right(myUpload.files.item(0).filename, 3)
newfilename = id & \".\" & type
myUpload.files.item(0).saveas \"c:\\uploads\\\" & newfilename

til

tmp = right(myUpload.files.item(0).filename, 3)
newfilename = id & \".\" & tmp
myUpload.files.item(0).saveas \"c:\\uploads\\\" & newfilename

Der bliver ikke lagt noget ind i databasen!

Lægger den bare en tom record ind ?

He..udskift:
<FORM ENCTYPE=\"multipart/form-data\" ACTION=\"profil.asp?action=send\">

med:

<FORM ENCTYPE=\"multipart/form-data\" ACTION=\"profil.asp?action=send\" METHOD=\"post\">

Det virker ik\' - har du fået det til at virke netsrac??

jeg har et script til det der virker!

Jeg har sendt dig en mail - keysersoze