I'm trying to access foxpro 2.6 data from visual interdev with the following:

< %
datethen=date()-6
datenow=date()
qry = "select * from kdata where k_date >= '" & datethen & " and"
qry = qry & " k_date <= '" & datenow & "'"

set rs1 = server.createobject("ADODB.Recordset")
open.rs1 qry, "DSN=foxcon"

while not rs1.eof
response.write rs1.name & " " rs1.k_date
wend
% >

but nothing happens and no error is displayed by the browser.
Can anyone help me correct any mistakes here?

Ramon Carlos