%@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)%> |
|
|
|
|
|
<%
RitanaBooks.Close()
Set RitanaBooks = Nothing
%>