<% strRecordID = Request.QueryString("recordID") strRecord = Request.QueryString("record") strArtist = Request.QueryString("artist") strBox = Request.QueryString("box") %> <% Set RSRecord = Server.CreateObject("ADODB.Recordset") Record = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.ID = " & strRecordID & " " RSRecord.Open Record, Connect, adOpenDynamic, adLockOptimistic Set RSRecordB = Server.CreateObject("ADODB.Recordset") RecordB = "SELECT tblRegRecord.*, tblRegMedia.Name AS MName FROM tblRegRecord INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.BoxID = " & strRecordID & " ORDER BY tblRegRecord.RecNo" RSRecordB.Open RecordB, Connect, adOpenDynamic, adLockOptimistic strRec = RSRecord("NoRec") strSidor = RSRecord("Sides") If strRec = "1" Or strRec = "2" Or strRec = "3" Or strRec = "4" Or strRec = "5" Or strRec = "6" Then If strSidor = 2 Then Set RSTrack1A = Server.CreateObject("ADODB.Recordset") Track1A = "SELECT * FROM tblRegTrack WHERE RecID = " & strRecordID & " AND RecNo = '1' AND Side = 'A' AND Deleted = False ORDER BY RecNo, Side, TrackNo " RSTrack1A.Open Track1A, Connect, adOpenDynamic, adLockOptimistic Set RSTrack1B = Server.CreateObject("ADODB.Recordset") Track1B = "SELECT * FROM tblRegTrack WHERE RecID = " & strRecordID & " AND RecNo = '1' AND Side = 'B' AND Deleted = False ORDER BY RecNo, Side, TrackNo " RSTrack1B.Open Track1B, Connect, adOpenDynamic, adLockOptimistic Else Set RSTrack1 = Server.CreateObject("ADODB.Recordset") Track1 = "SELECT * FROM tblRegTrack WHERE RecID = " & strRecordID & " AND RecNo = '1' AND Deleted = False ORDER BY RecNo, Side, TrackNo " RSTrack1.Open Track1, Connect, adOpenDynamic, adLockOptimistic End If End If If strRec = "2" Or strRec = "3" Or strRec = "4" Or strRec = "5" Or strRec = "6" Then If strSidor = 2 Then Set RSTrack2A = Server.CreateObject("ADODB.Recordset") Track2A = "SELECT * FROM tblRegTrack WHERE RecID = " & strRecordID & " AND RecNo = '2' AND Side = 'A' AND Deleted = False ORDER BY RecNo, Side, TrackNo " RSTrack2A.Open Track2A, Connect, adOpenDynamic, adLockOptimistic Set RSTrack2B = Server.CreateObject("ADODB.Recordset") Track2B = "SELECT * FROM tblRegTrack WHERE RecID = " & strRecordID & " AND RecNo = '2' AND Side = 'B' AND Deleted = False ORDER BY RecNo, Side, TrackNo " RSTrack2B.Open Track2B, Connect, adOpenDynamic, adLockOptimistic Else Set RSTrack2 = Server.CreateObject("ADODB.Recordset") Track2 = "SELECT * FROM tblRegTrack WHERE RecID = " & strRecordID & " AND RecNo = '2' AND Deleted = False ORDER BY RecNo, Side, TrackNo " RSTrack2.Open Track2, Connect, adOpenDynamic, adLockOptimistic End If End If If strRec = "3" Or strRec = "4" Or strRec = "5" Or strRec = "6" Then If strSidor = 2 Then Set RSTrack3A = Server.CreateObject("ADODB.Recordset") Track3A = "SELECT * FROM tblRegTrack WHERE RecID = " & strRecordID & " AND RecNo = '3' AND Side = 'A' AND Deleted = False ORDER BY RecNo, Side, TrackNo " RSTrack3A.Open Track3A, Connect, adOpenDynamic, adLockOptimistic Set RSTrack3B = Server.CreateObject("ADODB.Recordset") Track3B = "SELECT * FROM tblRegTrack WHERE RecID = " & strRecordID & " AND RecNo = '3' AND Side = 'B' AND Deleted = False ORDER BY RecNo, Side, TrackNo " RSTrack3B.Open Track3B, Connect, adOpenDynamic, adLockOptimistic Else Set RSTrack3 = Server.CreateObject("ADODB.Recordset") Track3 = "SELECT * FROM tblRegTrack WHERE RecID = " & strRecordID & " AND RecNo = '3' AND Deleted = False ORDER BY RecNo, Side, TrackNo " RSTrack3.Open Track3, Connect, adOpenDynamic, adLockOptimistic End If End If If strRec = "4" Or strRec = "5" Or strRec = "6" Then If strSidor = 2 Then Set RSTrack4A = Server.CreateObject("ADODB.Recordset") Track4A = "SELECT * FROM tblRegTrack WHERE RecID = " & strRecordID & " AND RecNo = '4' AND Side = 'A' AND Deleted = False ORDER BY RecNo, Side, TrackNo " RSTrack4A.Open Track4A, Connect, adOpenDynamic, adLockOptimistic Set RSTrack4B = Server.CreateObject("ADODB.Recordset") Track4B = "SELECT * FROM tblRegTrack WHERE RecID = " & strRecordID & " AND RecNo = '4' AND Side = 'B' AND Deleted = False ORDER BY RecNo, Side, TrackNo " RSTrack4B.Open Track4B, Connect, adOpenDynamic, adLockOptimistic Else Set RSTrack4 = Server.CreateObject("ADODB.Recordset") Track4 = "SELECT * FROM tblRegTrack WHERE RecID = " & strRecordID & " AND RecNo = '4' AND Deleted = False ORDER BY RecNo, Side, TrackNo " RSTrack4.Open Track4, Connect, adOpenDynamic, adLockOptimistic End If End If If strRec = "5" Or strRec = "6" Then If strSidor = 2 Then Set RSTrack5A = Server.CreateObject("ADODB.Recordset") Track5A = "SELECT * FROM tblRegTrack WHERE RecID = " & strRecordID & " AND RecNo = '5' AND Side = 'A' AND Deleted = False ORDER BY RecNo, Side, TrackNo " RSTrack5A.Open Track5A, Connect, adOpenDynamic, adLockOptimistic Set RSTrack5B = Server.CreateObject("ADODB.Recordset") Track5B = "SELECT * FROM tblRegTrack WHERE RecID = " & strRecordID & " AND RecNo = '5' AND Side = 'B' AND Deleted = False ORDER BY RecNo, Side, TrackNo " RSTrack5B.Open Track5B, Connect, adOpenDynamic, adLockOptimistic Else Set RSTrack5 = Server.CreateObject("ADODB.Recordset") Track5 = "SELECT * FROM tblRegTrack WHERE RecID = " & strRecordID & " AND RecNo = '5' AND Deleted = False ORDER BY RecNo, Side, TrackNo " RSTrack5.Open Track5, Connect, adOpenDynamic, adLockOptimistic End If End If If strRec = "6" Then If strSidor = 2 Then Set RSTrack6A = Server.CreateObject("ADODB.Recordset") Track6A = "SELECT * FROM tblRegTrack WHERE RecID = " & strRecordID & " AND RecNo = '6' AND Side = 'A' AND Deleted = False ORDER BY RecNo, Side, TrackNo " RSTrack6A.Open Track6A, Connect, adOpenDynamic, adLockOptimistic Set RSTrack6B = Server.CreateObject("ADODB.Recordset") Track6B = "SELECT * FROM tblRegTrack WHERE RecID = " & strRecordID & " AND RecNo = '6' AND Side = 'B' AND Deleted = False ORDER BY RecNo, Side, TrackNo " RSTrack6B.Open Track6B, Connect, adOpenDynamic, adLockOptimistic Else Set RSTrack6 = Server.CreateObject("ADODB.Recordset") Track6 = "SELECT * FROM tblRegTrack WHERE RecID = " & strRecordID & " AND RecNo = '6' AND Deleted = False ORDER BY RecNo, Side, TrackNo " RSTrack6.Open Track6, Connect, adOpenDynamic, adLockOptimistic End If End If %> <% If strBox = "False" Then %>

