<%@LANGUAGE="VBScript"%> <%Option Explicit%> <% Dim objCon,BooksTable,strSQL,NumberOfRecords,NumberOfPages,Counter,TempChar,StringCounter Counter = 0 Set objCon=Server.CreateObject("ADODB.Connection") objCon.Connectionstring="Provider=Microsoft.Jet.OleDB.4.0;Data Source=" & Server.MapPath("\Database") & "\AbiariDatabase.mdb;Jet OLEDB:Database Password=abiari33670" objCon.Open Set BooksTable=Server.CreateObject("ADODB.Recordset") strSQL="Select * From BooksTable Order By BookID desc" BooksTable.Open strSQL,objCon,adopendynamic,adlockpessimistic If Not BooksTable.EOF Then Do While Not BooksTable.EOF NumberOfRecords = NumberOfRecords + 1 BooksTable.MoveNext Loop BooksTable.MoveFirst NumberOfPages = Round(NumberOfRecords / 8 + 0.5) BooksTable.Move Cint(Request("StartNumber")) End IF %> Iranian National Committee on Irrigation and Drainage




سفارش و خريد كتاب:

علاقمندان جهت خريد و سفارش كتاب مي‌توانند با واريز بهاي كتاب‌هاي موجود و قابل فروش به حساب شماره 1403 بنام بانك مركزي ايران (قابل واريز از كليه شعب بانك‌هاي ملي) و ارسال اصل فيش بانكي به دبيرخانه كميته ملي آبياري و زهكشي ايران به آدرس (تهران ـ خيابان شهيد دستگردي (ظفر) ـ خيابان كارگزار ـ خيابان شهرساز ـ پلاك 24 ـ طبقه دوم ـ كميته ملي آبياري و زهكشي ايران) اقدام نمايند

 

ليست كتاب‌هاي قابل فروش
Download

توجه

1- ذكر آدرس دقيق پستي به منظور ارسال كتاب ضروري است.
2- تحويل حضوري كتاب بهتر از ارسال آن با پست مي‌باشد لذا در صورت امكان با مراجعه حضوري نسبت به خريد كتاب اقدام نماييد.
3- ارسال اصل فيش بانكي براي خريد كتاب الزامي است.


<% If (Cint(Request("StartNumber")) >= 8) Then %>  <% End IF Do While (Counter < NumberOfPages) If (Counter * 8) <> Cint(Request("StartNumber")) Then %>  <% Else %>  <% End IF Counter = Counter + 1 Loop If (NumberOfRecords > Cint(Request("StartNumber") + 8)) Then %>  <% End IF %>



<% BooksTable.Close Set BooksTable=nothing objCon.Close Set objCon=nothing %>