<%@LANGUAGE="VBSCRIPT"%> <% set rsCat = Server.CreateObject("ADODB.Recordset") rsCat.ActiveConnection = MM_connDUclassified_STRING rsCat.Source = "SELECT CATS.CAT_ID, CAT_NAME, CAT_IMAGE, (SELECT COUNT (*) FROM ADS WHERE ADS.CAT_ID = CATS.CAT_ID AND AD_APPROVED = 1) AS TOTAL FROM CATS ORDER BY CAT_NAME ASC" rsCat.CursorType = 0 rsCat.CursorLocation = 2 rsCat.LockType = 3 rsCat.Open() rsCat_numRows = 0 %> <% set rsSub = Server.CreateObject("ADODB.Recordset") rsSub.ActiveConnection = MM_connDUclassified_STRING rsSub.Source = "SELECT * FROM SUBS ORDER BY SUB_NAME ASC" rsSub.CursorType = 0 rsSub.CursorLocation = 2 rsSub.LockType = 3 rsSub.Open() rsSub_numRows = 0 %> <% Dim HLooper1__numRows HLooper1__numRows = -2 Dim HLooper1__index HLooper1__index = 0 rsCat_numRows = rsCat_numRows + HLooper1__numRows %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> BudgetStays - homestay,guest house,budget travel hotel.
| HOME | LIST YOUR BUDGETSTAYS | MANAGE YOUR BUDGETSTAYS | FAQ | REGISTER |
SEARCH  

About Us

The Company Integrated Services promoted by Technocrats is the moving force behind this service.
Having travelled within the country and abroad, for the past decade, the need for such a service was felt.
This service is for anyone, to stay anywhere in India, in the Budget of his choice.

The Second Service launched is an Employment Board and can be used by all across the globe.
Companies can source a Candidate of their choice, while Candidates can locate Companies that need their services. Visit jobsworldwide and enjoy the benefits of this Free Registry.

The third Service servicesnsupplies is relaunched to make it user friendly.This is a B2B site to serve the small and unknown Craftsmen,Trader and Entrepreneur. It opens a window of opportunities.

We thank you for having visited us. Do Patronise our services and remember to tell others about it.
Remember you can now StayFree.Click on StayFree to know more.

Please contact The Administrator if you face any problem.
The address is - P.O.Box 12035,Azad Nagar Post Office,Andheri west,Mumbai 400053,India

 


 

 

 
© Copyrights BudgetStays.Com. All Rights Reserved. | About Us | Contact Budgetstays | Terms of use | Privacy Policy |
<% rsCat.Close() %> <% rsSub.Close() %>