<% = RSRecord("Name") %>
( <% = RSRecord("AName") %> )

<% If RSRecord("Sale") = True Then %> Till salu!!
Pris: <% = RSRecord("Price") %>


<% End If %>

<% If RSRecord.EOF Then Response.Write "Inga Skivor hittade...

" Else %>

Allmänt:

<% If RSRecord("Image") = True Then %>/<% =RSRecord("ID") %>.jpg"><% Else %><% End If %> Utgivningsår: <% If RSRecord("Ar") = "" Then %>-<% Else %><% =RSRecord("Ar") %><% End If %>
Copyright: <% If RSRecord("Copyright") = "" Then %>-<% Else %><% =RSRecord("Copyright") %><% End If %>
Published: <% If RSRecord("Published") = "" Then %>-<% Else %><% =RSRecord("Published") %><% End If %>
Katalog#: <% If RSRecord("CatNo") = "" Then %>-<% Else %><% =RSRecord("CatNo") %><% End If %>
Speltid: <% If RSRecord("Length") = "" Then %>-<% Else %><% =RSRecord("Length") %><% End If %>

Skick:

Konvolut: <% If RSRecord("CoverOuter") = "" Or IsNull(RSRecord("CoverOuter")) = True Then %>-<% Else %><% =RSRecord("CoverOuter") %><% End If %>
Innerkonvolut: <% If RSRecord("CoverInner") = "" Or IsNull(RSRecord("CoverInner")) = True Then %>-<% Else %><% =RSRecord("CoverInner") %><% End If %>
Skiva: <% If RSRecord("Record") = "" Or IsNull(RSRecord("Record")) = True Then %>-<% Else %><% =RSRecord("Record") %><% End If %>

