<% user=session("nome") if user<>"" then dim conn dim controllaemail Set conn = Server.CreateObject("ADODB.Connection") Set controllaemail = Server.CreateObject("ADODB.Recordset") dim rsemailuguali conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath(dbpath) & dbemail 'controllo email presente controllaemail="SELECT COUNT(*) FROM tavola" set rsemailuguali = Conn.Execute(controllaemail) 'in rsemailuguali(0) il n. di email trovate tot=rsemailuguali(0) response.write "Totale email newsletter "&tot response.write "

" controllaemail="SELECT * FROM tavola" set rsemailuguali = Conn.Execute(controllaemail) do while not rsemailuguali.eof cnt=cnt+1 num=rsemailuguali(0) response.write "- "&cstr(cnt)&" - Modifica - Cancella - "&rsemailuguali(1)&" - "&rsemailuguali(2)&" - "&rsemailuguali(3)&"
" rsemailuguali.movenext loop conn.Close set conn = Nothing set controllaemail= Nothing end if%>