Billeder i database

Gemme du billederne i databasen ?

Det ville være noget nemmere at gemme stien til billedet også gemme filerne på drevet istedet..

og dine databaser, vil i netsrac eks. bliver noget hurtigere

->netsrac
Ja, jeg ved godt at det er nemmere at lave, men har du et system der også er nemt for brugeren.
Således at brugeren bare skal uploade billedet samtidig med at man indtaster tekst, og så bliver billedet vist samtidig med den post i databasen hvor teksten står.

Ja jeg har da et system liggende med den feature, men det skal nok tilpasses lidt så.

->netsrac
Hvad fisker du efter.... sig frem

hyldgaard >> Fisker ikke efter noget, here goes:

<%
response.buffer = true
if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then

uploadsti = server.mappath(\".\") & \"\\biledder\"
uploadsti2 = uploadsti & \"\\\"

Set upl = Server.CreateObject(\"SoftArtisans.FileUp\")


Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\") & \";UID=admin;PWD=;\"
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"Select * From images\"
rs.Open strSQL, Conn, 1, 3
rs.AddNew
rs(\"overskrift\") = Server.HTMLEncode(upl.form(\"overskrift\"))
rs(\"maerke\") = Server.HTMLEncode(upl.form(\"maerke\"))
rs(\"model\") = Server.HTMLEncode(upl.form(\"model\"))
rs(\"aargang\") = Server.HTMLEncode(upl.form(\"aargang\"))
rs(\"kilometer\") = Server.HTMLEncode(upl.form(\"kilometer\"))
rs(\"synet\") = Server.HTMLEncode(upl.form(\"synet\"))
rs(\"pris\") = Server.HTMLEncode(upl.form(\"pris\"))
rs(\"beskrivelse\") = Server.HTMLEncode(upl.form(\"beskrivelse\"))
rs(\"farve\") = Server.HTMLEncode(upl.form(\"farve\"))
rs(\"kategori\") = Server.HTMLEncode(upl.form(\"kategori\"))
rs.Update
id = rs(\"id\")
rs.Close
Set rs = Nothing


if upl.Form(\"billede\").TotalBytes = \"0\" then
billede = \"\"
else
billede = id & \".jpg\"
save = uploadsti2 & billede
upl.Form(\"billede\").SaveAs save
end if

Conn.Execute(\"UPDATE DISTINCTROW images SET billede = \'\" & billede & \"\' WHERE id = \" & id)
Conn.Close
set Conn = Nothing
response.redirect (\"vis.asp?id=\" & id)

else

%>
<HTML>
<HEAD><TITLE> - </TITLE></HEAD>
<BODY>
<form enctype=\"multipart/form-data\" method=\"post\" action=\"new.asp\">
<font color=\"CC0000\"><% =request.querystring(\"fejl\") %></font><BR>
Overskrift:<BR>
<input type=\"text\" name=\"overskrift\"><BR>
Pris:<BR>
<input type=\"text\" name=\"pris\"><BR>
M&aelig;rke:<BR>
<input type=\"text\" name=\"maerke\"><BR>
Model:<BR>
<input type=\"text\" name=\"model\"><BR>
&Aring;rgang:<BR>
<input type=\"text\" name=\"aargang\"><BR>
Kilometer:<BR>
<input type=\"text\" name=\"kilometer\"><BR>
Sidst Synet:<BR>
<input type=\"text\" name=\"synet\"><BR>
Farve:<BR>
<input type=\"text\" name=\"farve\"><BR>
Kategori:<BR>
<select size=\"1\" name=\"kategori\">
    <option value=\"Biler\">Biler</option>
    <option value=\"Diverse\">Diverse</option>
</select><BR>
Beskrivelse:<BR>
<input type=\"text\" name=\"beskrivelse\"><BR>
Billede:<BR>
<input type=\"file\" name=\"billede\"><BR>
<input type=\"submit\" value=\"Gem\">
</form>
</BODY>
</HTML>
<% end if %>


Det skal selvfølgelig tilrettes lidt.

Det ser godt ud, hvis du gider må du gerne maile databasen til mig, men ellers laver jeg den selv

jens@hyldgaard.net

Jeg kan ikke lige finde databasen, det er et gammelt projekt..

Jeg kan ikke helt få det til at virke, hvad skal der stå i filen new.asp

Det er hele filen new.asp som jeg har lagt her.

OK

Jeg kan ikke rigtig få det til at virke, kan jeg prøve at maile det jeg har lavet til dig.

Ja du kan maile det på eksperten@cnh.dk så skal jeg kigge på det snarest.