Övrigt:

<% If RSRecord("Info") = "" Or IsNull(RSRecord("Info")) = True Then %>-<% Else %><% =FormatStr(RSRecord("Info")) %><% End If %>
<% End If %>

<% If strRec = "1" Or strRec = "2" Or strRec = "3" Or strRec = "4" Or strRec = "5" Or strRec = "6" Then If strSidor = 2 Then If RSTrack1A.EOF Then %>

Inga låtar inlagda ännu...

<% Else %> <% If Not RSRecord("NoRec") = "1" Then %><% =RSRecord("MName") %> 1 av <% =RSRecord("NoRec") %>, Sida A<% Else %>Sida A<% End If %> <% If Not RSTrack1A("Performed") = "" Then %> <% Else %>
<% End If %> <% If Not RSTrack1A("Performed") = "" Then %> <% End If %> <% x = 0 Do Until RSTrack1A.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% If Not RSTrack1A("Performed") = "" Then %> <% End If %> <% x = x + 1 RSTrack1A.MoveNext Loop RSTrack1A.Close %>
Spår TitelArtist / GruppLängd
<% =RSTrack1A("TrackNo") %>  <% =RSTrack1A("Name") %> <% =RSTrack1A("Performed") %> <% =RSTrack1A("Length") %> 

<% If Not RSRecord("NoRec") = "1" Then %><% =RSRecord("MName") %> 1 av <% =RSRecord("NoRec") %>, Sida B<% Else %>Sida B<% End If %> <% If Not RSTrack1B("Performed") = "" Then %> <% Else %>
<% End If %> <% If Not RSTrack1B("Performed") = "" Then %> <% End If %> <% x = 0 Do Until RSTrack1B.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% If Not RSTrack1B("Performed") = "" Then %> <% End If %> <% x = x + 1 RSTrack1B.MoveNext Loop RSTrack1B.Close %>
Spår TitelArtist / GruppLängd
<% =RSTrack1B("TrackNo") %>  <% =RSTrack1B("Name") %> <% =RSTrack1B("Performed") %> <% =RSTrack1B("Length") %> 
<% End If %> <% Else If RSTrack1.EOF Then %>

