<%response.buffer=true%> <% nome= session("nome") if nome<>"" then search=request.form("search") if search="" then search=request.querystring("search") if request.form("tutti")<>"" then search="" if search<>"" then trova=" where email LIKE '%" &search&"%'" end if inizio=request.querystring("inizio") if inizio="" then inizio=1 else inizio=clng(inizio) response.write user&",
" nav="
" if inizio>1 then nav=nav& "Precedente - " fine=inizio+5 base=inizio-5 if base<1 then base=1 for ax=base to fine if ax=inizio then nav=nav&""&cstr(ax)&" - " else nav=nav&""&cstr(ax)&" - " end if next nav=nav& "Seguente" nav=nav&"
" response.write nav %> Bentornato, <%=nome%> Visita pure il sito, sei abilitato.

<% dim conn dim controllaemail Set conn = Server.CreateObject("ADODB.Connection") Set controllaemail = Server.CreateObject("ADODB.Recordset") dim rs conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath(dbpath) & dbname con="SELECT COUNT(*) FROM abbonati " &trova set rs = Conn.Execute(con) tot=rs(0) response.write "Schede trovate: "&tot&"

" con="SELECT * FROM abbonati "&trova&" order by num desc" set rs = Conn.Execute(con) linee= 40 cnt=0 if inizio<>1 then do while not rs.eof and cnt<((inizio-1)*linee) cnt=cnt+1 rs.movenext loop end if cnt=0 do while not rs.eof and cnt -"&num&"- " response.write " - Cancella - " response.write " - Abilita - " for i= 1 to 9 tmp=rs(i) if I=5 then response.write "
" if i=1 then response.write "" response.write tmp&" - " next response.write "

" rs.movenext loop conn.Close set conn = Nothing set rs= Nothing response.write nav else end if%> Gestione