<Script Language="VB" Runat="Server">
       ' 依照DSN聯機字符串的指示，執行tSQL字符串變量的Select語句
       Sub ShowResultSet(ByVal DSN As String, Byval tSQL As String)
              Dim lRet As BOOLEAN = True
              Dim OBJConn As OleDBConnection = New OleDbConnection(DSN)
              OBJConn.Open()           ' 創建數據庫連接
              ' 聲明并使用OleDbCommand對象執行SQL語句
              Dim OBJCmd As OleDBCommand = New OleDbCommand(tSQL, OBJConn)
              Dim OBJReader As OleDbDataReader = OBJCmd.ExecuteReader()
              ' 設置OleDbDataReader類的數據源
              Do Until Not lRet
                     Response.Write("<Form Runat=""Server""><Table Border=1>") 
                     ' 輸出表的字段名稱
                     Response.Write("<Tr>")
                     Dim I As Integer 
                     For I = 0 To OBJReader.FieldCount()-1
                            Response.Write("<Td>" & OBJReader.GetName(I) & "</Td>")
                     Next
                     Response.Write("</Tr>")
                     Do While OBJReader.Read()
                            ' 輸出每一條記錄的內容
                            Response.Write("<Tr>")
                            For I = 0 To OBJReader.FieldCount()-1
                                   Response.Write("<Td>" & OBJReader.GetValue(I) & "</Td>" )
                            Next
                            Response.Write("<Tr>")
                     Loop
                     Response.Write("</Table></Form>")
                     ' 判斷還有沒有其他的表。如果還有的話，
                     ' NextResult()方法的返回值是True
                     lRet = OBJReader.NextResult()
              Loop
       End Sub
</Script>