<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> :: Welcome to Tamboli Travels & Tours :: <% dim vregion dim cn dim rs vregion = trim(request.querystring("region")) set cn = server.createobject("adodb.connection") set rs = server.createobject("adodb.recordset") cn.open"Provider=Microsoft.jet.oledb.4.0;Data Source=" & server.mappath("data.mdb") rs.open "select * from TourMaster where region='" & vregion & "'",cn,3,3 if (rs.recordcount > 0) then rs.movefirst end if %>

 


 


TOUR PACKAGES
  <% while not rs.eof %> <% rs.movenext wend rs.close set rs = nothing set cn = nothing %>
<% if vregion = "E" then response.write "EAST" end if if vregion = "W" then response.write "WEST" end if if vregion = "N" then response.write "NORTH" end if if vregion = "S" then response.write "SOUTH" end if %>   REGION PACKAGES