%
'Response.Buffer = True
dim x,xdate,ydate
Dim adoCon 'Holds the Database Connection Object
Dim rs 'Holds the recordset for the records in the database
Dim strSQL 'Holds the SQL query for the database
Session.lcid = 2057
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("std.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
%>
Sales.............www.kutchggf.org
<%
iStart = (((currPage - 1)*pageSize) + 1)
iEnd = currPage * pageSize
if iEnd < totalRecords then
iEnd = iEnd
else
iEnd = totalRecords
end if
For i = 1 to rs.PageCount
if i =cint(currPage) then %> <%response.write("Page : " )%><%response.write(" "&i)%>
<% else
%>
Page : <%=i%>
<%
end if
Next
%> |
|
|
|
|
Copyright © 2013 Godhara
Graduate Forum All Rights Reserved. |
|
Powered By |
|