<%    
      Dim DBConn, Stringa1, mazz
      Dim Arr(1500,5)
      
      sub ConnessioneDB
        Set DBConn = Server.CreateObject("ADODB.connection")
        DBConn.Open "CAZZI MIEI"
      end sub
      
      sub DisconnessioneDB
        DBConn.Close
      end sub

      Stringa1 = "SELECT var1,var2,var3,var4,var5 FROM tab1"
      
      ConnessioneDB
      set mazz = DBConn.Execute(Stringa1)

      i = 0
    
      Do While Not mazz.eof
            
        Arr(i,0) = mazz.Fields("var1")
        Arr(i,1) = mazz.Fields("var2")
        If len(mazz.Fields("var3"))>0 Then
          Arr(i,2) = mazz.Fields("var3")
        Else
          Arr(i,2) = " "
        End If
        If len(mazz.Fields("var4"))>0 Then
          Arr(i,3) = mazz.Fields("var4")
        Else
          Arr(i,3) = " "
        End If
        Arr(i,4) = mazz.Fields("var5")
      
        i = i + 1
        
    '    On Error Resume Next 
        
        mazz.movenext()
      Loop
            
      mazz.Close
      Set mazz = Nothing
      DisconnessioneDB
      
      
%>
      <table border="1" bordercolor="#FFFFFF" cellpadding="4" cellspacing="4"><%
      for jj=0 to i
        %><tr><%
        for kk=0 to 4
          %><td bordercolor="#000000"><%
          Response.Write(Arr(jj,kk))
          %></td><%
        next
        %></tr><%
      next
%>
      </table>
      
      <%Response.Write("<br>" & i)%>