_
|
_top.jpg); width:240px; height:36px; background-position:center;">
_middle.jpg);background-repeat:repeat-y;width:240px;background-position:center;">
<%
strSql = "select * from vEdizioniArticoli where attivo = true and idTipologia = " & objRs_Tipologie("idTipologia") & " and in_home order by dataInizio desc "
objRs.Open strSql, objConn, 1, 3
if not objRs.eof then
%>
<%= objRs( "dataInizio" ) %> - <%= objRs( "nome" ) %> <%= objRs( "cognome" ) %>
<%= objRs( "descrizione" ) %>
<%
end if
objRs.Close()
%>
_bottom.jpg);background-repeat:no-repeat;width:240px;height:28px;background-position:center;">
|
<%
i_tipologia = i_tipologia + 1
objRs_Tipologie.MoveNext
Loop
objRs_Tipologie.Close()
%>
<%
Dim strSql, objRs
Dim idEdizione, nomeCorso, durata, dataInizio, idCorso, tipologia, colore
set objRs = server.CreateObject("ADODB.RecordSet")
strSql = "Select * from vCorsiInPartenzaWeb where idEdizione > 0 and (diff >= -15 or isNull(dataFine)) "
strSql = strSql & " order by dataInizio"
objRs.Open strSql, objConn, 3, 1
if objRs.eof then
response.Write("nessun corso in partenza")
else %>
<%
end if
%>
| data inizio | titolo | durata | area | dettaglio |
| <%= dataInizio %> | <%= nomeCorso %> | <%= durata %> | <%= tipologia %> |  |