SQLCache

Test Page

<HTML> <% Dim oConn %> <% Response.Write DELLTEST %> </HTML> <% Function DELLTEST() Set oConn = Server.CreateObject("ADODB.Connection") 'used for SQLCache test 'oConn.Open "Provider=SQLCache.Cache;Original Provider=SQLOLEDB;Data Source=sql1.sqlcache.com;User Id=sa;Password=;Initial Catalog=Northwind" 'used for ADO test oConn.Open "Provider=SQLOLEDB;Data Source=sql1.sqlcache.com;User Id=sa;Password=;Initial Catalog=Northwind" sReturn = sReturn & "<hr>Test SQL Call Select au_fname, au_lname, phone from authors<br>" sSQL = "Select CustomerID, CompanyName, ContactName, ContactTitle, Address, City, Phone from customers" Set RS = oConn.Execute(sSQL) j = 0 Do While NOT RS.EOF sColumnCount = RS.Fields.Count For k = 0 to sColumnCount-1 sReturn = sReturn & ", " & RS(k) & "," Next sReturn = sReturn & "<br>" j = j + 1 RS.MoveNext Loop RS.Close set rs = nothing oConn.Close Set oConn = Nothing DELLTEST= sReturn End Function %>

 


2002. SQLCache.com