<% n1=Session("user") abbonato=session("abbonato") num= Request.QueryString("num") if num="" then num=request.form("num") end if num = Replace(num, "'", "''") email=Request.Form("email") if email="" then email=request.querystring("Email") end if pwd=request.form("pwd") if pwd="" then pwd=request.querystring("pwd") end if email=replace(email,"'","") pwd=replace(pwd,"'","") if abbonato="" and (pwd="" or email="") then ' non loggato ancora %>
Ingresso Utente già abbonato:
Email:
Password:

Vuoi abbonarti ? Qui informazioni e ordini.

<%else if abbonato<>"" then pwd=session("pwd") email=abbonato end if Set conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & pathdirect& dbname sSQL = "SELECT * FROM abbonati WHERE email = '"&email&"' and [datifiscali] = '"&pwd&"'" 'response.write ssql Set rs = conn.Execute(sSQL) if rs.eof then response.write "Errore in password o in email.

  • Dimenticata la password per "&email&" ?
  • Riprovare, grazie.

    • " session("pwd")="" session("abbonato")="" session("prevedi")="0" session("pagato")="" else session("abbonato")=email session("pwd")=pwd session("prevedi")=trim(rs(10)) %> Bentornato, <%=email%>.

    Status attuale:
    <%=rs(6)%>

    Accesso per il periodo <% dt=rs(3) dt=day(dt)&"/"&month(dt)&"/"&year(dt) response.write "dal "&dt&" " dt=rs(4) dt=day(dt)&"/"&month(dt)&"/"&year(dt) pagato=rs(9) session("pagato")=pagato df=DateDiff("d", now(), cdate(dt) ) 'response.write df if df<0 then vl=" - Abbonamento scaduto. Clicca qui per rinnovarlo" session("Abbonato")="" else attivo=rs(8) vl=attivo if left(ltrim(rtrim(attivo)),1)="-" then session("Abbonato")="" vl="

    Abbonamento non ancora attivato, in attesa di conferma dell'attivazione se gratuito o del pagamento se su abbonamento.

    Tempo medio: due giorni lavorativi. Per problemi contattare IusOnDemand" else vl="Abbonamento attivato" end if end if response.write " al "&dt&" - Oggi è il " dt=date dt=day(dt)&"/"&month(dt)&"/"&year(dt) response.write dt&" "&vl&"

    " response.write "

    " if num<>"" then response.write "
  • Vedi l'articolo richiesto

    " end if %>

  • Vai alla prima pagina

  • La redazione è a tua disposizione per approfondire singoli argomenti. <%if pagato="0" then tmp="

  • Abbonamento demo NON RINNOVABILE.
        Per abbonarti clicca qui     !" response.write ""&tmp&"" end if %>

  • Esci - Torna come lettore non abbonato
    • <% end if rs.Close set rs = Nothing conn.Close set conn = Nothing end if%>

    Ricorda: la password è personale e segreta.