<%@ LANGUAGE="VBScript" %> Untitled Document <% SET conn = Server.CreateObject("ADODB.Connection") DSNtemp="Provider=SQLOLEDB;DATA SOURCE=203.197.197.171;UID=travelm_travelmasti;PWD=65wg4pk;DATABASE=travelm_travelmasti" 'DSNtemp="fileDSN=ehotelskerala.dsn" conn.Open DSNtemp Set RS = Server.CreateObject( "ADODB.Recordset" ) RS.CursorType = adOpenStatic RS.Open "select distinct v.validity from tariffdetail t, validity v where t.city='"& Request.Querystring("city") & "' and t.hotelname='" & Request.Querystring("hotelname") & "' and v.city='"& Request.Querystring("city") & "' and v.hotelname='" & Request.Querystring("hotelname") & "' ORDER BY v.validity ASC", conn records = RS.RecordCount if records >= 1 then do while not rs.EOF %>
Travelmasti Special Tariff (<%=RS.Fields(0)%>)
<% SET cn = Server.CreateObject("ADODB.Connection") Set RS1 = Server.CreateObject( "ADODB.Recordset" ) cn.Open DSNtemp sql1="select t.category, t.sngrs, t.dobrs, t.sngusd, t.dobusd, t.luxtax, t.exptax from tariffdetail t, validity v where t.city='"& Request.Querystring("city") & "' and t.hotelname='" & Request.Querystring("hotelname") & "' and v.city='"& Request.Querystring("city") & "' and v.hotelname='" & Request.Querystring("hotelname") & "' and t.validity='" & RS.Fields(0) & "' and v.validity='" & RS.Fields(0) & "'" RS1.CursorType = adOpenStatic RS1.Open sql1, cn rec = RS1.RecordCount if rec >= 1 then do while not rs1.EOF %> <%coun=cint(coun)+1%> <% RS1.MoveNext loop RS1.Close cn.Close end if %> "> ">
  Category
Sgl
Rs.
Dbl
Rs.
Sgl USD
Dbl USD
Lux
Tax (%)
Others
(%)
<%=rs1.Fields(0)%>
<%=RS1.Fields(1)%>
<%=RS1.Fields(2)%>
<%=RS1.Fields(3) %>
<%=RS1.Fields(4)%>
<%=RS1.Fields(5) %>
<%=RS1.Fields(6)%>
<% cn.Open DSNtemp rs1.Open "select tariffnotes from tariffnotes where city='"& Request.Querystring("city") & "' and hotelname='" & Request.Querystring("hotelname") & "' and validity='" & RS.Fields(0) & "'",cn z="" if not rs1.BOF or not rs1.EOF then if len(Trim(rs1.Fields(0)))>1 then y=mid(Trim(rs1.Fields(0)),2,len(Trim(rs1.Fields(0)))-1) x=Replace(y, "#", "
#") z="# " & x %> <%end if end if rs1.Close cn.Close %>
Notes :-
<%=z%>
">
<% rs.MoveNext loop else hoteln=Request.Querystring("hotelname") cityn=Request.Querystring("city") %>
<%end if rs.Close conn.Close %>