<% location = UCase(Cleanup(Request.QueryString, 30)) location = Replace(location, "-", " ") mbTitle = "Steel & Metal Building Erectors in " & location & " - Erectors.com Directory" mbKeywords = location & " erectors, " & location & " building erectors, " & location & " steel erectors, " & location & " building erection companies" mbDesc = location & " directory of steel & metal building erectors, building erection companies, steel erectors, and erection crews." '--------------------------------------------------------------------------------- projectstate = LCase(location) If projectstate = "alabama" then projectstate = "AL" : sll = "+32.799, -86.8073" If projectstate = "alaska" then projectstate = "AK" : sll = "+61.385, -152.2683" If projectstate = "arizona" then projectstate = "AZ" : sll = "+34.2712, -111.9877" If projectstate = "arkansas" then projectstate = "AR" : sll = "+34.9513, -92.3809" If projectstate = "california" then projectstate = "CA" : sll = "+36.17, -119.7462" If projectstate = "colorado" then projectstate = "CO" : sll = "+39.0646, -105.3272" If projectstate = "connecticut" then projectstate = "CT" : sll = "+41.5834, -72.7622" If projectstate = "delaware" then projectstate = "DE" : sll = "+39.3498, -75.5148" If projectstate = "florida" then projectstate = "FL" : sll = "+28.2333, -83.717" If projectstate = "georgia" then projectstate = "GA" : sll = "32.9866, -83.6487" If projectstate = "hawaii" then projectstate = "HI" : sll = "+21.1098, -157.5311" If projectstate = "idaho" then projectstate = "ID" : sll = "+44.2394, -114.5103" If projectstate = "illinois" then projectstate = "IL" : sll = "+40.3363, -89.0022" If projectstate = "indiana" then projectstate = "IN" : sll = "+39.8647, -86.2604" If projectstate = "iowa" then projectstate = "IA" : sll = "+42.0046, -93.214" If projectstate = "kansas" then projectstate = "KS" : sll = "+38.5111, -97.8005" If projectstate = "kentucky" then projectstate = "KY" : sll = "+37.669, -84.6514" If projectstate = "louisiana" then projectstate = "LA" : sll = "+30.81972, -92.07826" If projectstate = "maine" then projectstate = "ME" : sll = "+44.6074, -69.3977" If projectstate = "maryland" then projectstate = "MD" : sll = "+39.0724, -76.7902" If projectstate = "massachusetts" then projectstate = "MA" : sll = "+42.2373, -71.5314" If projectstate = "michigan" then projectstate = "MI" : sll = "+44.3504, -84.5603" If projectstate = "minnesota" then projectstate = "MN" : sll = "+45.7326, -93.9196" If projectstate = "mississippi" then projectstate = "MS" : sll = "+32.7673, -89.6812" If projectstate = "missouri" then projectstate = "MO" : sll = "+38.4623, -92.302" If projectstate = "montana" then projectstate = "MT" : sll = "+46.9048, -110.3261" If projectstate = "nebraska" then projectstate = "NE" : sll = "+41.1289, -99.4883" If projectstate = "nevada" then projectstate = "NV" : sll = "+38.4199, -117.1219" If projectstate = "new hampshire" then projectstate = "NH" : sll = "+43.4108, -71.5653" If projectstate = "new jersey" then projectstate = "NJ" : sll = "+40.314, -74.5089" If projectstate = "new mexico" then projectstate = "NM" : sll = "+34.8375, -106.2371" If projectstate = "new york" then projectstate = "NY" : sll = "+42.1497, -74.9384" If projectstate = "north carolina" then projectstate = "NC" : sll = "+35.6411, -79.8431" If projectstate = "north dakota" then projectstate = "ND" : sll = "+47.5362, -99.793" If projectstate = "ohio" then projectstate = "OH" : sll = "+40.3736, -82.7755" If projectstate = "oklahoma" then projectstate = "OK" : sll = "+35.5376, -96.9247" If projectstate = "oregon" then projectstate = "OR" : sll = "+44.5672, -122.1269" If projectstate = "pennsylvania" then projectstate = "PA" : sll = "+40.5773, -77.264" If projectstate = "rhode island" then projectstate = "RI" : sll = "+41.6772, -71.5101" If projectstate = "south carolina" then projectstate = "SC" : sll = "+33.8191, -80.9066" If projectstate = "south dakota" then projectstate = "SD" : sll = "+44.2853, -99.4632" If projectstate = "tennessee" then projectstate = "TN" : sll = "+35.7449, -86.7489" If projectstate = "texas" then projectstate = "TX" : sll = "+31.106, -97.6475" If projectstate = "utah" then projectstate = "UT" : sll = "+40.1135, -111.8535" If projectstate = "vermont" then projectstate = "VT" : sll = "+44.0407, -72.7093" If projectstate = "virginia" then projectstate = "VA" : sll = "+37.768, -78.2057" If projectstate = "washington" then projectstate = "WA" : sll = "+47.3917, -121.5708" If projectstate = "west virginia" then projectstate = "WV" : sll = "+38.468, -80.9696" If projectstate = "wisconsin" then projectstate = "WI" : sll = "+44.2563, -89.6385" If projectstate = "wyoming" then projectstate = "WY" : sll = "+42.7475, -107.2085" If len(projectstate) <> 2 then projectstate = "International" : sll = "0, 0" '------------------------------------------------------------------------------------------- STATEWIDE LISTINGS ----- Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open Application("DBConnectionString") count = 0 char = 0 For xL = 1 to 3 If xL = 1 then SQL = "SELECT * FROM [builders] WHERE [state] = '" & projectstate & "' AND [estatus] > 1 AND [erector] = 'Y' ORDER BY [status] DESC, [estatus] DESC, [company name] ASC" If xL = 2 then SQL = "SELECT * FROM [builders] WHERE [state] <> '" & projectstate & "' AND [estatus] = 3 AND [erector] = 'Y' ORDER BY [status] DESC, [estatus] DESC, [company name] ASC" If xL = 3 then SQL = "SELECT * FROM [builders] WHERE ([state] LIKE '" & projectstate & "' AND [estatus] < 2) AND [erector] = 'Y' ORDER BY [status] DESC, [estatus] DESC, [company name] ASC" Set RS = Server.CreateObject("ADODB.Recordset") RS.Open SQL, Conn, 1, 3 If xL = 2 and count = 0 then results = "

