% 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 %>
Spår |
Titel |
<% If Not RSTrack1A("Performed") = "" Then %>
Artist / Grupp |
<% End If %>
Längd |
<% x = 0
Do Until RSTrack1A.EOF
If x mod 2 = 0 Then
bgcolor = "" & strTblBkgndM & ""
Else
bgcolor = "" & strTblBkgndL & ""
End If %>
<% =RSTrack1A("TrackNo") %> |
<% =RSTrack1A("Name") %> |
<% If Not RSTrack1A("Performed") = "" Then %>
<% =RSTrack1A("Performed") %> |
<% End If %>
<% =RSTrack1A("Length") %> |
<% x = x + 1
RSTrack1A.MoveNext
Loop
RSTrack1A.Close %>
<% 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 %>
Spår |
Titel |
<% If Not RSTrack1B("Performed") = "" Then %>
Artist / Grupp |
<% End If %>
Längd |
<% x = 0
Do Until RSTrack1B.EOF
If x mod 2 = 0 Then
bgcolor = "" & strTblBkgndM & ""
Else
bgcolor = "" & strTblBkgndL & ""
End If %>
<% =RSTrack1B("TrackNo") %> |
<% =RSTrack1B("Name") %> |
<% If Not RSTrack1B("Performed") = "" Then %>
<% =RSTrack1B("Performed") %> |
<% End If %>
<% =RSTrack1B("Length") %> |
<% x = x + 1
RSTrack1B.MoveNext
Loop
RSTrack1B.Close %>
<% 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 %>
Spår |
Titel |
<% If Not RSTrack1("Performed") = "" Then %>
Artist / Grupp |
<% End If %>
Längd |
<% x = 0
Do Until RSTrack1.EOF
If x mod 2 = 0 Then
bgcolor = "" & strTblBkgndM & ""
Else
bgcolor = "" & strTblBkgndL & ""
End If %>
<% =RSTrack1("TrackNo") %> |
<% =RSTrack1("Name") %> |
<% If Not RSTrack1("Performed") = "" Then %>
<% =RSTrack1("Performed") %> |
<% End If %>
<% =RSTrack1("Length") %> |
<% x = x + 1
RSTrack1.MoveNext
Loop
RSTrack1.Close %>
<% 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 %>
Spår |
Titel |
<% If Not RSTrack2A("Performed") = "" Then %>
Artist / Grupp |
<% End If %>
Längd |
<% x = 0
Do Until RSTrack2A.EOF
If x mod 2 = 0 Then
bgcolor = "" & strTblBkgndM & ""
Else
bgcolor = "" & strTblBkgndL & ""
End If %>
<% =RSTrack2A("TrackNo") %> |
<% =RSTrack2A("Name") %> |
<% If Not RSTrack2A("Performed") = "" Then %>
<% =RSTrack2A("Performed") %> |
<% End If %>
<% =RSTrack2A("Length") %> |
<% x = x + 1
RSTrack2A.MoveNext
Loop
RSTrack2A.Close %>
<% =RSRecord("MName") %> 2 av <% =RSRecord("NoRec") %>, Sida B
<% If Not RSTrack2B("Performed") = "" Then %>
<% Else %>
<% End If %>
Spår |
Titel |
<% If Not RSTrack2B("Performed") = "" Then %>
Artist / Grupp |
<% End If %>
Längd |
<% x = 0
Do Until RSTrack2B.EOF
If x mod 2 = 0 Then
bgcolor = "" & strTblBkgndM & ""
Else
bgcolor = "" & strTblBkgndL & ""
End If %>
<% =RSTrack2B("TrackNo") %> |
<% =RSTrack2B("Name") %> |
<% If Not RSTrack2B("Performed") = "" Then %>
<% =RSTrack2B("Performed") %> |
<% End If %>
<% =RSTrack2B("Length") %> |
<% x = x + 1
RSTrack2B.MoveNext
Loop
RSTrack2B.Close %>
<% End If
Else
If RSTrack2.EOF Then
Response.Write ""
Else %>
<% =RSRecord("MName") %> 2 av <% =RSRecord("NoRec") %>
<% If Not RSTrack2("Performed") = "" Then %>
<% Else %>
<% End If %>
Spår |
Titel |
<% If Not RSTrack2("Performed") = "" Then %>
Artist / Grupp |
<% End If %>
Längd |
<% x = 0
Do Until RSTrack2.EOF
If x mod 2 = 0 Then
bgcolor = "" & strTblBkgndM & ""
Else
bgcolor = "" & strTblBkgndL & ""
End If %>
<% =RSTrack2("TrackNo") %> |
<% =RSTrack2("Name") %> |
<% If Not RSTrack2("Performed") = "" Then %>
<% =RSTrack2("Performed") %> |
<% End If %>
<% =RSTrack2("Length") %> |
<% x = x + 1
RSTrack2.MoveNext
Loop
RSTrack2.Close %>
<% 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 %>
Spår |
Titel |
<% If Not RSTrack3A("Performed") = "" Then %>
Artist / Grupp |
<% End If %>
Längd |
<% x = 0
Do Until RSTrack3A.EOF
If x mod 2 = 0 Then
bgcolor = "" & strTblBkgndM & ""
Else
bgcolor = "" & strTblBkgndL & ""
End If %>
<% =RSTrack3A("TrackNo") %> |
<% =RSTrack3A("Name") %> |
<% If Not RSTrack3A("Performed") = "" Then %>
<% =RSTrack3A("Performed") %> |
<% End If %>
<% =RSTrack3A("Length") %> |
<% x = x + 1
RSTrack3A.MoveNext
Loop
RSTrack3A.Close %>
<% =RSRecord("MName") %> 3 av <% =RSRecord("NoRec") %>, Sida B
<% If Not RSTrack3B("Performed") = "" Then %>
<% Else %>
<% End If %>
Spår |
Titel |
<% If Not RSTrack3B("Performed") = "" Then %>
Artist / Grupp |
<% End If %>
Längd |
<% x = 0
Do Until RSTrack3B.EOF
If x mod 2 = 0 Then
bgcolor = "" & strTblBkgndM & ""
Else
bgcolor = "" & strTblBkgndL & ""
End If %>
<% =RSTrack3B("TrackNo") %> |
<% =RSTrack3B("Name") %> |
<% If Not RSTrack3B("Performed") = "" Then %>
<% =RSTrack3B("Performed") %> |
<% End If %>
<% =RSTrack3B("Length") %> |
<% x = x + 1
RSTrack3B.MoveNext
Loop
RSTrack3B.Close %>
<% End If
Else
If RSTrack3.EOF Then
Response.Write ""
Else %>
<% =RSRecord("MName") %> 3 av <% =RSRecord("NoRec") %>
<% If Not RSTrack3("Performed") = "" Then %>
<% Else %>
<% End If %>
Spår |
Titel |
<% If Not RSTrack3("Performed") = "" Then %>
Artist / Grupp |
<% End If %>
Längd |
<% x = 0
Do Until RSTrack3.EOF
If x mod 2 = 0 Then
bgcolor = "" & strTblBkgndM & ""
Else
bgcolor = "" & strTblBkgndL & ""
End If %>
<% =RSTrack3("TrackNo") %> |
<% =RSTrack3("Name") %> |
<% If Not RSTrack3("Performed") = "" Then %>
<% =RSTrack3("Performed") %> |
<% End If %>
<% =RSTrack3("Length") %> |
<% x = x + 1
RSTrack3.MoveNext
Loop
RSTrack3.Close %>
<% 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 %>
Spår |
Titel |
<% If Not RSTrack4A("Performed") = "" Then %>
Artist / Grupp |
<% End If %>
Längd |
<% x = 0
Do Until RSTrack4A.EOF
If x mod 2 = 0 Then
bgcolor = "" & strTblBkgndM & ""
Else
bgcolor = "" & strTblBkgndL & ""
End If %>
<% =RSTrack4A("TrackNo") %> |
<% =RSTrack4A("Name") %> |
<% If Not RSTrack4A("Performed") = "" Then %>
<% =RSTrack4A("Performed") %> |
<% End If %>
<% =RSTrack4A("Length") %> |
<% x = x + 1
RSTrack4A.MoveNext
Loop
RSTrack4A.Close %>
<% =RSRecord("MName") %> 4 av <% =RSRecord("NoRec") %>, Sida B
<% If Not RSTrack4B("Performed") = "" Then %>
<% Else %>
<% End If %>
Spår |
Titel |
<% If Not RSTrack4B("Performed") = "" Then %>
Artist / Grupp |
<% End If %>
Längd |
<% x = 0
Do Until RSTrack4B.EOF
If x mod 2 = 0 Then
bgcolor = "" & strTblBkgndM & ""
Else
bgcolor = "" & strTblBkgndL & ""
End If %>
<% =RSTrack4B("TrackNo") %> |
<% =RSTrack4B("Name") %> |
<% If Not RSTrack4B("Performed") = "" Then %>
<% =RSTrack4B("Performed") %> |
<% End If %>
<% =RSTrack4B("Length") %> |
<% x = x + 1
RSTrack4B.MoveNext
Loop
RSTrack4B.Close %>
<% End If
Else
If RSTrack4.EOF Then
Response.Write ""
Else %>
<% =RSRecord("MName") %> 4 av <% =RSRecord("NoRec") %>
<% If Not RSTrack4("Performed") = "" Then %>
<% Else %>
<% End If %>
Spår |
Titel |
<% If Not RSTrack4("Performed") = "" Then %>
Artist / Grupp |
<% End If %>
Längd |
<% x = 0
Do Until RSTrack4.EOF
If x mod 2 = 0 Then
bgcolor = "" & strTblBkgndM & ""
Else
bgcolor = "" & strTblBkgndL & ""
End If %>
<% =RSTrack4("TrackNo") %> |
<% =RSTrack4("Name") %> |
<% If Not RSTrack4("Performed") = "" Then %>
<% =RSTrack4("Performed") %> |
<% End If %>
<% =RSTrack4("Length") %> |
<% x = x + 1
RSTrack4.MoveNext
Loop
RSTrack4.Close %>
<% 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 %>
Spår |
Titel |
<% If Not RSTrack5A("Performed") = "" Then %>
Artist / Grupp |
<% End If %>
Längd |
<% x = 0
Do Until RSTrack5A.EOF
If x mod 2 = 0 Then
bgcolor = "" & strTblBkgndM & ""
Else
bgcolor = "" & strTblBkgndL & ""
End If %>
<% =RSTrack5A("TrackNo") %> |
<% =RSTrack5A("Name") %> |
<% If Not RSTrack5A("Performed") = "" Then %>
<% =RSTrack5A("Performed") %> |
<% End If %>
<% =RSTrack5A("Length") %> |
<% x = x + 1
RSTrack5A.MoveNext
Loop
RSTrack5A.Close %>
<% =RSRecord("MName") %> 5 av <% =RSRecord("NoRec") %>, Sida B
<% If Not RSTrack5B("Performed") = "" Then %>
<% Else %>
<% End If %>
Spår |
Titel |
<% If Not RSTrack5B("Performed") = "" Then %>
Artist / Grupp |
<% End If %>
Längd |
<% x = 0
Do Until RSTrack5B.EOF
If x mod 2 = 0 Then
bgcolor = "" & strTblBkgndM & ""
Else
bgcolor = "" & strTblBkgndL & ""
End If %>
<% =RSTrack5B("TrackNo") %> |
<% =RSTrack5B("Name") %> |
<% If Not RSTrack5B("Performed") = "" Then %>
<% =RSTrack5B("Performed") %> |
<% End If %>
<% =RSTrack5B("Length") %> |
<% x = x + 1
RSTrack5B.MoveNext
Loop
RSTrack5B.Close %>
<% End If
Else
If RSTrack5.EOF Then
Response.Write ""
Else %>
<% =RSRecord("MName") %> 5 av <% =RSRecord("NoRec") %>
<% If Not RSTrack5("Performed") = "" Then %>
<% Else %>
<% End If %>
Spår |
Titel |
<% If Not RSTrack5("Performed") = "" Then %>
Artist / Grupp |
<% End If %>
Längd |
<% x = 0
Do Until RSTrack5.EOF
If x mod 2 = 0 Then
bgcolor = "" & strTblBkgndM & ""
Else
bgcolor = "" & strTblBkgndL & ""
End If %>
<% =RSTrack5("TrackNo") %> |
<% =RSTrack5("Name") %> |
<% If Not RSTrack5("Performed") = "" Then %>
<% =RSTrack5("Performed") %> |
<% End If %>
<% =RSTrack5("Length") %> |
<% x = x + 1
RSTrack5.MoveNext
Loop
RSTrack5.Close %>
<% 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 %>
Spår |
Titel |
<% If Not RSTrack6A("Performed") = "" Then %>
Artist / Grupp |
<% End If %>
Längd |
<% x = 0
Do Until RSTrack6A.EOF
If x mod 2 = 0 Then
bgcolor = "" & strTblBkgndM & ""
Else
bgcolor = "" & strTblBkgndL & ""
End If %>
<% =RSTrack6A("TrackNo") %> |
<% =RSTrack6A("Name") %> |
<% If Not RSTrack6A("Performed") = "" Then %>
<% =RSTrack6A("Performed") %> |
<% End If %>
<% =RSTrack6A("Length") %> |
<% x = x + 1
RSTrack6A.MoveNext
Loop
RSTrack6A.Close %>
<% =RSRecord("MName") %> 6 av <% =RSRecord("NoRec") %>, Sida B
<% If Not RSTrack6B("Performed") = "" Then %>
<% Else %>
<% End If %>
Spår |
Titel |
<% If Not RSTrack6B("Performed") = "" Then %>
Artist / Grupp |
<% End If %>
Längd |
<% x = 0
Do Until RSTrack6B.EOF
If x mod 2 = 0 Then
bgcolor = "" & strTblBkgndM & ""
Else
bgcolor = "" & strTblBkgndL & ""
End If %>
<% =RSTrack6B("TrackNo") %> |
<% =RSTrack6B("Name") %> |
<% If Not RSTrack6B("Performed") = "" Then %>
<% =RSTrack6B("Performed") %> |
<% End If %>
<% =RSTrack6B("Length") %> |
<% x = x + 1
RSTrack6B.MoveNext
Loop
RSTrack6B.Close %>
<% End If
Else
If RSTrack6.EOF Then
Response.Write ""
Else %>
<% =RSRecord("MName") %> 5 av <% =RSRecord("NoRec") %>
<% If Not RSTrack6("Performed") = "" Then %>
<% Else %>
<% End If %>
Spår |
Titel |
<% If Not RSTrack6("Performed") = "" Then %>
Artist / Grupp |
<% End If %>
Längd |
<% x = 0
Do Until RSTrack6.EOF
If x mod 2 = 0 Then
bgcolor = "" & strTblBkgndM & ""
Else
bgcolor = "" & strTblBkgndL & ""
End If %>
<% =RSTrack6("TrackNo") %> |
<% =RSTrack6("Name") %> |
<% If Not RSTrack6("Performed") = "" Then %>
<% =RSTrack6("Performed") %> |
<% End If %>
<% =RSTrack6("Length") %> |
<% x = x + 1
RSTrack6.MoveNext
Loop
RSTrack6.Close %>
<% 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 %>
Skiva # |
Pic |
Titel |
Media |
<% x = 0
Do Until RSRecordB.EOF
If x mod 2 = 0 Then
bgcolor = "" & strTblBkgndM & ""
Else
bgcolor = "" & strTblBkgndL & ""
End If %>
<% =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") %> |
<% x = x + 1
RSRecordB.MoveNext
Loop
End If
RSRecordB.Close %>
Recension:
<% =FormatStr(RSRecord("Review")) %>
Betyg:
<% If IsNull(RSRecord("Grade")) = False Then %><% =RSRecord("Grade") %> / 5<% End If %>
|
<% RSRecord.CLose %>
Tillbaka till menyn
<% End If %>