Dim RecSet RecSet = Server.CreateObject("ADODB.Recordset") objRS = Server.CreateObject("ADODB.Recordset") ObjHRMISDACom = Server.CreateObject("HRMISDACom.CDatabaseSQL") strSQL = "select GDAccessCatCd,GDAccessCatNm from tblREFGDAccessCat" 'Response.Write strSQL 'Response.End() strSQL = strSQL & strSQLOrderBy 'response.Write "strFileDSN :" & strFileDSN 'response.End objRS = ObjHRMISDACom.SQLSelectRS(strSQL, strFILEDSN) intTotalRecToBeDisplay = 4 blnSkipResponseEnd = True Call cbfPageNavTop(objRs, intTotalRecToBeDisplay, blnSkipResponseEnd)