Inga låtar inlagda ännu...

<% Else %> <% If Not RSRecord("NoRec") = "1" Then %><% =RSRecord("MName") %> 1 av <% =RSRecord("NoRec") %><% Else %><% End If %> <% If Not RSTrack1("Performed") = "" Then %> <% Else %>
<% End If %> <% If Not RSTrack1("Performed") = "" Then %> <% End If %> <% x = 0 Do Until RSTrack1.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% If Not RSTrack1("Performed") = "" Then %> <% End If %> <% x = x + 1 RSTrack1.MoveNext Loop RSTrack1.Close %>
Spår TitelArtist / GruppLängd
<% =RSTrack1("TrackNo") %>  <% =RSTrack1("Name") %> <% =RSTrack1("Performed") %> <% =RSTrack1("Length") %> 
<% End If End If End If %> <% If strRec = "2" Or strRec = "3" Or strRec = "4" Or strRec = "5" Or strRec = "6" Then If strSidor = 2 Then If RSTrack2A.EOF Then Response.Write "" Else %>
<% =RSRecord("MName") %> 2 av <% =RSRecord("NoRec") %>, Sida A <% If Not RSTrack2A("Performed") = "" Then %> <% Else %>
<% End If %> <% If Not RSTrack2A("Performed") = "" Then %> <% End If %> <% x = 0 Do Until RSTrack2A.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% If Not RSTrack2A("Performed") = "" Then %> <% End If %> <% x = x + 1 RSTrack2A.MoveNext Loop RSTrack2A.Close %>
Spår TitelArtist / GruppLängd
<% =RSTrack2A("TrackNo") %>  <% =RSTrack2A("Name") %> <% =RSTrack2A("Performed") %> <% =RSTrack2A("Length") %> 

<% =RSRecord("MName") %> 2 av <% =RSRecord("NoRec") %>, Sida B <% If Not RSTrack2B("Performed") = "" Then %> <% Else %>
<% End If %> <% If Not RSTrack2B("Performed") = "" Then %> <% End If %> <% x = 0 Do Until RSTrack2B.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% If Not RSTrack2B("Performed") = "" Then %> <% End If %> <% x = x + 1 RSTrack2B.MoveNext Loop RSTrack2B.Close %>
Spår TitelArtist / GruppLängd
<% =RSTrack2B("TrackNo") %>  <% =RSTrack2B("Name") %> <% =RSTrack2B("Performed") %> <% =RSTrack2B("Length") %> 
<% End If Else If RSTrack2.EOF Then Response.Write "" Else %>
<% =RSRecord("MName") %> 2 av <% =RSRecord("NoRec") %> <% If Not RSTrack2("Performed") = "" Then %> <% Else %>
<% End If %> <% If Not RSTrack2("Performed") = "" Then %> <% End If %> <% x = 0 Do Until RSTrack2.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% If Not RSTrack2("Performed") = "" Then %> <% End If %> <% x = x + 1 RSTrack2.MoveNext Loop RSTrack2.Close %>
Spår TitelArtist / GruppLängd
<% =RSTrack2("TrackNo") %>  <% =RSTrack2("Name") %> <% =RSTrack2("Performed") %> <% =RSTrack2("Length") %> 
<% End If End If End If If strRec = "3" Or strRec = "4" Or strRec = "5" Or strRec = "6" Then If strSidor = 2 Then If RSTrack3A.EOF Then Response.Write "" Else %>
<% =RSRecord("MName") %> 3 av <% =RSRecord("NoRec") %>, Sida A <% If Not RSTrack3A("Performed") = "" Then %> <% Else %>
<% End If %> <% If Not RSTrack3A("Performed") = "" Then %> <% End If %> <% x = 0 Do Until RSTrack3A.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% If Not RSTrack3A("Performed") = "" Then %> <% End If %> <% x = x + 1 RSTrack3A.MoveNext Loop RSTrack3A.Close %>
Spår TitelArtist / GruppLängd
<% =RSTrack3A("TrackNo") %>  <% =RSTrack3A("Name") %> <% =RSTrack3A("Performed") %> <% =RSTrack3A("Length") %> 

