<%@LANGUAGE="VBSCRIPT"%> <% ' FileName="Connection_odbc_conn_dsn.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="false" ' Catalog="" ' Schema="" Dim MM_ML_STRING MM_ML_STRING = "dsn=ML;uid=;pwd=;" %> <% Dim Properties Dim Properties_numRows Set Properties = Server.CreateObject("ADODB.Recordset") Properties.ActiveConnection = MM_ML_STRING Properties.Source = "SELECT * FROM Properties ORDER BY ID DESC" Properties.CursorType = 0 Properties.CursorLocation = 2 Properties.LockType = 1 Properties.Open() Properties_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Properties_numRows = Properties_numRows + Repeat1__numRows %> Come To Tulsa

 

 Featured Properties & Virtual Tours

 

 

 

 © 2007 Come To Tulsa.com, All rights reserved. |  
<% Properties.Close() Set Properties = Nothing %>