<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Recordset1__a1 Recordset1__a1 = "1" if (Request.QueryString("s_no") <> "") then Recordset1__a1 = Request.QueryString("s_no") %> <% set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_RitanaBooks_STRING Recordset1.Source = "SELECT * FROM IGNOU WHERE s_no = " + Replace(Recordset1__a1, "'", "''") + "" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim PlaceOrder Dim PlaceOrder_numRows if request.QueryString("isbn")="" then query= "SELECT * FROM BooksDistributed WHERE ISBN='"&request.QueryString("isbn1")&"' " else query= "SELECT * FROM RitanaBooks WHERE ISBN='"&request.QueryString("isbn")&"' " end if Set PlaceOrder = Server.CreateObject("ADODB.Recordset") PlaceOrder.ActiveConnection = MM_RitanaBooks_STRING PlaceOrder.Source = query PlaceOrder.CursorType = 0 PlaceOrder.CursorLocation = 2 PlaceOrder.LockType = 1 PlaceOrder.Open() PlaceOrder_numRows = 0 %> <% if trim(request("Back")="Back") then YourName=trim(request("YourName")) BillingAddress=trim(request("BillingAddress")) Email=trim(request("Email")) BillingPhone=trim(request("BillingPhone")) ShippingAddress=trim(request("ShippingAddress")) ShippingPhone=trim(request("ShippingPhone")) NumberOfCopies=trim(request("NumberOfCopies")) ChequeNo=trim(request("ChequeNo")) TotalAmount=trim(request("TotalAmount")) Comments=trim(request("Comments")) end if %> Ritana Books
We now accept online payments


<%if request("Back")="Back" then%> <%end if%>
Books Published
Security key verification failed
Title <%=(Recordset1.Fields.Item("Title").Value)%>
No Of Blocks <%=(Recordset1.Fields.Item("NoOfBlocks").Value)%>
Price Rs. <%=(Recordset1.Fields.Item("Price").Value)%>
Your Name
Billing Address
Email
Phone No.
Shipping Address
Phone No.
Number of copies
Cheque / DD #
Total Amount [Rs.]
Message / Comments
Security Key* Please insert the security key from the image into the box below. This key is used to verify that this page is not accessed by any automated processes.
 
"> "> ">
<% Recordset1.Close() %> <% PlaceOrder.Close() Set PlaceOrder = Nothing %>