<% Set Conn=server.createobject("ADODB.connection") Conn.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\") & "\data\NothingToIt.mdb;UID=;PWD=;" SQL = "SELECT * FROM tour WHERE date > #"&NOW&"#;" Set RS = server.createObject("ADODB.recordset") rs.open SQL, conn if rs.eof then response.write"Sorry, there are no upcoming tour dates.
" end if while not rs.eof 'rs.movefirst 'this line will screw up when rs = eof response.write"

" response.write""&rs("date")& " " &rs("citytitle")&"
" response.write""&rs("eventtype")&"
" response.write""&rs("company")&"
" response.write""&rs("address1")&"
" response.write""&rs("address2")&"
" response.write""&rs("address3")&"
" response.write""&rs("phone")&"
" response.write""&rs("web")&"
" response.write"

" rs.movenext wend rs.close set rs=nothing conn.close set conn= nothing %>