Vis billede og oplyninger i nyt vindue
Kære eksperter,Jeg har en access sql db, med en tilhørende side, der viser al data i en tabel: Billed, Navn, Designer og Beskrivelse.
I siden brugeren får, ser den konkrete kode således ud:
<%
Response.Write \"<table width=\"\"400\"\" border=\"\"0\"\" cellspace=\"\"5\"\" class=\"\"aspTabels\"\">\"
strSQL = \"Select * from furniture\"
Set rs = Conn.Execute(strSQL)
Response.Write \"<td align=\"\"center\"\" valign=\"\"center\"\" height=\"\"140\"\">\"
Response.Write \"<img src=\"\"pullimageFurn.asp?id=\"&rs(\"ID\")& \"\"\" width=\"\"150\"\" height=\"\"113\"\">\" & \"</td>\" & \"<td align=\"\"center\"\" valign=\"\"center\"\">\" & \"<a href=\"\"/furnWin.asp\"\" onclick=\"\"NewWindow(this.href,\'Browse\',\'400\',\'300\',\'no\',\'center\');return false\"\" onfocus=\"\"this.blur()\"\">\"
Response.Write rs(\"Navn\") & \"</td>\" & \"<td align=\"\"center\"\" valign=\"\"center\"\">\" & \"</a>\"
Response.Write rs(\"Designer\") & \"</td>\" & \"<td align=\"\"center\"\" valign=\"\"center\"\">\"
Response.Write rs(\"Beskrivelse\") & \"</td>\" & \"</tr>\"
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
Response.Write \"</table>\"
%>
pullimageFurn.asp ser således ud:
<%
Set rs = Server.CreateObject(\"ADODB.Recordset\")
ID = Request(\"ID\")
rs.Open \"select [File_Data],[Content Type] from furniture where ID = \" & ID, connStr, 2, 4
If Not rs.EOF Then
Response.ContentType = rs(\"Content Type\")
Response.BinaryWrite rs(\"File_Data\")
End If
rs.Close
Set rs = Nothing
%>
(File_Data) er billedet.
Mit spørgsmål lyder på: Er der nogen der ved hvordan jeg i det vindue der åbnes ved (Response.Write \"<img src=\"\"pullimageFurn.asp?id=\"&rs(\"ID\")& \"\"\" ),kan vises det pågældende billed alene altså, hvordan man kalder ID\'et. 2 Hvordan henter man fx. noget af det pågældende ID\'s data og sætter som <title></title>?
Jeg hårber ikke at spørgsmålet er formuleret alt for knudret. :-)
