"&titolo&"

<% 'option explicit %><% dim dbpath2 dim prezzo,xautore,mautore dim collana,xtitolo dim sconto,ax1,ax2 dim user,count dim pdf dim i,inizio, fine dim tmp,euro const flag=1 dim dbg dbg=0 dim linee dim search dim htipo,tipo1 dim oldtipo dim titolo dim id dim chiavi dim num dim confronto dim n1 dim abbonato dim prevedi dim varadd dim ssql dim conn dim rs dim img dim riservato dim url dim pubblica dim ax dim settore dim subj dim sintesi dim view dim dt dim testo dim tipo dim autore num = Replace(Request("num"), "'", "") num=trim(num) if left(num,1)="<" then confronto=">" num=mid(num,2) elseif left(num,1)=">" then confronto="<" num=mid(num,2) else confronto="=" end if num=MakeLong(num) num=replacE(num,"'","") search=replace(search,"'","") if num>0 then n1=session("nome") abbonato=session("abbonato") prevedi= ltrim(session(prevedi)) if prevedi="" then prevedi=0 else prevedi=cint(session("prevedi")) end if varADD=DateAdd("D", prevedi, Now()) sSQL = "SELECT * FROM tavola where [datapubblicazione] <= datevalue('"&varadd&"') AND num "&confronto&" " & num &" order by num DESC" if n1<>"" then sSQL = "SELECT * FROM tavola WHERE num "&confronto&" " & num &" order by NUM DESC" Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.MapPath(dbpath) & dbname Set rs = Server.CreateObject("ADODB.Recordset") rs.open sSql, conn, 3,1 if rs.eof then %>

Nessun articolo trovato. Torni alla prima pagina, grazie.

<% else id=rs(0) img=trim(""&rs(2)+"") if img="-" or img="http://" then img="" url=""&rs(1)+"" url=replace(url,"www.ricercagiuridica.com/ilaw","www.civile.it/ilaw") riservato=trim(""&rs(12)) titolo=trim(replace(""&rs(3),"''","'")) xtitolo=titolo pubblica=0+rs(18) if isnull(pubblica) or pubblica="" then pubblica=date else pubblica=cstr(pubblica) end if chiavi=""&rs("tipo2") chiavi=trim(replace(chiavi,","," ")) ax=instr(chiavi," ") autore=""&rs(6) subj=""&rs(8) dt=""&rs(7) dt=day(dt)&"/"&month(dt)&"/"&year(dt) sintesi=replace(trim(replace(""&rs(4),"''","'")),vbcrlf,"
")&"

" testo=trim(replace(""&rs(5),"''","'")) view=""&rs(16) tipo=""&rs(10) oldtipo=tipo tipo = Replace(tipo, ",", "") rs.Close conn.Close set rs = Nothing set conn = Nothing if isnull(view) or view="" then view="0" end if ax=instr(tipo," ") while ax<>0 tipo1=left(tipo,ax-1) tipo=mid(tipo,ax+1) htipo=htipo&" "&tipo1&"" ax=instr(tipo," ") wend htipo=htipo&" "&tipo&"" if ax<>0 then chiavi=left(chiavi,ax-1) if isnull(riservato) or trim(riservato)="" then riservato="-1" pubblica=day(pubblica)&"/"&month(pubblica)&"/"&year(pubblica) response.write "" response.write " "&titolo&"" response.write ""%> <% if n1<>"" then %>
Benvenuto <%=n1%> - C - M - A - I - <%=pubblica%> <% response.write "

" end if response.write "" response.write "" response.write "
Articolo precedente Stampa "&id&""">Articolo successivo
" response.write "

"&titolo&"" response.write "
" response.write "

"&Sintesi&" ["&autore&" - "&htipo&" - "&pubblica&"]

" if instr(testo,"")=0 then testo = Replace(testo,vbcrlf,"

") end if ax1=1 do while ax1<>0 ax1=instr(testo,"*+") ax2=instr(testo,"*-") if ax1<>0 and ax2>ax1 then tmp=mid(testo,ax1+2,ax2-ax1-2) testo = lefT(testo,ax1-1)&""&tmp&""&mid(Testo,ax2+2) else ax1=0 end if loop ax1=1 do while ax1<>0 ax1=instr(testo,"*1") ax2=instr(testo,"*2") if ax1<>0 and ax2>ax1 then tmp=mid(testo,ax1+2,ax2-ax1-2) testo = lefT(testo,ax1-1)&""&tmp&""&mid(Testo,ax2+2) else ax1=0 end if loop ax1=1 do while ax1<>0 ax1=instr(testo,"*3") ax2=instr(testo,"*4") if ax1<>0 and ax2>ax1 then tmp=mid(testo,ax1+2,ax2-ax1-2) testo = lefT(testo,ax1-1)&""&tmp&""&mid(Testo,ax2+2) else ax1=0 end if loop ax1=1 do while ax1<>0 ax1=instr(testo,"*g+") ax2=instr(testo,"*g-") if ax1<>0 and ax2>ax1 then tmp=mid(testo,ax1+3,ax2-ax1-3) testo = lefT(testo,ax1-1)&""&tmp&""&mid(Testo,ax2+3) else ax1=0 end if loop if trim(img)<>"" then testo=""&testo end if response.write "

" if riservato<>"0" then rem testo da acquistare singolarmente testo="

Il testo qui proposto puo' essere acquistato per uso personale da IusOnDemand. Verra' spedito all'email indicata." testo=testo&"

	Benvenuto <%=n1%> - C - M - A - I - <%=pubblica%> <% response.write "