Galleri - Det rigtige billede vises ikke
Jeg forsøger at lave et gallei til min hp. Det er også fint lykkes, men problemer når man klikker på et billede for at gå videre til foto.asp, så er det ikke det billede som der vises på visbilleder.asp der vises. Uanset hvilket billede jeg klikker på bliver det billede der er tilføjet først i db vist.mine koder ser således ud
visbilleder.asp
<%
set conn = server.CreateObject("adodb.connection")
set rs = server.CreateObject("adodb.recordset")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("billeder.mdb")
sql="select * from billeder"
set rs = conn.execute(sql)
Do
response.write "<a href=""foto.asp?id="&rs("id")&"""><img src="""&rs("path")&""" width=""65"" height=""49"" border=""0"" alt="& rs("name") & "></a> "
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
--------------
foto.asp
<%
set conn = server.CreateObject("adodb.connection")
set rs = server.CreateObject("adodb.recordset")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("billeder.mdb")
sql="select * from billeder "
set rs = conn.execute(sql)
response.write "<h3>" & rs("name") & "</h3>"
response.write "<b>" & rs("description") & "</b><br/><br/>"
response.write "<img src='" & rs("path") & "'><br/>Tilføjet " & rs("uploaded") & "</center>"
response.write "<br/>"
Conn.Close
Set Conn = Nothing
%>
