<% n1=session("user") email=Request.Form("email") if email="" then email=request.querystring("email") end if email=replace(email,"'","") prezzo=Request.Form("prezzo") if (prezzo ="" or email="") then %><% Set conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath(dbpath) & dbname sSQL = "SELECT * FROM abbonati " Set rs = conn.Execute(sSQL) howmanyfields=2 %>

Per abbonarsi č necessario compilare questa scheda e poi eseguire il pagamento nelle modalitā indicate. L'abbonamento si conclude solo con l'avvenuto pagamento.

<% 'Put Headings On The abbonati of Field Names for i=1 to howmanyfields %> <% next rs.Close set rs = Nothing conn.Close set conn = Nothing %>
<% =rs(i).name %>:
Durata: Trimestrale, 45 euro iva inclusa
Semestrale, 85 euro iva inclusa
11 mesi, 144 euro iva inclusa

Godi dei diritti di cui all'art. 13 l.privacy che puoi esercitare presso il responsabile del trattamento. I dati sono trattati internamente per l'esecuzione del contratto.

Perchč abbonarsi

L'abbonamento consente non solo di leggere le novitā segnalate, ma di consultare il nutrito archivio giurisprudenziale e normativo che giorno dopo giorno cresce.

La newsletter, integralmente gratuita, segnala le novitā senza tuttavia permettere l'accesso ai testi on line.

L'abbonamento dā diritto a:

  • consultare le notizie e i link alle fonti
  • segnalare argomenti da trattare (di interesse generale secondo gli autori)
    • In agosto e nelle festivitā le pubblicazioni sono sospese.

    L'abbonamento si conclude con l'effettivo pagamento.

    <% else Set conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath(dbpath) & dbname sSQL = "SELECT * FROM abbonati where email LIKE '%"&email&"%' and prezzo like '0'" Set rs = conn.Execute(sSQL) if not rs.eof then flag=1 howmanyfields=rs.fields.count -1 campi="[" sep="" for i=1 to howmanyfields campi=campi & sep & rs(i).name & "]" sep=",[" next valori="'" sep="" for i=1 to howmanyfields tmp=email if i=3 then tmp=date end if if i=4 then ' mm=month(date) ' aa=year(date) ' tmp=day(date)&"/"&cstr(mm)&"/"&cstr(aa) tmp=date end if if i=6 then tmp=date&" Creata nuova scheda abbonato, stiamo verificando il pagamento (se non effettuato ancora clicca qui)." end if if i=7 then randomize tmp="Notar"+cstr(int(rnd(1)*10000)) pwd=tmp end if if i=5 then tmp="Scheda inserita il "&time&" con Ip "&Request.ServerVariables("REMOTE_ADDR") end if if tmp="" then tmp="-" end if tmp = Replace(tmp, "'", "''") valori=valori & sep & tmp & "'" sep=",'" next sSQL = "INSERT INTO abbonati (" & campi & ") VALUES (" & valori & ")" Set rs = conn.Execute(sSQL) set rs = Nothing conn.Close set conn = Nothing if prezzo="25" then tmp=" mensile " elseif prezzo="45" then tmp=" trimestrale " elseif prezzo="85" then tmp=" semestrale " elseif prezzo="0" then if flag=1 then tmp="Demo gratuito gia' rinnovato, non ulteriormente rinnovabile. E' necessario abbonarsi, grazie." else tmp=" Dieci giorni, demo gratuito non rinnovabile " end if else tmp=" undici mesi " end if HTML = "" & NL HTML = HTML & "" HTML = HTML & "" HTML = HTML & "IusOnDemand" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "

    " HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "
    " HTML = HTML & " Realizzazione siti " HTML = HTML & " " HTML = HTML & " Software " HTML = HTML & " " HTML = HTML & " Seminari " HTML = HTML & " " HTML = HTML & " Contatti " HTML = HTML & "
    " HTML = HTML & "

    " HTML = HTML & "" HTML = HTML & "I u s O n D e m a n d
    Oltre l'orizzonte del diritto

    " HTML = HTML & "
    Richiesta del "&day(date)&"/"&month(date)&"/"&year(date)&" - "&title&" "&weburl&"
    " testo="

    Grazie per aver richiesto l'iscrizione a "&title&":

    Puoi collegarti qui e scrivi:
    Email: "&email&"
    Password: "&pwd testo=testo&"

    Oppure puoi cliccare qui per accedere subito e vedere lo status dell'abbonamento." testo2="

    Puoi completare l'ordine, se non giā fatto, QUI

    " testo2=testo2&"Contattaci per ogni informazione." if prezzo<>"0" or flag<>"1" then Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From="iusondemand@iusseek.com" objMail.To=email objMail.Subject="Accesso abbonato a " &title objMail.Body=HTML &testo&testo2 objMail.importance=0 objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.Send Set objMail = nothing Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From=webmail objMail.To=email 'objMail.Bcc="notarile@iusseek.com" 'objMail.Bcc="studio.mazzanti@libero.it" objMail.Subject="nuovo iscritto a " &title objMail.Body=HTML &"

    "&email&"

    Login" objMail.importance=0 objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.Send Set objMail = nothing end if if prezzo<>"0" then response.redirect "http://www.iusondemand.com/pagamento.asp?prezzo="&prezzo&"&email="&email&"&titolo= Abbonamento "&title&" - Ordine del:"&day(date)&"/"&month(date)&"/"&year(date)&". Acquisto abbonamento "&tmp&" " %><% if prezzo<>"0" or flag<>"1" then response.write "Scheda personale creata e inviata una email con la tua password per dieci giorni non rinnovabili.

    " response.write "In agosto le pubblicazioni e le iscrizioni sono sospese." else response.write tmp end if end if %>