<%@ Language=VBScript %>
<%
Dim intMaxI, intMaxJ, i, j, strCategory
Dim strRS()
Public Sub subQueryRS (byval strSQL, byref intI, byref intJ, byref strRS() )
'On Error Resume Next
Dim oConn, oRS, i, j, strDBConn
i=0
j=0
Response.Expires = -1000
Set oConn = Server.CreateObject("ADODB.Connection")
strDBConn = "Provider=SQLOLEDB;SERVER=12.30.241.179;Initial Catalog=miamilodgerealty_dbid;User Id=miamilodgerealty_dbuserid;PASSWORD=h4tbp4tw;"
oConn.Open(strDBConn)
Set oRS = oConn.Execute(strSQL)
If Not(oRS.EOF) Then
Redim strRS(oRS.Fields.Count - 1, 0)
End If
Do While Not(oRS.EOF)
For i=0 to oRS.Fields.Count - 1
Redim Preserve strRS(oRS.Fields.Count - 1, j)
strRS(i, j) = oRS.Fields(i).Value
Next 'i
j=j+1
oRS.MoveNext
Loop
oRS.close
Set oRS = Nothing
oConn.Close
Set oConn= Nothing
intI = i - 1
intJ = j - 1
End Sub
%>
Miami Lodge Realty - Real Estate News
