ja, jeg er ret newbie, så poster lige noget kode her:
<%
idnr = Request.QueryString(\"nr\")
If idnr = \"\" Then
Response.Redirect \"vis.asp?nr=1\"
Else
Kategori = idnr
Session(\"nr\") = idnr
End If
%>
<html>
<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<title>Annika.dk - Mit Univers....</title>
<link REL=\"Stylesheet\" href=\"css/dvd.css\" Type=\"text/css\">
</head>
<body>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.Mappath(\"Inc/Dvd.mdb\")
SQL = \"Select * From Film Where id = \" & Kategori & \" Order By ID\"
Set RS = Conn.Execute(SQL)
%>
<div align=\"center\">
<table cellpadding=0 cellspacing=0 border=0 width=\"430\" class=\"td2\">
<tr>
<td align=\"center\" width=\"450\" valign=\"middle\" colspan=\"3\">
<b>
<font size=\"3\">
<% Response.write RS(\"Navn\") %>
<br>
</font>
</b>
<hr color=\"#000000\">
</td>
</tr>
<tr>
<td align=\"center\" width=\"120\" colspan=\"2\">
<% Do While Not RS.EOF %>
<% if not rs(\"Billede\") = \"billede/\" then %>
<img Src=<% =rs(\"Billede\") %>>
<% else %>
<img Src=\"billede/none.gif\">
<% end if %>
</td>
<td align=\"left\" width=\"300\">
Handling -
taget fra kassetten
</td>
her er mere kode....
og det slutter med:
</table>
</div>
<%
RS.MoveNext
Loop
%>
</body>
</html>