Be the first premium " & location & " Erector listed!
Submit your new directory listing today!
" & vbcrlf & vbcrlf End If While not RS.Eof count = count + 1 company = ProperCase(Trim(RS("company name"))) phone = FormatPhone(RS("phone")) website = RS("website") city = ProperCase(RS("city")) state = ProperCase(location) zip = RS("zip") country = RS("country") estatus = RS("estatus") If estatus = "" then estatus = 0 local = "" If isNull(country) or isEmpty(country) or country = "USA" then citystate = city & " " & state Else citystate = ProperCase(country) If citystate = "" then citystate = state End If If estatus = 3 and projectstate <> RS("state") then citystate = "Nationwide" ElseIf estatus > 1 then local = "BGCOLOR=#FFFFAA" End If If left(website,7) <> "http://" then website = "http://" & website If citystate <> "Nationwide" then char = char + 1 '------------------------------------------------ Lat & Long ------- latitude = 0 longitude = 0 Set RS2 = Server.CreateObject("ADODB.Recordset") RS2.Open "SELECT * FROM [zipcodes] WHERE [zip] = '" & zip & "'", Conn, 1, 3 If not RS2.Eof then latitude = RS2("latitude") longitude = Replace(RS2("longitude"), "-0", "-") End If RS2.Close Set RS2 = Nothing '----------------------------------------------- Plot Map Points --- If latitude <> 0 and longitude <> 0 then mapTip = "" & Replace(company, "'", "") & "
" mapTip = mapTip & "" & citystate & "
" If RS("status") > 0 and len(phone) > 0 then mapTip = mapTip & "" & phone & "
" If RS("status") > 0 and website <> "http://" then mapTip = mapTip & "Visit Website" mapData = mapData & " var latlng = new GLatLng(" & latitude & ", " & longitude & ");" & vbcrlf mapData = mapData & " map.addOverlay(createMarker(latlng, " & char - 1 & ", '" & mapTip & "'));" & vbcrlf End If '------------------------------------------------------------------- End If '----------------------------------------------- Build Page Text --- countTxt = "" If char > 0 and char < 27 and citystate <> "Nationwide" then countTxt = "" & chr(64+char) & ". " results = results & "
" & vbcrlf results = results & "
" & countTxt & "" & vbcrlf If estatus > 1 then results = results & "" & vbcrlf results = results & "" & company & "
" & vbcrlf If len(citystate) > 0 then results = results & "Location: " & citystate & "
" & vbcrlf If (estatus > 0 or RS("status") > 0) and len(phone) > 0 then results = results & "Phone: " & phone & "
" & vbcrlf If estatus > 0 and website <> "http://" then results = results & "Website: " & website & "" & vbcrlf Else results = results & "
" & vbcrlf End If results = results & "
" & vbcrlf & vbcrlf '------------------------------------------------------------------- RS.MoveNext Wend Next If location = "NATIONAL" or location = "INTERNATIONAL" then results = results & "

