<% NomGroupe=Request.QueryString("groupe") Set ConnectionMetal=Server.CreateObject("ADODB.Connection") ConnectionMetal.Open "metal" SQL="SELECT Albums.*, Groupes.Groupe, Groupes.Pays FROM Albums INNER JOIN Groupes ON Albums.CodeGroupe = Groupes.CodeGroupe WHERE (((Albums.CodeGroupe)="&NomGroupe&")) ORDER BY Albums.Date DESC;" Set Discographie=ConnectionMetal.Execute(SQL) SQL2="SELECT Links.Link FROM Links WHERE (((Links.Officiel)=True) AND ((Links.CodeGroupe)="&NomGroupe&"));" Set SiteOfficiel=ConnectionMetal.Execute(SQL2) SQL3="SELECT Links.Link FROM Links WHERE (((Links.Officiel)=False) AND ((Links.CodeGroupe)="&NomGroupe&"));" Set SiteNonOfficiel=ConnectionMetal.Execute(SQL3) CodeDELAlbum = Discographie("CodeAlbum") SQL5="SELECT Songs.NumSong, Songs.Song, Songs.Duree, Songs.Lyric FROM Songs WHERE (((Songs.CodeAlbum)="&CodeDELAlbum&"));" Set SongsAlbum=ConnectionMetal.Execute(SQL5) SQL6="SELECT Songs.Lyric, Songs.Song, Songs.NumSong, Songs.Duree FROM Songs WHERE (((Songs.Lyric)<>'""') AND ((Songs.CodeAlbum)="&CodeDELAlbum&"));" Set Paroles=ConnectionMetal.Execute(SQL6) SQL7="SELECT Membres.Membre, Membres.Instrument FROM Membres WHERE (((Membres.CodeAlbum)="&CodeDELAlbum&"));" Set Musiciens=ConnectionMetal.Execute(SQL7) %> Discographie

Page d'accueilMon historiqueNotre biographieLes news du groupeSignez mon livre d'invités!Mes liens préférésLes nouveautés du siteContactez-moi!Brutal Bands Database

.gif" alt="<%=Discographie("Groupe")%>" title="<%=Discographie("Groupe")%>">

.jpg" title="<%=Discographie("Groupe")%>">

Discographie :

<%if Discographie.eof=-1 and Discographie.bof=-1 then%> <%Response.Write("Aucun album trouvé")%> <%else%> <% do while not Discographie.eof%>  <%=Discographie("Date")%> - &album=<%=Discographie("CodeAlbum")%>"><%=Discographie("Album")%>
<%Discographie.movenext%> <%loop%> <%end if%>

Style : <%Discographie.movefirst%> <%=Discographie("Style")%>

Pays : <%=Discographie("Pays")%>

Dernier Album :

  <%=Discographie("Date")%> - <%=Discographie("Album")%>

.jpg" title="<%=Discographie("Groupe")%>  -  <%=Discographie("Album")%> (Inside)">.jpg" title="<%=Discographie("Groupe")%>  -  <%=Discographie("Album")%> (Front)">

.jpg" title="<%=Discographie("Groupe")%>  -  <%=Discographie("Album")%> (Back)"> .jpg" title="<%=Discographie("Groupe")%>  -  <%=Discographie("Album")%> (Other)">

<%if Discographie("NbVote")=0 then%> <%Response.Write("Aucune note n'a encore été donée")%> <%else%> Note : <%=FormatNumber((Discographie("Total")/Discographie("NbVote")))%>/10 (<%=Discographie("NbVote")%> votes) <%end if%>

Donnez une note à cet album :  

" size="20">

Infos :

<%=Discographie("Infos")%>

Titres : <%if SongsAlbum.eof=-1 and SongsAlbum.bof=-1 then%> <%Response.Write(" Aucun titre trouvé")%> <%else%> <%TempsTot = 0%>

    <% do while not SongsAlbum.eof%>

  1. <%=SongsAlbum("Song")%>  -  <%=SongsAlbum("Duree")%>

    2. <%Minu = mid(SongsAlbum("Duree"),1,2)%> <%Secon = mid(SongsAlbum("Duree"),4,2)%> <%NbSec = Minu * 60 + Secon%> <%TempsTot = TempsTot + NbSec%> <%SongsAlbum.movenext%> <%loop%> <%end if%>

<%TotMin = mid((TempsTot / 60),1,2)%> <%TotSec = (TempsTot Mod 60)%> <%if TempsTot > 3599 then%> <%TotMin = TotMin - 60%> <%if TotMin < 10 then%> <%TotMin = 0 & TotMin%> <%end if%> <%if TotSec < 10 then%> <%TotSec = 0 & TotSec%> <%end if%> <%Response.Write("Total : 1:" & TotMin & ":" & TotSec)%> <%else%> <%if TotMin < 10 then%> <%TotMin = 0 & TotMin%> <%end if%> <%if TotSec < 10 then%> <%TotSec = 0 & TotSec%> <%end if%> <%Response.Write("Total : " & TotMin & ":" & TotSec)%> <%end if%>

Membres :

<%if Musiciens.eof=-1 and Musiciens.bof=-1 then%> <%Response.Write(" Aucun membre trouvé")%> <%else%> <% do while not Musiciens.eof%> <%=Musiciens("Membre")%>  -  <%=Musiciens("Instrument")%>
<%Musiciens.movenext%> <%loop%> <%end if%>

Site Officiel :

  <%if SiteOfficiel.eof=-1 and SiteOfficiel.bof=-1 then%> <%Response.Write("Non disponible")%> <%else%> " target="_blank"><%=SiteOfficiel("Link")%> <%end if%>

Site de Fans :

<%if SiteNonOfficiel.eof=-1 and SiteNonOfficiel.bof=-1 then%> <%Response.Write("Non disponible")%> <%else%> <% do while not SiteNonOfficiel.eof%> " target="_blank"><%=SiteNonOfficiel("Link")%>
<%SiteNonOfficiel.movenext%> <%loop%> <%end if%>

Paroles :

<%if Paroles.eof=-1 and Paroles.bof=-1 then%> <%Response.Write(" Aucun titre trouvé")%> <%else%> <%Paroles.movefirst%> <% do while not Paroles.eof%>

<%=Paroles("NumSong")%>. <%=Paroles("Song")%> - <%=Paroles("Duree")%>

<%=Paroles("Lyric")%> <%Paroles.movenext%> <%loop%> <%end if%>

.|. Home .|. Historique .|. Bio .|. News .|. GuestBook .|. Links .|. Site Updates .|. Contact .|. BBD .|.

Créé par Sa|an|cO
 E-mail - Autres sites : Moi - Thalidomide

 

<% ConnectionMetal.Close Set ConnectionMetal = Nothing %>