%@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 |
|
|
|
|
‡
Books Published ‡
|
<%if request("Back")="Back" then%>
Security key verification failed |
<%end if%>
|
|
<%
Recordset1.Close()
%>
<%
PlaceOrder.Close()
Set PlaceOrder = Nothing
%>