Gentagelse af visning?
Jeg har dette sourcescript som finder og viser en post fra min database vha. ID - der vises således kun eet kortNu ville jeg gerne at det istedet var catname som styrede visningen og at alle de poster der er under catname vises. Kan det lade sig gøre? På forhånd tak
Her kommer den del af scriptet som styrer visningen:
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"/log/users.mdb\")
id = Request.QueryString(\"id\")
set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.Open \"SELECT * FROM Denmark WHERE ID=\" & id, Conn, 1, 3
rs(\"hits\") = rs(\"hits\") + 1
rs.Update
%>
<table width=\"100%\" cellspacing=\"1\" cellpadding=\"0\" border=\"0\" bgcolor=\"#000000\">
<tr>
<td bgcolor=\"#FFFFFF\">
<table width=\"100%\" cellspacing=\"1\" cellpadding=\"1\" border=\"0\" bgcolor=\"#FEF5CC\">
<tr>
<td class=\"skrift\">Brugernavn: <font color=\"#0066CC\">
<% = rs(\"catnavn\") %>
(
<% = rs(\"hits\") %>
) </font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor=\"#FFFFFF\">
<table width=\"100%\" cellspacing=\"1\" cellpadding=\"1\" border=\"0\">
<tr>
<td><span class=\"skrift\">Brugernavn:</span></td>
<td><span class=\"skrift\"><font color=\"#0066CC\">
<% = rs(\"catnavn\") %>
</font></span></td>
</tr>
<tr>
<td><span class=\"skrift\">Rigtige navn:</span></td>
<td><span class=\"skrift\"><font color=\"#0066CC\">
<% = rs(\"navn\") %>
</font></span></td>
</tr>
<tr>
<td><span class=\"skrift\">Alder:</span></td>
<td><span class=\"skrift\"><font color=\"#0066CC\">
<% = rs(\"alder\") %>
</font></span></td>
</tr>
<tr>
<td class=\"skrift\" width=\"150\">Køn: <font color=\"#0066CC\">
</font></td>
<td class=\"skrift\"><font color=\"#0066CC\">
<% = rs(\"kon\") %>
</font></td>
</tr>
<tr>
<td class=\"skrift\">Email: <font color=\"#0066CC\"> </font></td>
<td class=\"skrift\"><font color=\"#0066CC\">
<% If rs(\"email\") & \"\" = \"\" then %>
<% response.write(\"-\") %>
<% Else %>
<a href=\"mailto:%20<% = rs(\"email\") %>\" target=\"_blank\">
<% = rs(\"email\") %>
</a>
<% end if %>
</font></td>
</tr>
<tr>
<td class=\"skrift\">Icq: <font color=\"#0066CC\"> </font></td>
<td class=\"skrift\"><font color=\"#0066CC\">
<% If rs(\"telefon\") & \"\" = \"\" then %>
<% response.write(\"-\") %>
<% Else %>
<a href=\"http://wwp.mirabilis.com/scripts/search.dll?to=<% = rs(\"telefon\") %>\" target=\"_blank\">
<% = rs(\"telefon\") %>
</a>
<% end if %>
</font></td>
</tr>
<tr>
<td class=\"skrift\">Website:</td>
<td class=\"skrift\"><font color=\"#0066CC\"> <a href=\"http://<% = rs(\"website\") %>\" target=\"_blank\">
</a>
<% If rs(\"website\") & \"\" = \"\" then %>
<% response.write(\"-\") %>
<% Else %>
<a href=\"<% = rs(\"website\") %>\" target=\"_blank\">
<% = rs(\"website\") %>
</a>
<% end if %>
</font></td>
</tr>
<tr>
<td class=\"skrift\">Fritekst: <font color=\"#0066CC\"> </font></td>
<td class=\"skrift\"><font color=\"#0066CC\">
<% If rs(\"om\") & \"\" = \"\" then %>
<% response.write(\"-\") %>
<% Else %>
<% = rs(\"om\") %>
<% end if %>
</font></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<%
Conn.Close
Set Conn = Nothing
%>
