<%@ Language=VBScript %> <% CheckValueQueryString %> <% set DBCon = server.CreateObject("ADODB.Connection") DBCon.Open Application("DB_ConnectionString"), "","" if IsNumeric(Request.QueryString ("s")) = false then tp=0 elseif int(Request.QueryString ("s")) < 0 or int(Request.QueryString ("s")) > 5 then tp=0 else tp=int(Request.QueryString ("s")) end if if request.QueryString("state")<> "" then state = request.QueryString("state") else state = "" end if if request.QueryString("county")<> "" then county = request.QueryString("county") else county = "" end if set rs=dbcon.Execute("SELECT * FROM states where state_Initials = '"+state+"'") if rs.eof = false then state_name = rs.fields("state_Name") else state="" end if rs.close set rs=nothing if state <> "" then if county <> "" then title = ""+types(tp)+" and Relocation Services in "+county+", "+ state_name else title = state_name+" "+types(tp)+" by County" end if else title = types(tp)+" - Compare "+types2(tp) +" services" end if ttitle = title %> <%if state <> "" then%> <%if county <> "" then %> <%else %> <%end if %> <%else%> <%end if %>

Looking to move?
Start your search here for local and long distance movers, and moving services!

<%=ttitle %>

<%if state <> "" then %> <% dim top_extext dim bottom_extext if county <> "" then set rextra=dbcon.execute("SELECT * FROM citytexts where st_state = '"+state+"' AND st_county='"+county+"' and st_city='' and st_site=2") if rextra.eof = false then txt = rextra.fields("st_text") if rextra.fields("st_Placement") = 0 then top_extext = "
"+txt else bottom_extext = ""+txt end if end if rextra.close set rextra=nothing top_extext = join(split(top_extext,"%1"),types(tp)) bottom_extext = join(split(bottom_extext,"%1"),types(tp)) %> You have chosen: <%=types(tp) %> in <%=county %> County in <%=state_name%>.
Please choose your relevant city in <%=county %>, <%=state_name %> <% else set rextra=dbcon.execute("SELECT * FROM citytexts where st_state = '"+state+"' AND st_county='' and st_city='' and st_site=2") if rextra.eof = false then txt=rextra.fields("st_text") if rextra.fields("st_Placement") = 0 then top_extext = "
"+txt else bottom_extext = ""+txt end if end if rextra.close set rextra=nothing top_extext = join(split(top_extext,"%1"),types(tp)) bottom_extext = join(split(bottom_extext,"%1"),types(tp)) %> Welcome to your one stop source for <%=types(tp) %> in <%=state_name %>.
Please choose your relevant county in <%=state_name %>, so we can start sending you moving quotes. <%end if %> <%else %> Get Move online directory provides easy access to 100's of professional prescreened moving companies Nationwide. Listed movers provides all types of moving services such as residential moving, commercial moving, Local moving, out of state moving (long distance moving) International moving, storage facilities, packing supplies, packing services and free moving price quotes. To get free multiple moving cost estimates please select your state. <%end if %>
Home > <%if state <>"" then %><%end if%><%=types(tp)%><%if state <>"" then %><%end if%> <% if state <> "" then %> > <%if county <>"" then %><%end if%><%=state_name%><%if county <>"" then %><%end if%> <% if county <> "" then %> > <%if county = "" then %><%end if%><%=county%><%if county = "" then %><%end if%> <% end if end if %><%=top_extext %>
<%if state <>"" then if county <> "" then %> Select Your City <% set rs=dbcon.Execute("SELECT distinct city from countys where state = '"+state+"' ANd county='"+county+"' order by city") else %> Select Your County <% set rs=dbcon.Execute("SELECT distinct county from countys where state = '"+state+"' order by county") end if %> <% else %> Select Your State <% set rs=dbcon.Execute("SELECT state_Initials,state_Name,count(city) as cnt from states left outer join countys ON (states.state_Initials=countys.state) group by states.state_Initials,states.state_Name order by state_name") end if%>
<% cnt = 0 do while rs.eof = false cnt=cnt+1 rs.movenext loop rs.requery amount = int(cnt / 3) if cnt mod 3 <> 0 then amount = amount + 1 did = 0 cols = 1 %><% rs.close set rs=nothing dbcon.Close set dbcon=nothing %>
<% do while rs.eof = false if state <> "" then if county <> "" then text = rs.fields("city") link = cstr(links(tp))+"?s="+cstr(tp)+"&state="+state+"&county="+county+"&city="+rs.fields("city") else text = rs.fields("county") link = "states.asp?s="+cstr(tp)+"&state="+state+"&county="+rs.fields("county") end if else text = rs.fields("state_Name") if rs.fields("cnt")>0 then link = "states.asp?s="+cstr(tp)+"&state="+rs.fields("state_Initials") else link = cstr(links(tp))+"?s="+cstr(tp)+"&state="+rs.fields("state_Initials") end if end if %><%=text%>
<% rs.movenext did = did + 1 if did = amount then amount = int( cnt / 3) if cnt mod 3 <> 0 then amount = amount + 1 did = 0 cols = cols + 1 if cols = 2 then %>
<% else %><% end if end if %><% loop %>
<%=bottom_extext %>
<%bpage="banner_Index"%>
MovERS