Indsæt billede fra database....
Jeg har lavet et nyhedsmodul hvor hvor jeg skriver til databasen via en form på siden! Jeg har et felt der hedder billede - hvori jeg skriver "billedenavn".jpgDet navn skal referere til en mappe hvori billederne til mine nyhed ligger.....
Selve koden ser sådan her ud...
<%
'Åbn databasen
Set conntemp = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("nyheder/database/nyhed.mdb") & "; UID=Administrator; PWD="
conntemp.open DSN
mode=request("mode")
if mode="nyhed" and request("id") <> "" then
sql = "SELECT * from Nyheder WHERE ID=" & request("id")
set rstemp = conntemp.execute(sql)
response.write "<br><font face=""Arial, Helvetica, sans-serif"" size=""1"">" & rstemp("dato") & "</font><br><br><b><font face=""Arial, Helvetica, sans-serif"" size=""2"" >" & rstemp("overskrift") & "</font></b><hr size=""1"" noshade color=""000000""><font face=""Arial, Helvetica, sans-serif"" size=""1""></font><font face=""Arial, Helvetica, sans-serif"" size=""2"">" & rstemp("tekst") & "</font>"
else
sql = "SELECT top 1 * from Nyheder where sprog='dansk' ORDER BY id desc"
set rstemp = conntemp.execute(sql)
response.write ""
response.write "<font face=""Arial, Helvetica, sans-serif"" size=""2"">" & rstemp("overskrift") & "</font> <font face=""Arial, Helvetica, sans-serif"" size=""1"">" & rstemp("dato") & "</font><p><font face=""Arial, Helvetica, sans-serif"" size=""2"">" & rstemp("tekst") & "</font>"
end if
'Luk databasen
conntemp.close
set conntemp=nothing
%>
Hvad skal jeg skrive så den henter det rigtige billede til den rigtige nyhed....altså hvis nyheden refererer til 1.jpg så skal den automatisk hente 1.jpg fra min mappe???????????