Find building erection services:
" & location & " Erectors Price Quotes @ MetalBuilding.com
" & vbcrlf results = results & "

Erect Metal Buildings
Steel Building Erection Crews
" & vbcrlf End If RS.Close Set RS=Nothing '------------------------------------------------------------------------------------------- NATIONWIDE ADDONS ----- If count > 14 then totalCount = 3 If count < 15 then totalCount = 5 If count < 10 then totalCount = 10 If count < 5 then totalCount = 15 Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open Application("DBConnectionString") Set RS = Server.CreateObject("ADODB.Recordset") RS.Open "SELECT TOP " & totalcount & " * FROM [builders] WHERE [states] LIKE '%" & projectstate & "%' AND [state] <> '" & projectstate & "' AND [erector] = 'Y' AND [rank] > 0 AND [estatus] <> 3 ORDER BY NEWID()", Conn, 1, 3 results = results & "
Other Erectors Servicing " & location & "

" & vbcrlf & vbcrlf While not RS.Eof company = ProperCase(Trim(RS("company name"))) phone = FormatPhone(RS("phone")) website = RS("website") city = ProperCase(RS("city")) state = UCase(RS("state")) zip = RS("zip") country = RS("country") estatus = RS("estatus") & "" If estatus = "" then estatus = 0 If country = "" or country = "USA" then citystate = city & " " & state Else citystate = ProperCase(country) End If If left(website,7) <> "http://" then website = "http://" & website '----------------------------------------------- Build Page Text --- results = results & "
" & vbcrlf results = results & "
  " & vbcrlf If estatus > 2 then results = results & "" & vbcrlf If estatus = 2 then results = results & "" & vbcrlf results = results & "" & company & "
" & vbcrlf If len(citystate) > 0 then results = results & "Location: " & citystate & "
" & vbcrlf If (estatus > 0 or RS("status") > 0) and len(phone) > 0 then results = results & "Phone: " & phone & "
" & vbcrlf If estatus > 0 and website <> "http://" then results = results & "Website: " & website & "" & vbcrlf results = results & "
" & vbcrlf & vbcrlf RS.MoveNext Wend RS.Close Set RS=Nothing '------------------------------------------------------------------------------------------------------------------ %>

Steel & Metal Building Erectors - <%=location%>
The following is a listing of <%=location%> steel erectors and building erection companies. This list may also contain <%=location%> general contractors that work with building erection crews. Premium listings are shown at the top of each Erectors.com directory and may contain additional information about each premium building erection company.







ERECTORS DIRECTORY - <%=location%>

<%=results%>