<%@ Language="VBSCRIPT"%>
<%
const intPageSize=8
dim intCurrentPage
dim intTotalPage
%>
<%
'if request.serverVariables("QUERY_STRING")="" then
if request.serverVariables("CONTENT_LENGTH")=0 then
intCurrentPage=1
else
intCurrentPage=CInt(request.form("currentpage"))
select case request.form("submit")
case "Previous"
intCurrentPage=intCurrentPage-1
case "Next"
intCurrentPage=intCurrentPage+1
end select
end if
'response.write request.serverVariables("CONTENT_LENGTH")
'response.end
%>
<%
val=request.querystring("val")
query="select distinct ID from Services where FocusArea='"&val&"'"
dim conn,rs
set conn= server.createobject("adodb.connection")
conn.provider="microsoft.jet.oledb.4.0"
conn.open server.mappath("database\bpo.mdb")
set objrs= server.createobject("adodb.recordset")
objrs.CursorLocation=adUseClient
objrs.CursorType=adOpenStatic
objrs.CacheSize=intPageSize
objrs.open query,conn,1,3
%>
BPO Services India BPO India Business Process Outsourcing Data Entry in India BPO in India
