<%@ Page Language="VB" Debug="true" %><%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SQLClient" %>
<%@ import namespace="system.data.oledb" %>
<script language="VB" runat="server">
dim objconn as new oledbconnection ("Provider=Microsoft.Jet.OLEDB.4.0;Server=***;Data base=****;User Id=****;Password=****;")
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>