Avatar billede jerving Nybegynder
08. november 2001 - 23:45 Der er 4 kommentarer og
1 løsning

ASPUpload

Jeg har en database liggende med en tabel der hedder \"furniture\". der er 1 kollone til et billed (OLE-Objekt) og tre tekstkolonner.

Det fungerer fint med at indsætte ny tekst via en asp side men når der på samme tid skal indsættes et billed og dermed benyttes aspupload, er det filmen knaækker for mig.
Siden med formen:
<form method=\"POST\" enctype=\"multipart/form-data\" action=\"indsaet.asp\">
<input type=\"text\" size=\"10\" name=\"Navn\">
<input type=\"file\" size=\"40\" name=\"Billede\">
<input type=\"submit\" value=\"Upload!\">

Siden \"indsaet.asp\":

<%
\' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"/db/database.mdb\")
Conn.Open DSN

strSQL = \"Insert into furniture (Navn) values(\'\" & Request.Form(\"Navn\") & \"\')\"
Conn.Execute(strSQL)

\' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing

Set Upload = Server.CreateObject(\"Persits.Upload.1\")
Upload.Save \"d:\\www\\opus57.dk\\upload\"
On Error Resume Next
For Each File in Upload.Files
File.ToDatabase \"DSN=furniture;UID=MITUSERNAME;PWD=MIT PASSWORD;\", _
\"insert into MyImages(filename, Billede) values(?)\"
if Err <> 0 Then
Response.Write \"Error saving the file: \" & Err.Description
Else
File.Delete
Response.Write \"Success!\"
End If
Next


%>

Jeg får blot en \"Siden kan ikke vises\"- besked, når jeg tester den. Er der nogen der kan hjælpe? Skal lige siges, at jeg er en klovn til asp :(
Avatar billede jerving Nybegynder
08. november 2001 - 23:48 #1
Ups en lille rettelse:

<%
\' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"/db/database.mdb\")
Conn.Open DSN

strSQL = \"Insert into furniture (Navn) values(\'\" & Request.Form(\"Navn\") & \"\')\"
Conn.Execute(strSQL)

\' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing

Set Upload = Server.CreateObject(\"Persits.Upload.1\")
Upload.Save \"d:\\www\\opus57.dk\\upload\"
On Error Resume Next
For Each File in Upload.Files
File.ToDatabase \"DSN=furniture;UID=MITUSERNAME;PWD=MIT PASSWORD;\", _
\"insert into furniture(filename, Billede) values(?)\"
if Err <> 0 Then
Response.Write \"Error saving the file: \" & Err.Description
Else
File.Delete
Response.Write \"Success!\"
End If
Next


%>
Avatar billede keysersoze Ekspert
08. november 2001 - 23:52 #2
det er aldrig godt (og SPECIELT med access) at lægge billeder direkte ind i databasen! lav det istedet, så billedet bliver uploadet til en mappe og stien+billednavn bliver lagt i et tekstfelt i databasen...
Avatar billede jerving Nybegynder
09. november 2001 - 15:23 #3
Tak keysersoze, men jeg vil lige understrege at jeg er en klovn til asp - så hvordan gør man det? :)
Avatar billede keysersoze Ekspert
11. november 2001 - 20:51 #4
hvis du kigger på asp-uploades hjemmeside, kan du højst sandsynligt finde lidt dokumentation der...
Avatar billede jerving Nybegynder
03. oktober 2002 - 16:21 #5
Lukker
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