<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
:: Welcome to Tamboli Travels & Tours ::
<%
dim vtid
dim vtitle
dim cn
dim rs
vtid = trim(request.querystring("tid"))
vtitle = trim(request.querystring("title"))
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 TourDetails where tid=" & vtid & " order by days",cn,3,3
if (rs.recordcount > 0) then
rs.movefirst
end if
%>
