<% MySql="select Name, Address, City, State, Zip, Tel, Rent, Bedroom, Lease, SecDepo, Pet from Harrisburg order by Name"
Set MyCon = Server.CreateObject( "ADODB.Connection")
MyCon.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=d:rentlist.mdb"
Set rs= MyCon.Execute(MySql)
if not rs.eof then
cn=1
do while not rs.eof
na=rs("Name")
ad=rs("Address")
ct=rs("City")
st=rs("State")
zp=rs("Zip")
tl=rs("Tel")
rt=rs("Rent")
be=rs("Bedroom")
ls=rs("Lease")
se=rs("SecDepo")
pt=rs("Pet")
response.write("
response.write("
NameAddressCityStateZipTelRentBedroomLeaseSecDepPet")response.write("
naadctstzptlrtbelssept")response.write("
")cn=cn+1
rs.movenext
loop
rs.close
set rs= nothing
Mycon.close
set Mycon = nothing
%>

