Rediff On The Net - Hotel Guide

<% Mybudget=Request.Form("budget") Mycity=Request.Form("city") If Mybudget <> "" AND Mycity <> "" Then Set FileObject = Server.CreateObject("Scripting.FileSystemObject") HotelIndex=Server.MapPath("/events")&"\hotelguide\hotelind1.txt" 'Response.write HotelIndex 'Response.write "ggggggggggggg" Set InStream=FileObject.OpenTextFile(HotelIndex,1,False,False) Msg="Search for "&Mycity&" "&Mybudget&" found the following documents:" End If %> Rediff On The Net - Hotel Guide

AIRLINES

HOME | TRAVEL | HOTEL GUIDE


	Welcome to the Rediff Hotel Guide, your source of information for hotels across India. All you have to do is key in the details and you're on your way! Should you wish to check out information of the latest package discounts on offer please do check out Hotel Packages. If you would like to book a hotel online please try Hotel Reservations.		<%=Msg%> <% If Mybudget <> "" AND Mycity <> "" Then While not InStream.AtEndOfStream EachLine=InStream.ReadLine linevals=Split(EachLine,":") If Mybudget = linevals(3) AND Mycity = linevals(1) Then Response.write ""&linevals(0)&" " dodisp=true End If Wend Set InStream=Nothing Set FileObject=Nothing If dodisp = "" Then Response.write "No documents found." End If End If %>