Udtrække data fra database og vis i popup window

Koden kan ses i brug her:

http://www.autonorden-it.dk/mt/eqinventory.asp

Hilsen
Søren

<%
set rs = Server.CreateObject(\"ADODB.Connection\")
str = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\")
sql = \"SELECT * FROM eqequip order by ID DESC\"
rs.open sql,str,1,1
%>
<% while not rs.eof %>
<td width=\"20%\" valign=\"top\" bordercolorlight=\"#fcfc52\" bordercolordark=\"#fcfc52\"><p align=\"center\"><font size=\"1\"><a href=\"#\" onClick=\"window.open(\'eq_vis_item.asp?id=<%=rs.fields(\"id\")%>\', \'\', config=\'height=200,width=400,left=250,top=200,toolbar=no,menubar=no,scrollbars=no,resizeable=no,location=no,directories=no,status=no\')\";><b>Left Ear</b></a><br><br><%=rs(\"leftear\")%></font></p></td>
<% rs.move(1)
WEND
rs.close
set rs = nothing
%>
det skulle vidst virke ...


I den dersens eq_vis_item.asp skriver du så ...
<%
id = request.querystring(\"id\")
set rs = Server.CreateObject(\"ADODB.Connection\")
str = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\")
sql = \"SELECT * FROM eqequip WHERE ID = \'\"&id&\"\'\"
rs.open sql,str,1,1
%>

så kan du skrive informationen ud ved hjælp af:
<%=rs.fields(\"lefteardes\")%>
Altså inde i selve dokumentet ...

Beklager Ellebaek

Men det virkede ikke,

det eneste jeg skulle bruge var dette:

eq_vis_item.asp?id=<%=rs(\"id\")%>&item=<%=rs(\"lefteardes\")%>&name=<%=rs(\"leftear\")%>

Og så fik jeg det til at virke