<% Page = Cleanup(Request("Page"),10) If not IsNumeric(page) then page = 0 If Page < 1 then Page = 1 '------------------------------------------------------------------------------------------------------------------ Set Conn = Server.CreateObject ("ADODB.Connection") Conn.Mode = 3 Conn.Open Application("DBConnectionString") SQL = "SELECT * FROM [classifieds] WHERE [category] = 'erectors' AND [visible] = 1 ORDER BY rank DESC, submitdate DESC" Set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = Conn RS.CursorLocation = 3 RS.CursorType = 3 RS.Open SQL, Conn If not RS.Eof then '---------------------------------------------------- PageSize = 8 Page = cint(Page) RS.PageSize = PageSize RS.AbsolutePage = Page MaxPages = RS.PageCount TotalRecords = RS.RecordCount PageText = "" If Page > 1 then PageText = PageText & "PREV - " PageText = PageText & "Page " & Page & " of " & MaxPages If Page < MaxPages then PageText = PageText & " - NEXT " PageText = PageText & "" & vbcrlf '---------------------------------------------------- End If '------------------------------------------------------------------------------------------------------------------ mbTitle = "Erectors.com - Steel & Metal Building Erection Classifieds - Page " & Page mbKeywords = "erectors classifieds, steel building erectors classifieds, steel erectors classifieds, steel building erection classifieds, metal building erectors classifieds, erection crews, erectors, building erectors" mbDesc = "Erectors.com Classifieds Ads - Metal building erection services, steel erection crews, companies and services at Erectors.com." '------------------------------------------------------------------------------------------------------------------ %>

Metal Building Erectors Classifieds
The Erectors.com metal erection classifieds area consists of building erection companies, crews and services. If you have a steel or metal building erection company or service, and wish to submit an erectors classifieds ad, please visit our Erectors Classifieds Submission page.







<%=PageText%>

<% While not RS.Eof and items < pagesize items = items + 1 id = RS("id") title = ProperCase(RS("title")) & "" company = ProperCase(RS("company")) & "" city = ProperCase(RS("city")) & "" state = ProperCase(RS("state")) & "" country = ProperCase(RS("country")) & "" price = RS("price") & "" bold = RS("bold") link = RS("link") photo = RS("photo") & "" html = RS("html") & "" desc = RS("desc") & "" company = Replace(company, "Llc", "LLC") company = Replace(company, "'", "`") If len(desc) > 500 then desc = left(desc,500) & "..." If len(desc) > 0 then for x = 1 to len(desc) cc = mid(desc,x,1) If x = 1 then cc = ucase(cc) if cc <> "<" and cc <> ">" then newdesc = newdesc & cc end if next desc = newdesc newdesc = "" End If If len(price) = 0 then price = "Call for More Info." If len(photo) > 0 then photo = "" If len(html) = 0 then html = "
" & desc & "
" If len(city) > 0 and len(state) > 0 then state = ", " & state If ucase(country) = "USA" or country = "" then location = city & state else location = country end if If len(link) > 7 then if left(link,7) <> "http://" Then link = "http://" & link End If premium = "" If bold = 1 or len(link) > 7 or len(photo) > 0 then premium = 1 %>
<%=title%>

<%=Photo%><%=HTML%>
Location: <%=location%>
Price: <%=price%>

&<%=replace(company," ","-")%> CLASS=thumbglow>Send Classifieds E-Mail &<%=replace(company," ","-")%> CLASS=thumbglow>View Classifieds Phone Number <% If len(link) > 7 Then %> Visit <%=company%> <% Else %> <% End If %> <% If premium = "1" then %> Premium Classifieds Upgrade <% End If %>


<% RS.MoveNext Wend RS.Close Set RS=Nothing If items = 0 then response.write "

Sorry, there are currently no items in this category.


" & vbcrlf %>
<%=PageText%>