<%@LANGUAGE="VBSCRIPT"%> <%on error resume next %> <% Dim rsLISTING Dim rsLISTING_numRows Set rsLISTING = Server.CreateObject("ADODB.Recordset") rsLISTING.ActiveConnection = MM_connGODRUGFREE_STRING rsLISTING.Source = "SELECT * FROM tbllisting WHERE sCATID = 50 AND sSTATUS='1' ORDER BY sDATE DESC ,sNAME DESC" rsLISTING.CursorType = 0 rsLISTING.CursorLocation = 2 rsLISTING.LockType = 1 rsLISTING.Open() rsLISTING_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsLISTING_numRows = rsLISTING_numRows + Repeat1__numRows %> Rehab Directories | GoDrugFree.org
home
about
submit
contact

Search

Rehab Directory >Rehab Directories

<% While ((Repeat1__numRows <> 0) AND (NOT rsLISTING.EOF)) %>

" class="text"> <%=(rsLISTING.Fields.Item("sNAME").Value)%>   
<%=(rsLISTING.Fields.Item("sDESC").Value)%>
<%=(rsLISTING.Fields.Item("sURL").Value)%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsLISTING.MoveNext() Wend %>

 

 

 

. All Rights Reserved. 2006-2008. GoDrugFree.org.
<% rsLISTING.Close() Set rsLISTING = Nothing %>