<%
idbOfficename = "century 21 energy shield"
idbname = "TOWN"
isstring = "Quechee"
isstring2 = "VT"
stridxmls = "SELECT * FROM nhc21main9.MLSU WHERE TOWN like '" & isstring & "' AND State like '" & isstring2 & "' ORDER BY updated ASC"
stridxmls1 = "SELECT * FROM nhc21main9.MLSU WHERE OffName like '" & idbOfficename & "%' ORDER BY updated DESC"
dim rsfListings
set rsfListings = server.createobject ("ADODB.Recordset")
rsfListings.activeconnection = my_conn
rsfListings.cursortype = adOpenStatic
rsfListings.locktype = adLockOptimistic
rsfListings.open stridxmls1
Dim Repeat1__numRows
Repeat1__numRows = 4
Dim Repeat1__index
Repeat1__index = 0
rsListings_numRows = rsListings_numRows + Repeat1__numRows
%>
Upper Valley Business Partners
Homepage / Resources for buyers, sellers & other community links.
Resources for Buyers, Sellers & other community Links
