Test Page
<![CDATA[
<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
