<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim PlaceOrder__a1 PlaceOrder__a1 = "1" If (Request.querystring("isbn") <> "") Then PlaceOrder__a1 = Request.querystring("isbn") End If %> <% Dim PlaceOrder Dim PlaceOrder_numRows Set PlaceOrder = Server.CreateObject("ADODB.Recordset") PlaceOrder.ActiveConnection = MM_RitanaBooks_STRING PlaceOrder.Source = "SELECT * FROM RitanaBooks WHERE ISBN='" + Replace(PlaceOrder__a1, "'", "''") + "' " PlaceOrder.CursorType = 0 PlaceOrder.CursorLocation = 2 PlaceOrder.LockType = 1 PlaceOrder.Open() PlaceOrder_numRows = 0 %> Ritana Books

Library Supplier

Ritana Books can supply the requirement of Libraries / Institutions / Individuals of Books in India and Abroad. Please send your requirement giving following details. And we shall supply the books soonest.

Title
Author
ISBN
Year of Publication
Price [Rs.]
Your Name
Billing Address
Email
Phone No.
Shipping Address
Phone No.
Number of copies
Cheque / DD #
Total Amount [Rs.]
Message / Comments
<% PlaceOrder.Close() Set PlaceOrder = Nothing %>