<!-- #include file="krillebus.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Rollspelssmedjans filmmusiksrecensioner</title>
<link href="databas.css" rel="StyleSheet" type="text/css">
<LINK REL="SHORTCUT ICON" HREF="favicon.ico">
</head>
<body>
<h1>FMRDB: Filmmusiksrecensionsdatabasen</h1>
<div class="marginal">
<!-- #include file="fmrdb_meny.asp" -->
</div>
<div class="limpa">
<%
katid = stripInput(request.querystring("id"))
if katid = "" then
sql = "exec fmrdb_listkat"
set rs1 = conn.execute(sql)
%>
<h2>Lista över kategorier</h2>
<p>
<%
while not rs1.EOF
r_katid = rs1("KatId")
r_katnamn = trim(rs1("KategoriNamn"))
rs1.movenext
%>
<a href="fmrdb_listkat.asp?id=<%= r_katid %>"><%= r_katnamn %></a><br>
<%
wend
rs1.close
set rs1 = nothing
%>
</p>
<%
else
sql = "exec fmrdb_listkat @KatId = " & katid
set rs1 = conn.execute(sql)
if rs1.EOF then
%>
<h2>Fel</h2>
<p>Det fanns inga skivor i denna kategori i databasen.
</p>
<%
else
r_katnamn = rs1("KategoriNamn")
%>
<h2>Lista över skivor i kategorin <%= r_katnamn %></h2>
<table border="0">
<tr>
<td><b>Titel</b></td>
<td><b>Betyg</b></td>
</tr>
<%
while not rs1.EOF
k_titel = thefix(rs1("Titel"))
k_betyg = rs1("Betyg")
k_skivid = rs1("SkivId")
rs1.movenext
%>
<tr>
<td valign="top"><a href="fmrdb_showreview.asp?id=<%= k_skivid %>"><%= k_titel %></a></td>
<td align="center" valign="top"><%= k_betyg %></td>
</tr>
<%
wend
%>
</table>
<%
end if
rs1.close
set rs1 = nothing
end if
%>
<hr>
<p>
<small>All grafik skapades av Krister Sundelin och recensionerna tillhör sina respektive upphovsmän.
Omslagsbilder är © respektive förlag.
Allt material är © upphovsmännen, och får inte användas utan uttryckligt tillstånd från dessa.</small>
</p>
</div>
</body>
</html>