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 :(
