<% Server.ScriptTimeout = 3600 Page = Trim(Request("page")) If Page = "" Then Page = 1 session.LCID = 1030 Response.Expires =-1 Set dbCon = Server.CreateObject("ADODB.Connection") dbCon.ConnectionTimeout = 180 dbCon.CommandTimeout = 180 DSN = "Driver={Oracle in OraClient10g_home1};Dbq=prod;Uid=JBN;Pwd=skyone" dbCon.Open DSN Set RS = Server.CreateObject("ADODB.Recordset") sql = "select name, objid, objversion, sum(total) total from (select count(mp.person) total, p.name, p.objid, p.objversion " &_ "from homeent.person p, homeent.movie_people mp where p.name = mp.main_person_name and p.picture is null group by p.name, p.objid, p.objversion " &_ "union select count(sp.person) total, p.name, p.objid, p.objversion from homeent.person p, homeent.series_ep_people sp where p.name = sp.main_person_name and p.picture is null " &_ "group by p.name, p.objid, p.objversion) group by name, objid, objversion order by total desc " ' response.write(sql) rs.CursorLocation = 3 RS.CursorType = adOpenStatic RS.PageSize = 50 RS.Open sql,dbCon If Not rs.EOF Then rs.AbsolutePage = cINT(Page) rowCount = 0 End If %>
<% do while not RS.eof and rowCount < rs.PageSize fil = Replace(RS("name")&"", " ", "") fil = Replace(fil&"", "'", "") ' fil = fil&".jpg" %> <% rowCount = rowCount + 1 RS.movenext loop %>
%22&ie=UTF-8&oe=UTF-8&hl=en" target="_blank"><% response.write(RS("name")) %> (<%=RS("total") %>) connections
> > >
 
<%If rs.PageCount <> 1 Then For i = 1 to rs.PageCount response.write "" & " " & i & "" Next End If RS.close set RS = Nothing %>