<% ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="" MM_authFailedURL="login.asp" MM_grantAccess=false If Session("MM_Username") <> "" Then If (true Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If Not MM_grantAccess Then MM_qsChar = "?" If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" MM_referrer = Request.ServerVariables("URL") if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString() MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer) Response.Redirect(MM_authFailedURL) End If %> <% server.ScriptTimeout = 6000 set my_conn= Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") set rs1 = Server.CreateObject("ADODB.Recordset") my_Conn.Open ConnString strSQL = "Alter table members ADD COLUMN M_ICQ Text(15)" my_Conn.Execute strSQL StrSQl = "Alter table members ADD COLUMN M_Posts Integer" my_Conn.Execute strSQL strSQL = "Update Members set M_Posts = 0" my_Conn.Execute strSQL Response.Write "Tabla de Miembros Actualizada

" StrSQl = "Alter table topics ADD COLUMN T_Mail bit" my_Conn.Execute strSQL Response.Write "Tabla de Miembros Actualizada

" strSQL = "Create Table Totals (P_count Integer, U_Count Integer)" my_Conn.Execute strSQL Response.Write "Tabla de Totales creada

" strSQL = "Select Member_ID, M_Posts From Members Order by Member_ID" rs.Open strSQL, my_conn, 2, 2 Response.Write "Calculando Totales de Envíos " total = 0 i = 0 do until rs.EOF i = i + 1 cnt = 0 strSQL = "SELECT Reply.R_Posted_By, Count(Reply.R_Posted_By) AS CntOf FROM Reply GROUP BY Reply.R_Posted_By HAVING (Reply.R_Posted_By)= " & cint(rs("Member_ID")) rs1.Open strSQL, my_conn if rs1.EOF or rs1.BOF then ' Else cnt = rs1("cntOf") End if rs1.Close strSQL = "SELECT Topics.T_Originator, Count(Topics.T_Originator) AS CntOf FROM Topics GROUP BY Topics.T_Originator HAVING (Topics.T_Originator)= " & cint(rs("Member_ID")) rs1.Open strSQL, my_conn if rs1.EOF or rs1.BOF then ' Else cnt = cnt + rs1("cntOf") End if rs1.Close rs("M_Posts") = cnt total = total + cnt rs.Update rs.movenext Response.Write "." if i = 70 then i = 0 Response.Write "
" end if loop rs.Close Response.Write "
Terminado! " & total & " Envíos en Total
" StrSQL = "Delete * From Totals" my_conn.Execute strSQL strSQL = "Insert into totals (P_Count) Values ( " & cint(total) & ")" my_Conn.Execute strSQL StrSQL = "SELECT Count(Member_ID) AS CountOf FROM Members" rs.Open strSQl, my_conn Response.Write RS("Countof") & " Usuarios Registrados
" strSQL = " Update totals set U_Count = " & cint(RS("Countof")) my_conn.Execute strSQL %>