FMRDB: Filmmusiksrecensionsdatabasen

Redigera recension

<% 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 %>

Hemskt ledsen. Skivan du sökte efter fanns inte i databasen.

<% 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 %>

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 innan formuläret fylls i.

Titel:
Kompositör:	<% 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 %> ><%= kompnamn %> <% wend rs1.close set rs1 = nothing %> Genom att hålla nere Ctrl och markera flera kompositörer så kan man välja flera kompositörer till samma skiva. Lägg till kompositör
Förlag	<% 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 %> ><%= forlagsnamn %> <% wend rs1.close set rs1 = nothing %> Lägg till förlag
Beställningsnr:
Recension:	<%= r_recension %>
Kategori	<% 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 %> ><%= katnamn %> <% wend rs1.close set rs1 = nothing %> Genom att hålla nere Ctrl och markera flera kategorier så kan man välja flera kategorier till samma skiva. Lägg till kategori
Betyg:	<% 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 %> >Betyg 1: var god kräks! >Betyg 2: sömnpiller >Betyg 3: njutning >Betyg 4: stöldbegärlig

<% end if %>

---

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.