FMRDB: Filmmusiksrecensionsdatabasen

<% sql = "exec fmrdb_getskiva @skivid = " & skivid set rs1 = conn.execute(sql) if rs1.EOF then %>

Fel

Hemskt ledsen. Recensionen du sökte fanns inte i databasen.

<% else r_skivid = rs1("Skivid") r_titel = thefix(rs1("Titel")) r_bestnr = rs1("Bestnr") r_betyg = cint(rs1("Betyg")) r_recension = trim(rs1("Recension")) r_forlag = rs1("Forlagsid") r_forlagsnamn = rs1("Forlagsnamn") r_userid = rs1("UserId") r_image = rs1("Image") r_nick = rs1("nick") r_email = rs1("email") r_imagebesk = "Omslag till " & r_titel if isnull(r_image) or r_image = "" then r_image = "images/nocover.gif" r_imagebesk = "Omslagsbild ej tillgänglig" end if select case r_betyg case 1 betyg = "betyg1.gif" case 2 betyg = "betyg2.gif" case 3 betyg = "betyg3.gif" case 4 betyg = "betyg4.gif" case else betyg = "swedishchef.jpg" end select if lcase(left(r_recension, 3)) = "

" then r_recension = right(r_recension, len(r_recension) - 3) end if if lcase(right(r_recension, 4)) = "

" then r_recension = left(r_recension, len(r_recension) - 4) end if ant_komp = "Kompositör" sql = "exec fmrdb_getkomp @skivid = " & r_skivid set rs2 = conn.execute(sql) antal = 0 kompstrang = "" while not rs2.EOF antal = antal + 1 r_kompid = rs2("kompid") r_fnamn = rs2("fornamn") r_enamn = rs2("efternamn") namn = joinNames(r_fnamn, r_enamn) slask = "" & namn & ", " kompstrang = kompstrang & slask rs2.movenext wend if len(kompstrang) > 2 then kompstrang = left(kompstrang, len(kompstrang) - 2) end if rs2.close set rs2 = nothing if antal > 1 then ant_komp = "Kompositörer" end if k_antal = 0 k_katstrang = "" sql = "exec fmrdb_getkat @skivid = " & r_skivid set rs2 = conn.execute(sql) while not rs2.EOF k_antal = k_antal + 1 k_katid = rs2("katid") k_katnamn = rs2("kategorinamn") slask = "" & k_katnamn & ", " k_katstrang = k_katstrang & slask rs2.movenext wend if len(k_katstrang) > 2 then k_katstrang = left(k_katstrang, len(k_katstrang) - 2) end if if k_antal = 0 then k_label = "" else if k_antal = 1 then k_label = "Kategori" else k_label = "Kategorier" end if end if rs2.close set rs2 = nothing sql = "exec fmrdb_getcomment @skivid = " & skivid set rs2 =conn.execute(sql) if not rs2.EOF then kom_antal = rs2("NewRadId") kom_betyg = formatnumber(rs2("Betyg"), 1) kom_epost = rs2("Epost") kom_namn = rs2("Namn") kom_kom = rs2("Kommentar") kom_ip = rs2("Ip") if kom_epost <> "" then if kom_namn <> "" then kom_sig = "" & _ kom_namn & _ "" else kom_sig = "" & _ kom_epost & _ "" end if else if kom_namn <> "" then kom_sig = kom_namn else kom_sig = "Nån feg typ som inte vågar uppge sitt namn" end if end if if editaccess <> 0 then kom_sig = kom_sig & " (" & kom_ip & ")" end if else kom_antal = 0 end if rs2.close set rs2 = nothing %>

<%= r_titel %>

<% if k_antal > 0 then %> <% end if %>

<%= k_label %>: <%= k_katstrang %>

<% if r_image <> "" then %> <% end if if editaccess <> 0 then %> Lägg till/ändra bild <% end if %>

Betyg <%= r_betyg %> (betygssystemet) <% if kom_antal > 0 then %> <%= kom_antal %> besökare har givit det här soundtracket ett medelbetyg på <%= kom_betyg %>. <% end if %>

<%= ant_komp %>: <%= kompstrang %>
Förlag: <%= r_forlagsnamn %>
Beställningsnr: <%= r_bestnr %>
Recenserad av: <%= r_nick %>

<%= decodeTags(r_recension) %>

<% if kom_antal > 0 then %>

Besökarkommentar

<%= kom_sig %> hade följande att säga om denna skiva:

<%= decodeTags(kom_kom) %>

<% end if if false then %>

Säg något om denna skiva <% end if if kom_antal > 0 then %>
Visa alla kommentarer om denna skiva <% end if %>

<% if editaccess <> 0 then %>

Redigera recension

<% end if rs1.close sql = "exec fmrdb_gettracks " & r_skivid set rs1 = conn.execute(sql) if not rs1.EOF then toptrack = 0 %>

På denna skiva

<% while not rs1.EOF r_sparid = rs1("SparId") r_sparnr = rs1("SparNr") r_sparnamn = rs1("SparNamn") r_sparlen = rs1("SparLength") r_kommentar = rs1("Kommentar") r_sparkomp = joinNames(rs1("Fornamn"), rs1("Efternamn")) slask = twoDigits(minute(r_sparlen)) & ":" & twoDigits(second(r_sparlen)) if hour(r_sparlen) > 0 then slask = hour(r_sparlen) & ":" & slask end if r_sparlen = slask if editaccess <> 0 then adminlank = "Redigera spår" else adminlank = "" end if if r_sparnr > toptrack then toptrack = r_sparnr end if if r_kommentar <> "" then r_sparkomp = r_kommentar end if %> <% rs1.movenext wend %>

Nr	Spår	Längd	Kompositör/Kommentar
<%= r_sparnr %>:	<%= r_sparnamn %>	<%= r_sparlen %>	<%= r_sparkomp %>	<%= adminlank %>

<% end if if editaccess <> 0 then %>

Lägg till spår

<% end if end if rs1.close set rs1 = nothing %>

---

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.