<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim RitanaBooks__a1 RitanaBooks__a1 = "1" If (Request.querystring("isbn") <> "") Then RitanaBooks__a1 = Request.querystring("isbn") End If %> <% Dim RitanaBooks Dim RitanaBooks_numRows Set RitanaBooks = Server.CreateObject("ADODB.Recordset") RitanaBooks.ActiveConnection = MM_RitanaBooks_STRING If (Request.querystring("isbn") <> "") Then RitanaBooks.Source = "SELECT * FROM RitanaBooks WHERE ISBN ='" + Replace(RitanaBooks__a1, "'", "''") + "' ORDER BY s_no ASC" else RitanaBooks.Source = "SELECT * FROM RitanaBooks WHERE S_no =" + Request.querystring("S_no") + " ORDER BY s_no ASC" end if RitanaBooks.CursorType = 0 RitanaBooks.CursorLocation = 2 RitanaBooks.LockType = 1 RitanaBooks.Open() RitanaBooks_numRows = 0 %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_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) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' 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 %> Ritana Books


Now you can make payments online. We are in the process of integrating the payment gateway to our ordering system. Meanwhile, you can simply place an order using the form below, and we will send you instructions, as well as a link to make payments online. If you have any queries, please send us an email at ritanabooks@gmail.com.

Payment can be made by direct bank transfer by RTGS/NEFT to: RITANA BOOKS, Account No.307805040028107. Account with Union Bank of India, Connaught Place Branch, New Delhi 110001. IFSC CODE: UBIN0530786.
Payment can also be made by At Par Cheque or Demand Draft favouring RITANA BOOKS, payable at New Delhi and couriered to our address along with your order.
Ritana Books
81, Defence Colony Flyover Market
New Delhi - 110 024, INDIA
Phone : - 9810095486
ritanabooks@gmail.com
Books Published

" border="1">
Title :: <%=(RitanaBooks.Fields.Item("Title").Value)%>
Author :: <%=(RitanaBooks.Fields.Item("Author").Value)%>
ISBN :: <%=(RitanaBooks.Fields.Item("ISBN").Value)%>
Publication :: <%=(RitanaBooks.Fields.Item("YearOfPub").Value)%> [Year]
Pages :: <%=(RitanaBooks.Fields.Item("Pages").Value)%>
Price :: Rs.<%=(RitanaBooks.Fields.Item("Price").Value)%>
Description ::

<%=(RitanaBooks.Fields.Item("Description").Value)%>

:.. Please email orders to: ritanabooks@gmail.com ..:

<% RitanaBooks.Close() Set RitanaBooks = Nothing %>