<%
dim perc
perc=" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(" /csm/demo8/dati/daba.mdb" )
Dim Connb
Set Connb = Server.CreateObject(" ADODB.Connection" )
connb.Open perc
Dim rsb
Set rsb = Server.CreateObject(" ADODB.Recordset" )
rsb.Open " select * from utenti " , connb
Do while NOT RSb.EOF
%>
<%
Dim data
data=rsb(" screename" )
response.write(data)%>
<%Dim ora
ora=rsb(" note" )
response.write(ora)
%>
<%RSsb.MoveNext
Loop
RSb.Close
Set RSb = Nothing
connb.Close
Set conn=Nothing
%>