<% =RSRecord("MName") %> 3 av <% =RSRecord("NoRec") %>, Sida B <% If Not RSTrack3B("Performed") = "" Then %> <% Else %>
<% End If %> <% If Not RSTrack3B("Performed") = "" Then %> <% End If %> <% x = 0 Do Until RSTrack3B.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% If Not RSTrack3B("Performed") = "" Then %> <% End If %> <% x = x + 1 RSTrack3B.MoveNext Loop RSTrack3B.Close %>
Spår TitelArtist / GruppLängd
<% =RSTrack3B("TrackNo") %>  <% =RSTrack3B("Name") %> <% =RSTrack3B("Performed") %> <% =RSTrack3B("Length") %> 
<% End If Else If RSTrack3.EOF Then Response.Write "" Else %>
<% =RSRecord("MName") %> 3 av <% =RSRecord("NoRec") %> <% If Not RSTrack3("Performed") = "" Then %> <% Else %>
<% End If %> <% If Not RSTrack3("Performed") = "" Then %> <% End If %> <% x = 0 Do Until RSTrack3.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% If Not RSTrack3("Performed") = "" Then %> <% End If %> <% x = x + 1 RSTrack3.MoveNext Loop RSTrack3.Close %>
Spår TitelArtist / GruppLängd
<% =RSTrack3("TrackNo") %>  <% =RSTrack3("Name") %> <% =RSTrack3("Performed") %> <% =RSTrack3("Length") %> 
<% End If End If End If If strRec = "4" Or strRec = "5" Or strRec = "6" Then If strSidor = 2 Then If RSTrack4A.EOF Then Response.Write "" Else %>
<% =RSRecord("MName") %> 4 av <% =RSRecord("NoRec") %>, Sida A <% If Not RSTrack4A("Performed") = "" Then %> <% Else %>
<% End If %> <% If Not RSTrack4A("Performed") = "" Then %> <% End If %> <% x = 0 Do Until RSTrack4A.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% If Not RSTrack4A("Performed") = "" Then %> <% End If %> <% x = x + 1 RSTrack4A.MoveNext Loop RSTrack4A.Close %>
Spår TitelArtist / GruppLängd
<% =RSTrack4A("TrackNo") %>  <% =RSTrack4A("Name") %> <% =RSTrack4A("Performed") %> <% =RSTrack4A("Length") %> 

<% =RSRecord("MName") %> 4 av <% =RSRecord("NoRec") %>, Sida B <% If Not RSTrack4B("Performed") = "" Then %> <% Else %>
<% End If %> <% If Not RSTrack4B("Performed") = "" Then %> <% End If %> <% x = 0 Do Until RSTrack4B.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% If Not RSTrack4B("Performed") = "" Then %> <% End If %> <% x = x + 1 RSTrack4B.MoveNext Loop RSTrack4B.Close %>
Spår TitelArtist / GruppLängd
<% =RSTrack4B("TrackNo") %>  <% =RSTrack4B("Name") %> <% =RSTrack4B("Performed") %> <% =RSTrack4B("Length") %> 
<% End If Else If RSTrack4.EOF Then Response.Write "" Else %>
<% =RSRecord("MName") %> 4 av <% =RSRecord("NoRec") %> <% If Not RSTrack4("Performed") = "" Then %> <% Else %>
<% End If %> <% If Not RSTrack4("Performed") = "" Then %> <% End If %> <% x = 0 Do Until RSTrack4.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% If Not RSTrack4("Performed") = "" Then %> <% End If %> <% x = x + 1 RSTrack4.MoveNext Loop RSTrack4.Close %>
Spår TitelArtist / GruppLängd
<% =RSTrack4("TrackNo") %>  <% =RSTrack4("Name") %> <% =RSTrack4("Performed") %> <% =RSTrack4("Length") %> 
<% End If End If End If If strRec = "5" Or strRec = "6" Then If strSidor = 2 Then If RSTrack5A.EOF Then Response.Write "" Else %>
<% =RSRecord("MName") %> 5 av <% =RSRecord("NoRec") %>, Sida A <% If Not RSTrack5A("Performed") = "" Then %> <% Else %>
<% End If %> <% If Not RSTrack5A("Performed") = "" Then %> <% End If %> <% x = 0 Do Until RSTrack5A.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% If Not RSTrack5A("Performed") = "" Then %> <% End If %> <% x = x + 1 RSTrack5A.MoveNext Loop RSTrack5A.Close %>
Spår TitelArtist / GruppLängd
<% =RSTrack5A("TrackNo") %>  <% =RSTrack5A("Name") %> <% =RSTrack5A("Performed") %> <% =RSTrack5A("Length") %> 

