dim objconn as new oledbconnection ("Provider=Microsoft.Jet.OLEDB.4.0;Server=localhos t;Database=***;uid=***;pwd=***")
sub page_load (obj as object, e as eventargs)
dim objcmd_ver34dsmitnstcabe_anno_in_corso as new oledbcommand (" select * from elenco ", objconn)
dim read34dsmitnstcabe_anno_in_corso as oledbdatareader
objconn.open
read34dsmitnstcabe_anno_in_corso=objcmd_ver34dsmit nstcabe_anno_in_corso.executereader
dim eccotot_anno_in_corso as string
while read34dsmitnstcabe_anno_in_corso.read
If Not read34dsmitnstcabe_anno_in_corso("nome") Is System.DBNull.Value Then
eccotot_anno_in_corso = read34dsmitnstcabe_anno_in_corso("nome")
end if
response.Write(eccotot_anno_in_corso)
end while
read34dsmitnstcabe_anno_in_corso.close
objcmd_ver34dsmitnstcabe_anno_in_corso.connection. close()
end sub
</script>