<% strArtistID = Request.QueryString("artistID") %> <% Set RSArtist = Server.CreateObject("ADODB.Recordset") Artist = "SELECT * FROM tblRegArtist WHERE ID = " & strArtistID & " " RSArtist.Open Artist, Connect, adOpenDynamic, adLockOptimistic Set RSRecord = Server.CreateObject("ADODB.Recordset") Record = "SELECT tblRegRecord.*, tblRegMedia.Name AS MName FROM tblRegRecord INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.ArtistID = " & strArtistID & " AND tblRegRecord.BoxID IS NULL AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Ar, tblRegRecord.Name, tblRegMedia.Name " RSRecord.Open Record, Connect, adOpenDynamic, adLockOptimistic Set RSLink = Server.CreateObject("ADODB.Recordset") Link = "SELECT * FROM tblRegLink WHERE ArtistID = " & strArtistID & " AND Deleted = False ORDER BY Name" RSLink.Open Link, Connect, adOpenDynamic, adLockOptimistic Set RSRel1 = Server.CreateObject("ADODB.Recordset") Rel1 = "SELECT tblRegRelate.*, tblRegArtist.Name AS AName FROM tblRegRelate INNER JOIN tblRegArtist ON tblRegRelate.Artist2ID = tblRegArtist.ID WHERE tblRegRelate.Artist1ID = " & strArtistID & " AND tblRegRelate.Deleted = False ORDER BY tblRegArtist.Name" RSRel1.Open Rel1, Connect, adOpenDynamic, adLockOptimistic Set RSRel2 = Server.CreateObject("ADODB.Recordset") Rel2 = "SELECT tblRegRelate.*, tblRegArtist.Name AS AName FROM tblRegRelate INNER JOIN tblRegArtist ON tblRegRelate.Artist1ID = tblRegArtist.ID WHERE tblRegRelate.Artist2ID = " & strArtistID & " AND tblRegRelate.Deleted = False ORDER BY tblRegArtist.Name" RSRel2.Open Rel2, Connect, adOpenDynamic, adLockOptimistic %>

<% = RSArtist("Name") %>

<% If RSRecord.EOF Then %> <% Else %> <% x = 0 Do Until RSRecord.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% x = x + 1 RSRecord.MoveNext Loop End If RSRecord.Close %>
Pic Skiva Utgivningsår Media Kommentar Säljes Pris

Inga Skivor inlagda ännu...

<% If RSRecord("Image") = True Then %>/<% =RSRecord("ID") %>.jpg"><% Else %><% End If %> <% If RSRecord("Noinfo") = False Then %>&box=<% =RSRecord("Box") %>"><% =RSRecord("Name") %><% Else %><% =RSRecord("Name") %><% End If %>  <% =RSRecord("Ar") %>  <% If Not RSRecord("NoRec") = "1" Then %><% =RSRecord("NoRec") %>-<% End If %><% =RSRecord("MName") %><% If RSRecord("Box") = True Then %> (Box)<% End If %> <% =FormatStr(RSRecord("Info")) %>  <% If RSRecord("Sale") = True Then %>Ja<% Else %>Nej<% End If %> <% If RSRecord("Sale") = True Then %><% =RSRecord("Price") %><% Else %>-<% End If %>


Info:
<% =RSArtist("Info") %>


Länkar:
<% If RSLink.EOF Then %> <% Else %> <% x = 0 Do Until RSLink.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% x = x + 1 RSLink.MoveNext Loop %> <% End If RSLink.Close %>
Länk Besök Info

Inga Länkar inlagda...

" target="_blank"><% =RSLink("Name") %>  <% =RSLink("Visit") %>  <% =FormatStr(RSLink("Info")) %> 


Relaterade Artister/Grupper:
<% If RSRel1.EOF AND RSRel2.EOF Then %> <% Else %> <% x = 0 Do Until RSRel1.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% x = x + 1 RSRel1.MoveNext Loop RSRel1.Close %> <% Do Until RSRel2.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% x = x + 1 RSRel2.MoveNext Loop RSRel2.Close %> <% End If %>
Artist Relation Info

Inga Relationer inlagda...

"><% =RSRel1("AName") %>  <% =RSRel1("Relate") %>  <% =FormatStr(RSRel1("Info2")) %> 
"><% =RSRel2("AName") %>  <% =RSRel2("Relate") %>  <% =FormatStr(RSRel2("Info1")) %> 
<% RSArtist.Close %>

Tillbaka till menyn