<!-- #include file="krillebus.asp" -->
<%
checkpermission 5
%>
<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">
<h2>Redigera recension</h2>
<%
skivid = request.querystring("id")
if skivid = "" then
response.redirect "fmrdb.asp"
end if
sql = "fmrdb_getskiva " & skivid
set rs1 = conn.execute (sql)
if rs1.EOF then
%>
<p>
Hemskt ledsen. Skivan du sökte efter fanns inte i databasen.
</p>
<%
else
r_titel = thefix(rs1("titel"))
r_bestnr = rs1("bestnr")
r_betyg = rs1("betyg")
r_recension = rs1("recension")
r_forlagsid = rs1("forlagsid")
r_userid = rs1("userid")
r_image = rs1("image")
rs1.close
set rs1 = nothing
%>
<p>
Fyll i fälten nedan. Flera kompositörer kan väljas genom att man håller nere CTRL
och markerar flera kompositörer i listan. Saknas en eller flera kompositörer eller
ett förlag, lägg till dessa <b>innan</b> formuläret fylls i.
</p>
<form action="fmrdb_editskiva2.asp" method="post">
<input type="hidden" name="skivid" value="<%= skivid %>">
<input type="hidden" name="image" value="<%= r_image %>">
<table border="0">
<tr>
<td><b>Titel:</b></td>
<td><input type="text" name="titel" value="<%= r_titel %>"></td>
</tr>
<tr>
<td valign="top"><b>Kompositör:</b></td>
<td><select name="komp" size="5" multiple>
<%
sql = "exec fmrdb_getkomps @skivid = " & skivid
set rs1 = conn.execute(sql)
while not rs1.EOF
r_kompid = rs1("kompid")
r_fnamn = trim(rs1("fornamn"))
r_enamn = trim(rs1("efternamn"))
r_sel = trim(rs1("komp"))
rs1.movenext
kompnamn = joinNames(r_fnamn, r_enamn)
if r_sel = "0" then
vald = ""
else
vald = "selected"
end if
%>
<option value="<%= r_kompid %>" <%= vald %>><%= kompnamn %></option>
<%
wend
rs1.close
set rs1 = nothing
%>
</select><br>
<small><i>Genom att hålla nere Ctrl och markera flera kompositörer så kan man välja flera
kompositörer till samma skiva.</i></small><br>
<a href="fmrdb_addcomp.asp">Lägg till kompositör</a><br>
</td>
</tr>
<tr>
<td valign="top"><b>Förlag</b></td>
<td><select name="label" size="1">
<%
sql = "exec fmrdb_getlabels"
set rs1 = conn.execute(sql)
while not rs1.EOF
forlagsid = rs1("Forlagsid")
forlagsnamn = rs1("Forlagsnamn")
rs1.movenext
if forlagsid = r_forlagsid then
vald = "selected"
else
vald = ""
end if
%>
<option value="<%= forlagsid %>" <%= vald %>><%= forlagsnamn %></option>
<%
wend
rs1.close
set rs1 = nothing
%>
</select><br>
<a href="fmrdb_addlabel.asp">Lägg till förlag</a><br>
</td>
</tr>
<tr>
<td><b>Beställningsnr:</b></td>
<td><input type="text" name="bestnr" value="<%= r_bestnr %>"></td>
</tr>
<tr>
<td valign="top"><b>Recension:</b></td>
<td><textarea rows="8" name="recension" cols="40"><%= r_recension %></textarea></td>
</tr>
<tr>
<td valign="top"><b>Kategori</b></td>
<td valign="top"><select name="kat" size="5" multiple>
<%
sql = "exec fmrdb_getkats @skivid = " & skivid
set rs1 = conn.execute(sql)
while not rs1.EOF
katid = rs1("KatId")
katnamn = rs1("KategoriNamn")
r_sel = trim(rs1("Kat"))
rs1.movenext
if r_sel = "0" then
vald = ""
else
vald = "selected"
end if
%>
<option value="<%= katid %>" <%= vald %>><%= katnamn %></option>
<%
wend
rs1.close
set rs1 = nothing
%></select><br>
<small><i>Genom att hålla nere Ctrl och markera flera kategorier så kan man välja flera
kategorier till samma skiva.</i></small><br>
<a href="fmrdb_addkat.asp">Lägg till kategori</a><br>
</td>
</tr>
<td><b>Betyg:</b></td>
<td><select name="betyg" size="1">
<%
vald1 = ""
vald2 = ""
vald3 = ""
vald4 = ""
select case trim(cstr(r_betyg))
case "1"
vald1 = "selected"
case "2"
vald2 = "selected"
case "3"
vald3 = "selected"
case "4"
vald4 = "selected"
case else
vald1 = "selected"
end select
%>
<option value="1" <%= vald1 %>>Betyg 1: var god kräks!</option>
<option value="2" <%= vald2 %>>Betyg 2: sömnpiller</option>
<option value="3" <%= vald3 %>>Betyg 3: njutning</option>
<option value="4" <%= vald4 %>>Betyg 4: stöldbegärlig</option>
</select></td>
<tr><td colspan="2" align="right"><input type="submit" name="submit" value="Spara recension"></td></tr>
</table>
</form>
<%
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>