% 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") %>
Pic |
Skiva |
Utgivningsår |
Media |
Kommentar |
Säljes
| Pris
|
<% If RSRecord.EOF Then %>
Inga Skivor inlagda ännu...
|
<% Else %>
<% x = 0
Do Until RSRecord.EOF
If x mod 2 = 0 Then
bgcolor = "" & strTblBkgndM & ""
Else
bgcolor = "" & strTblBkgndL & ""
End If %>
<% 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 %> |
<% x = x + 1
RSRecord.MoveNext
Loop
End If
RSRecord.Close %>
Info:
<% =RSArtist("Info") %>
|
Länkar:
Länk |
Besök |
Info |
<% If RSLink.EOF Then %>
Inga Länkar inlagda...
|
<% Else %>
<% x = 0
Do Until RSLink.EOF
If x mod 2 = 0 Then
bgcolor = "" & strTblBkgndM & ""
Else
bgcolor = "" & strTblBkgndL & ""
End If %>
" target="_blank"><% =RSLink("Name") %> |
<% =RSLink("Visit") %> |
<% =FormatStr(RSLink("Info")) %> |
<% x = x + 1
RSLink.MoveNext
Loop %>
<% End If
RSLink.Close %>
Relaterade Artister/Grupper:
Artist |
Relation |
Info |
<% If RSRel1.EOF AND RSRel2.EOF Then %>
Inga Relationer inlagda...
|
<% Else %>
<% x = 0
Do Until RSRel1.EOF
If x mod 2 = 0 Then
bgcolor = "" & strTblBkgndM & ""
Else
bgcolor = "" & strTblBkgndL & ""
End If %>
"><% =RSRel1("AName") %> |
<% =RSRel1("Relate") %> |
<% =FormatStr(RSRel1("Info2")) %> |
<% 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 %>
"><% =RSRel2("AName") %> |
<% =RSRel2("Relate") %> |
<% =FormatStr(RSRel2("Info1")) %> |
<% x = x + 1
RSRel2.MoveNext
Loop
RSRel2.Close %>
<% End If %>
<% RSArtist.Close %>
Tillbaka till menyn