<% function getDateTour(_year){ var rs = Server.CreateObject("ADODB.Recordset"); var sql = "SELECT idTour,data,descrizione,link,descLink,(Year(data))AS anno,nFoto FROM tblTour WHERE (Year(data)="+_year+") ORDER BY data ASC;"; rs.Open(sql,strConn,0,1); for(var str="",rowCount=0;!rs.EOF;rowCount++,rs.MoveNext()){ str += ''+ ''+ (rs.Fields("nFoto").value>=1?'':'')+ formatDate(rs.Fields("data").value)+ (rs.Fields("nFoto").value>=1?'':'')+ ''+ ''+(rs.Fields("link").value?''+rs.Fields("descLink").value+' ':'')+rs.Fields("descrizione").value+''+ '

'+ ''; } rs.Close();rs = null; return '

date in programma ('+(_year)+')

'+str+'

'; } function getImg(_id,n){ for(var i=1,str="";i<=n;i++) str += '

'; return str; } var id = (Request.QueryString("id").item||0)>>0; var anno = (Request.QueryString("anno").item||(new Date()).getFullYear())>>0; var objRS = Server.CreateObject("ADODB.Recordset"); var strSQL = id?"SELECT idTour,data,(Year(data)) AS anno, descrizione, link, descLink,nFoto FROM tblTour WHERE (idTour="+id+") ORDER BY data ASC;": "SELECT (Year(data)) AS anno,(0)AS nFoto FROM tblTour GROUP BY (Year(data)) ORDER BY (Year(data)) DESC;"; try{ objRS.Open(strSQL,strConn,0,1); for(var listYear="",nFoto=(objRS.Fields("nFoto").value||0);!objRS.EOF;objRS.MoveNext()) listYear += '

'+ '

'+ 'TOUR '+objRS.Fields("anno").value+''+ (id>0?' '+formatDate(objRS.Fields("data").value)+'
'+(objRS.Fields("link").value?''+objRS.Fields("descLink").value+' ':'')+objRS.Fields("descrizione").value:'')+ (id==0&&objRS.Fields("anno").value==anno?getDateTour(objRS.Fields("anno").value):'')+ '

'; if(id) listYear += '

'+getImg(id,nFoto)+'

'; objRS.Close(); }catch(err){Response.Write("
"+strSQL+"
"+err.description+"
");} finally{objRS=null;} %>

<% if(id==0){%> Con il BLUESMOBILE €UROSHOW il gruppo italo-sammarinese prosegue una storia di quasi 700 concerti live cominciata nel 1987 (come THE NEW BLUES BROTHERS BAND) che hanno fatto ballare, cantare e divertire decine di migliaia di persone di ogni età

Brani di James Brown, Prince, Blues Brothers, proposti nel modo unico, ironico, divertente che la Bluesmobile sa fare... tenetevi aggiornati sui prossimi concerti...

<% }%> <%=listYear%>