<% =RSRecord("MName") %> 5 av <% =RSRecord("NoRec") %>, Sida B <% If Not RSTrack5B("Performed") = "" Then %> <% Else %>
<% End If %> <% If Not RSTrack5B("Performed") = "" Then %> <% End If %> <% x = 0 Do Until RSTrack5B.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% If Not RSTrack5B("Performed") = "" Then %> <% End If %> <% x = x + 1 RSTrack5B.MoveNext Loop RSTrack5B.Close %>
Spår TitelArtist / GruppLängd
<% =RSTrack5B("TrackNo") %>  <% =RSTrack5B("Name") %> <% =RSTrack5B("Performed") %> <% =RSTrack5B("Length") %> 
<% End If Else If RSTrack5.EOF Then Response.Write "" Else %>
<% =RSRecord("MName") %> 5 av <% =RSRecord("NoRec") %> <% If Not RSTrack5("Performed") = "" Then %> <% Else %>
<% End If %> <% If Not RSTrack5("Performed") = "" Then %> <% End If %> <% x = 0 Do Until RSTrack5.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% If Not RSTrack5("Performed") = "" Then %> <% End If %> <% x = x + 1 RSTrack5.MoveNext Loop RSTrack5.Close %>
Spår TitelArtist / GruppLängd
<% =RSTrack5("TrackNo") %>  <% =RSTrack5("Name") %> <% =RSTrack5("Performed") %> <% =RSTrack5("Length") %> 
<% End If End If End If If strRec = "6" Then If strSidor = 2 Then If RSTrack6A.EOF Then Response.Write "" Else %>
<% =RSRecord("MName") %> 6 av <% =RSRecord("NoRec") %>, Sida A <% If Not RSTrack6A("Performed") = "" Then %> <% Else %>
<% End If %> <% If Not RSTrack6A("Performed") = "" Then %> <% End If %> <% x = 0 Do Until RSTrack6A.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% If Not RSTrack6A("Performed") = "" Then %> <% End If %> <% x = x + 1 RSTrack6A.MoveNext Loop RSTrack6A.Close %>
Spår TitelArtist / GruppLängd
<% =RSTrack6A("TrackNo") %>  <% =RSTrack6A("Name") %> <% =RSTrack6A("Performed") %> <% =RSTrack6A("Length") %> 

