<%@LANGUAGE="VBSCRIPT"%> <% function MakeURL(vsText) 'This function will search for characters that indicate a url and will surround the found characters with tags dim nStart, nEnd, sReturn nStart=Instr(vsText, "http://www.") if nStart>0 then nEnd=Instr(nStart+1, vsText," ") if nEnd=0 then nEnd=Len(vsText)+1 MakeURL=Left(vsText, nStart-1) & "Click here for directions" else MakeURL=vsText end if end function %> <% Dim rsReferences Dim rsReferences_numRows Set rsReferences = Server.CreateObject("ADODB.Recordset") rsReferences.ActiveConnection = MM_conMain_STRING rsReferences.Source = "SELECT * FROM tblReference ORDER BY Name" rsReferences.CursorType = 0 rsReferences.CursorLocation = 2 rsReferences.LockType = 1 rsReferences.Open() rsReferences_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsReferences_numRows = rsReferences_numRows + Repeat1__numRows %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (rsReferences_total = -1) Then ' count the total records by iterating through the recordset rsReferences_total=0 While (Not rsReferences.EOF) rsReferences_total = rsReferences_total + 1 rsReferences.MoveNext Wend ' reset the cursor to the beginning If (rsReferences.CursorType > 0) Then rsReferences.MoveFirst Else rsReferences.Requery End If ' set the number of rows displayed on this page If (rsReferences_numRows < 0 Or rsReferences_numRows > rsReferences_total) Then rsReferences_numRows = rsReferences_total End If ' set the first and last displayed record rsReferences_first = 1 rsReferences_last = rsReferences_first + rsReferences_numRows - 1 If (rsReferences_first > rsReferences_total) Then rsReferences_first = rsReferences_total End If If (rsReferences_last > rsReferences_total) Then rsReferences_last = rsReferences_total End If End If %> Concrete Edging - Curbin USA Landscape Curbing
 

The following are a few job sites completed by Curbin Landscape Curbing.  We welcome you to visit the below locations to check out our work.

 

<% While ((Repeat1__numRows <> 0) AND (NOT rsReferences.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsReferences.MoveNext() Wend %>
Location
Directions
<%=(rsReferences.Fields.Item("Name").Value)%>
<%=(rsReferences.Fields.Item("Address1").Value)%>
<%=(rsReferences.Fields.Item("Address2").Value)%>
<%=(rsReferences.Fields.Item("City").Value)%>,
<%=(rsReferences.Fields.Item("StateID").Value)%>. <%=(rsReferences.Fields.Item("Zip").Value)%>
 		<%=MakeURL((rsReferences.Fields.Item("Directions").Value))%> 

We gladly accept:

Member of The Better Business Bureau
since March, 2003


Minimum Purchase Required
Not to be Combined with Any
Other Offer.

For additional information, or to arrange for a FREE ESTIMATE and personal design layout, please call us at:

Curbin USA Landscape Curbing, LLC
300 Adam Jenkings Memorial Drive, Suite 120
Canton, GA 30115
 770-607-CURB(2872)
E-mail - info@curbinusa.com

Directions: 575N to Holly Springs.  Exit #14, take right off Interstate.  At the 2nd red light, take a right onto Adam Jenkins Memorial Drive.  We are the 1st building on the right behind Citgo Station.

Questions & Answers | Before & After Photos | Island Shapes
Designs/Patterns | Video Presentation | Reference Directions | | Home

 

  
<% rsReferences.Close() Set rsReferences = Nothing %>