Billede skal vises via database
Jeg har et spørgsmål angående en side, som jeg har sat op til nogle bruger, med en database, hvor jeg har brugerne i med deres oplysninger.Men nu vil jeg gerne ha´ et billede med, det er egentlig mig ligegyldigt om dette ligger i databasen eller om det ligger i en separat mappe, med et link dertil i databasen.
Koden til den side, som skal vise billedet er på denne måde :
<%
id = Request.Querystring("id")
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("brugere.mdb")
Conn.Open DSN
strSQL = "SELECT * FROM brugere WHERE id=" & id
Set rs = Conn.Execute(strSQL)
Response.Write "<p><b>" & rs("real_name") & "</b>"
Response.write "<p><b><u>Profilinformation</u></b>"
Response.Write "<p><b>" & rs("brugernavn") & "</b>"
Response.Write "<p><b>E-mail:</b> <a href=mailto:" & rs("email") & ">" & rs("email") & "</a></p>"
if rs("icq") <> "" then
Response.Write "<p><b>ICQ:</b> <a href='http://wwp.icq.com/scripts/Search.dll?to=" & rs("ICQ") & "' title='Tilføj til Contact List i ICQ'>" & rs("ICQ") & "</a> <img src='http://wwp.icq.com/scripts/online.dll?icq=" & rs("icq") & "&img=5' border='0'>"
end if
if rs("hjemmeside") <> "" then
Response.Write "<p><b>Hjemmeside:</b> <a href=" & rs("Hjemmeside") & " target=_blank>" & rs("Hjemmeside") & "</a>"
end if
Response.Write "<p><b>Dato for oprettelse af profil:</b> " & rs("oprettet") & "<br>"
Response.Write "<p><b>Sidste login her på siden :</b> " & rs("sidste_login") & "<br>"
Response.Write "<p><b>Hvilken clan er du med :</b> " & rs("clan") & "<br>"
Response.Write "<p><b>Clan Hjemmeside:</b> <a href=" & rs("clan_hp") & " target=_blank>" & rs("clan_hp") & "</a><br><br>"
Response.Write "<p><b>Fødselsdato :</b> " & rs("fodselsdato") & "<br>"
Response.Write "<p><b>Kommentar :</b> " & rs("kommentar") & "<br>"
Response.Write "<table width='65%'><tr><td align=right><a href='java script:history.back()'>Tilbage</a></td></tr></table>"
If session("login") = true AND session("brugernavn") = rs("brugernavn") then
End If
Conn.Close
Set Conn = Nothing
%>
Bliver meget glad vist der er nogen der kan hjælpe ;)