Where to Rent and Buy About Finn Corp. News and Events Resources Contact Information
Find a Rental Location Near You

 

Find a Rental Location

Choose your state/province. If your state/province is not available, then there are currently no FINN rentals available for this location.



<% dim v_state v_state = request.querystring("txt_state") Set Conn = Server.CreateObject("ADODB.Connection") conn.open "Provider=SQLOLEDB; Data Source=fcsrv0003; Initial Catalog=syte-lfinn; User ID=porter; Password=porter; Network Library=dbmssocn;" strSQL = "SELECT distinct state from rental union select distinct state from rental_custom order by state" set join11 = Server.CreateObject("ADODB.Recordset") join11.CursorType = 0 join11.CursorLocation = 2 join11.LockType = 1 join11.Open strSQL, Conn dim v_category dim v_cust response.write "
" response.write "" response.write "" response.write "
" if v_state <> "" then strSQL2 = "SELECT distinct cust_name, addr1, city, state, zip, phone, item, description FRom rental where state = '" & v_state & "' union select distinct cust_name,addr1,city,state,zip,phone,item,description from rental_custom where state = '" & v_state & "' order by cust_name" set join22 = Server.CreateObject("ADODB.Recordset") join22.CursorType = 0 join22.CursorLocation = 2 join22.LockType = 1 join22.Open strSQL2, Conn do until join22.eof if len(join22("addr1")) > 0 then strSQL3 = " select distinct category from rental where replace(cust_name,char(39),'') = '" & replace(join22("cust_name"),"'","") & "' and replace(addr1,char(39),'') = '" & replace(join22("addr1"),"'","") & "' and city = '" & join22("city") & "' union SELECT distinct category FRom rental_custom where replace(cust_name,char(39),'') = '" & replace(join22("cust_name"),"'","") & "' and replace(addr1,char(39),'') = '" & replace(join22("addr1"),"'","") & "' and city = '" & join22("city") & "'" else strSQL3 = " select distinct category from rental where replace(cust_name,char(39),'') = '" & replace(join22("cust_name"),"'","") & "' and addr1 = '" & join22("addr1") & "' and city = '" & join22("city") & "' union SELECT distinct category FRom rental_custom where replace(cust_name,char(39),'') = '" & replace(join22("cust_name"),"'","") & "' and addr1 = '" & join22("addr1") & "' and city = '" & join22("city") & "'" end if set join33 = Server.CreateObject("ADODB.Recordset") join33.CursorType = 0 join33.CursorLocation = 2 join33.LockType = 1 join33.Open strSQL3, Conn %>

") v_category = join33("category") join33.movenext 'else 'v_category = "" 'end if loop %> <% join33.close join22.movenext loop end if %>
<% response.write("") response.write replace(join22("cust_name"),"'","") response.write("") response.write "
" response.write join22("addr1") response.write ("
") response.write join22("city") response.write ", " response.write join22("state") response.write " " response.write join22("zip") response.write ("
") response.write join22("phone") response.write "
" response.write join22("item") response.write "
" response.write join22("description") response.write "

" %> <% do until join33.eof 'if v_category <> join33("category") then response.write ("
") response.write ("") response.write ("Available Rental Equipment") response.write ("") response.write ("
") response.write join33("category") response.write ("
") response.write ("