%@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
%>