GoDrugFree.org | Rehab Directory

<%@LANGUAGE="VBSCRIPT"%> <% on error resume next %> <% Dim rsCAT Dim rsCAT_numRows Set rsCAT = Server.CreateObject("ADODB.Recordset") rsCAT.ActiveConnection = MM_connGODRUGFREE_STRING rsCAT.Source = "SELECT * FROM tblcat ORDER BY sNAME ASC" rsCAT.CursorType = 0 rsCAT.CursorLocation = 2 rsCAT.LockType = 1 rsCAT.Open() rsCAT_numRows = 0 %> <% Dim HLooper1__numRows HLooper1__numRows = -4 Dim HLooper1__index HLooper1__index = 0 rsCAT_numRows = rsCAT_numRows + HLooper1__numRows %> GoDrugFree.org | Rehab Directory

Welcome to GoDrugFree.org, an organization dedicated to bringing you the best drug free and natural drug rehabilitation resources, detox centers & treatment facilities from around the world, under one domain.

We support alternative programs that employ natural and drug free methods of rehabilitation.

We encourage drug addiction treatment organizations and websites to contact us or submit their website information.

<% startrw = 0 endrw = HLooper1__index numberColumns = 4 numrows = -1 while((numrows <> 0) AND (Not rsCAT.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not rsCAT.EOF)) %> <% startrw = startrw + 1 rsCAT.MoveNext() Wend %> <% numrows=numrows-1 Wend %>

"><%=(rsCAT.Fields.Item("sNAME").Value)%>