<% =RSRecord("MName") %> 6 av <% =RSRecord("NoRec") %>, Sida B <% If Not RSTrack6B("Performed") = "" Then %> <% Else %>
<% End If %> <% If Not RSTrack6B("Performed") = "" Then %> <% End If %> <% x = 0 Do Until RSTrack6B.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% If Not RSTrack6B("Performed") = "" Then %> <% End If %> <% x = x + 1 RSTrack6B.MoveNext Loop RSTrack6B.Close %>
Spår TitelArtist / GruppLängd
<% =RSTrack6B("TrackNo") %>  <% =RSTrack6B("Name") %> <% =RSTrack6B("Performed") %> <% =RSTrack6B("Length") %> 
<% End If Else If RSTrack6.EOF Then Response.Write "" Else %>
<% =RSRecord("MName") %> 5 av <% =RSRecord("NoRec") %> <% If Not RSTrack6("Performed") = "" Then %> <% Else %>
<% End If %> <% If Not RSTrack6("Performed") = "" Then %> <% End If %> <% x = 0 Do Until RSTrack6.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% If Not RSTrack6("Performed") = "" Then %> <% End If %> <% x = x + 1 RSTrack6.MoveNext Loop RSTrack6.Close %>
Spår TitelArtist / GruppLängd
<% =RSTrack6("TrackNo") %>  <% =RSTrack6("Name") %> <% =RSTrack6("Performed") %> <% =RSTrack6("Length") %> 
<% End If End If End If %>

Recension:
<% =FormatStr(RSRecord("Review")) %>


Betyg:
<% If IsNull(RSRecord("Grade")) = False Then %><% =RSRecord("Grade") %> / 5<% End If %>

<% RSRecord.CLose %>

Tillbaka till menyn

<% ElseIf strBox = "True" Then %>

<% = RSRecord("Name") %>
<% = RSRecord("AName") %>

<% If RSRecord.EOF Then Response.Write "Inga Skivor hittade...

" Else %>

Allmänt:

<% If RSRecord("Image") = True Then %>/<% =RSRecord("ID") %>.jpg"><% Else %><% End If %> Utgivningsår: <% If RSRecord("Ar") = "" Then %>-<% Else %><% =RSRecord("Ar") %><% End If %>
Copyright: <% If RSRecord("Copyright") = "" Then %>-<% Else %><% =RSRecord("Copyright") %><% End If %>
Published: <% If RSRecord("Published") = "" Then %>-<% Else %><% =RSRecord("Published") %><% End If %>
Katalog#: <% If RSRecord("CatNo") = "" Then %>-<% Else %><% =RSRecord("CatNo") %><% End If %>
Speltid: <% If RSRecord("Length") = "" Then %>-<% Else %><% =RSRecord("Length") %><% End If %>

Skick:

Konvolut: <% If RSRecord("CoverOuter") = "" Or IsNull(RSRecord("CoverOuter")) = True Then %>-<% Else %><% =RSRecord("CoverOuter") %><% End If %>
Innerkonvolut: <% If RSRecord("CoverInner") = "" Or IsNull(RSRecord("CoverInner")) = True Then %>-<% Else %><% =RSRecord("CoverInner") %><% End If %>
Skiva: <% If RSRecord("Record") = "" Or IsNull(RSRecord("Record")) = True Then %>-<% Else %><% =RSRecord("Record") %><% End If %>

Övrigt:

<% If RSRecord("Info") = "" Or IsNull(RSRecord("Info")) = True Then %>-<% Else %><% =FormatStr(RSRecord("Info")) %><% End If %>
<% End If %>

<% If RSRecordB.EOF Then %>

Inga skivor inlagda ännu...

<% Else %> <% x = 0 Do Until RSRecordB.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% x = x + 1 RSRecordB.MoveNext Loop End If RSRecordB.Close %>
Skiva # Pic Titel Media
<% =RSRecordB("RecNo") %>  <% If RSRecordB("Image") = True Then %>/<% =RSRecordB("ID") %>.jpg"><% Else %><% End If %> <% If RSRecordB("Noinfo") = False Then %>&box=<% =RSRecordB("Box") %>"><% =RSRecordB("Name") %><% Else %><% =RSRecordB("Name") %><% End If %>  <% If Not RSRecordB("NoRec") = "1" Then %><% =RSRecordB("NoRec") %>-<% End If %><% =RSRecordB("MName") %> 

Recension:
<% =FormatStr(RSRecord("Review")) %>


Betyg:
<% If IsNull(RSRecord("Grade")) = False Then %><% =RSRecord("Grade") %> / 5<% End If %>

<% RSRecord.CLose %>

Tillbaka till menyn

<% End If %>