[REQ_ERR: OPERATION_TIMEDOUT] [KTrafficClient] Something is wrong. Enable debug mode to see the reason. Note Legali
Associazione italiana per lo studio e l'insegnamento del diritto della musica
<% = formatdatetime(now, 1)%>
 

Area Login <% If session("clearance") < 1 Then %>
<%else%> <%end if%>



LE NEWS DEL GIORNO
    <% query = "SELECT * FROM nleg_news WHERE nleg_news.Data<=Now() AND nleg_news.assolo = 0 AND nleg_news.primopiano = 1" if IDNews <> 0 then query = query & " AND IDNews = " & IDNews end if query = query & " ORDER BY Data DESC LIMIT 5" 'response.write query Set conn = CreateObject( "ADODB.Connection") conn.Open Connstring Set rs = conn.Execute(query) Do While NOT rs.EOF if IDNews = 0 then %>
  • "><% = rs("Titolo") %>
  • <% end if rs.MoveNext Loop rs.Close set rs = nothing conn.Close set conn = nothing %>
ARTICOLI
<% query = "SELECT * FROM nleg_news WHERE nleg_news.Data<=Now() AND nleg_news.assolo = 1" if IDNews <> 0 then query = query & " AND IDNews = " & IDNews end if query = query & " ORDER BY Data DESC LIMIT 1" 'response.write query Set conn = CreateObject( "ADODB.Connection") conn.Open Connstring Set rs = conn.Execute(query) Do While NOT rs.EOF if IDNews = 0 then %> <% foto = rs("foto") if foto <> "" then linkfoto = rs("linkfoto") if linkfoto <> "" then %> <%end if%><%if linkfoto <> "" then%><%end if%> <%end if%> <% = toItalianDate( rs("data")) %>
<% sopratitolo = rs("SopraTitolo") if sopratitolo <> "" then %> <% = sopratitolo %>
<%end if%> "><% = rs("Titolo") %>
<% = left(rs("testo"),250)%>... <% end if rs.MoveNext Loop rs.Close set rs = nothing conn.Close set conn = nothing %>
PROSSIMO EVENTO
<% query = "SELECT * FROM nleg_eventi WHERE nleg_eventi.Data>=Curdate()" if IDEvento <> 0 then query = query & " AND IDEvento = " & IDEvento end if query = query & " ORDER BY Data ASC LIMIT 1" 'response.write query Set conn = CreateObject( "ADODB.Connection") conn.Open Connstring Set rs = conn.Execute(query) Do While NOT rs.EOF if IDEvento = 0 then %> <% foto = rs("immagine") if foto <> "" then linkfoto = rs("linkimmagine") if linkfoto <> "" then %> <%end if%><%if linkfoto <> "" then%><%end if%> <%end if%> <% = toItalianDate( rs("data")) %>
"><% = rs("Titolo") %>
<% = left(rs("descrizione"),280)%>... <% end if rs.MoveNext Loop rs.Close set rs = nothing conn.Close set conn = nothing %>
GLI ASSOCIATI DICONO...
<% query = "SELECT * FROM nleg_dicono WHERE Data<=Now()" if iddicono <> 0 then query = query & " AND iddicono = " & iddicono end if query = query & " ORDER BY Data DESC LIMIT 3" 'response.write query Set conn = CreateObject( "ADODB.Connection") conn.Open Connstring Set rs = conn.Execute(query) I=1 Do While NOT rs.EOF if I>2 then exit do end if if iddicono = 0 then %>
<% foto1 = rs("foto1") if foto1 <> "" then %> "> <%end if%> <% = toItalianDate( rs("data")) %>
"><% = rs("Titolo") %>
<% = rs("chi")%>
"<% = rs("testobreve")%>"
<% end if rs.MoveNext I=I+1 Loop rs.Close set rs = nothing conn.Close set conn = nothing %>
CODICE DEONTOLOGICO
Associati a Note Legali

I NOSTRI ASSOCIATI
<% Set conn = CreateObject( "ADODB.Connection") conn.Open Connstring strSQL = "SELECT COUNT(*) AS CNT FROM nleg_dicono" set objPagingRS = conn.execute(strSQL) recordCount = objPagingRS("CNT") objPagingRS.Close() Set objPagingRS=Nothing conn.Close() set conn = nothing 'path to the database sqlDic = "SELECT * FROM nleg_dicono" Set rsDic = Server.CreateObject("ADODB.Recordset") rsDic.Open sqlDic, connString, 3, , adCmdText Randomize Timer 'IntRnd = Int(RND * 28) rsDic.Move = Int(RND * CInt(RecordCount)) %> " width="150" height="100" alt="" border="1"> <% rsDic.Close Set rsDic = Nothing %>

DIVENTA SOCIO
Associati a Note Legali

GUARDA LO SPOT
Guarda lo spot

TRASCRIZIONI E DEPOSITI
Trascrizioni e depositi

IL NOSTRO FORUM
Il nostro Forum

LIBRI
<% Set conn = CreateObject( "ADODB.Connection") conn.Open Connstring strSQL = "SELECT COUNT(*) AS CNT FROM nleg_libri" set objPagingRS = conn.execute(strSQL) recordCount = objPagingRS("CNT") objPagingRS.Close() Set objPagingRS=Nothing conn.Close() set conn = nothing 'path to the database sqlDic = "SELECT * FROM nleg_libri" Set rsDic = Server.CreateObject("ADODB.Recordset") rsDic.Open sqlDic, connString, 3, , adCmdText Randomize Timer 'IntRnd = Int(RND * 28) rsDic.Move = Int(RND * CInt(RecordCount)) %> " width="150" height="200" alt="" border="1"> <% rsDic.Close Set rsDic = Nothing %>



<% Dim sqlPics, rsPics, IntRnd Set conn = CreateObject( "ADODB.Connection") conn.Open Connstring strSQL = "SELECT COUNT(*) AS CNT FROM nleg_banner" set objPagingRS = conn.execute(strSQL) recordCount = objPagingRS("CNT") objPagingRS.Close() Set objPagingRS=Nothing conn.Close() set conn = nothing sqlPics = "SELECT * FROM nleg_banner" 'WHERE nleg_banner.rotate = '1' Set rsPics = Server.CreateObject("ADODB.Recordset") rsPics.Open sqlPics, connString, , 3 Randomize Timer rsPics.Move = Int(RND * CInt(RecordCount)) Image = rsPics("Image") swf = rsPics("swf") if swf = "1" then %> " target="_blank"> <% else %> " target="_blank">" width="468" height="60" alt="<%=rsPics("Titolo")%>" border="1" /> <% end if rsPics.Close Set rsPics = Nothing %>