ejecutar consultas dentro de un buble

[mc_quake]

mira yo tengo dos cosas que te pueden servir alomejor para que saque una idea

fechafin = FechaGenerica(fechafin)
diaini = Day(fechaini)
diafin = Day (fechafin)
feini = Day(fechaini)
fefin = Day (fechafin)

do while feini =< fefin
Response.Write "<td bgcolor=#FFCC6><font color=#0000FF size=1 face=Verdana>"& feini&"/"&Month(fechaini)&"/"&Year(fechaini)&"</font></td>"
feini = feini+1
loop

response.write "<tr>"
Set conexion = Server.CreateObject ("ADODB.Connection")
conexion.Open "DSN=InformeGestion"

Set registros = Server.CreateObject ("ADODB.RecordSet")
sql = " DELETE * From Graf"
conexion.Execute sql

Do While diaini =< diafin

Set registros = Server.CreateObject ("ADODB.RecordSet")
sql = "SELECT * FROM InforGestion WHERE Origen = 'CCP' AND Fecha_inicio = #"& Month(fechaini)&"/"&Day(fechaini)&"/"&Year(fechaini)&"#"
registros.Open sql, conexion
ccp = 0

do while not registros.EOF
ccp = ccp + 1
registros.MoveNext
loop

Response.Write "<td><center>"&ccp& "</center></td> "

Set registros = Server.CreateObject ("ADODB.RecordSet")
sql = " INSERT INTO Graf (ccp, dia) VALUES ( '"&ccp&"', '"&diaini&"');"
conexion.Execute sql
'registros.Close

diaini = diaini + 1
fechaini = Dateadd ("d",1,fechaini)


'registros.Close
'Set registros = Nothing
Loop

Set registros = Server.CreateObject ("ADODB.RecordSet")
sql = "SELECT * FROM InforGestion WHERE Origen = 'CCP Subtel' AND Fecha_inicio between #" &FechaGenerica(fechaini)& "# and #" &fechafin& "# "

registros.Open sql, conexion

ccpsubtel = 0
while not registros.EOF
ccpsubtel = ccpsubtel + 1
registros.MoveNext
Wend

Set registros = Server.CreateObject ("ADODB.RecordSet")
sql = "SELECT * FROM InforGestion WHERE Origen = 'CCP Sernac' AND Fecha_inicio between #" &FechaGenerica(fechaini)& "# and #" &fechafin& "# "

registros.Open sql, conexion

ccpsernac = 0
while not registros.EOF
ccpsernac = ccpsernac + 1
registros.MoveNext
Wend

Set registros = Server.CreateObject ("ADODB.RecordSet")
sql = "SELECT * FROM InforGestion WHERE Origen = 'CCP Sucursal' AND Fecha_inicio between #" &FechaGenerica(fechaini)& "# and #" &fechafin& "# "

registros.Open sql, conexion

ccpsucursal = 0
while not registros.EOF
ccpsucursal = ccpsucursal + 1
registros.MoveNext
Wend

Set registros = Server.CreateObject ("ADODB.RecordSet")
sql = "SELECT * FROM InforGestion WHERE Origen = 'Subtel' AND Fecha_inicio between #" &FechaGenerica(fechaini)& "# and #" &fechafin& "# "

registros.Open sql, conexion

subtel = 0
while not registros.EOF
subtel = subtel + 1
registros.MoveNext
Wend

Set registros = Server.CreateObject ("ADODB.RecordSet")
sql = "SELECT * FROM InforGestion WHERE Origen = 'Sernac' AND Fecha_inicio between #" &FechaGenerica(fechaini)& "# and #" &fechafin& "# "

registros.Open sql, conexion

sernac = 0
while not registros.EOF
sernac = sernac + 1
registros.MoveNext
Wend

Set registros = Server.CreateObject ("ADODB.RecordSet")
sql = "SELECT * FROM InforGestion WHERE Origen = 'Back Office Persona' AND Fecha_inicio between #" &FechaGenerica(fechaini)& "# and #" &fechafin& "# "

registros.Open sql, conexion

bop = 0
while not registros.EOF
bop = bop + 1
registros.MoveNext
Wend

Set registros = Server.CreateObject ("ADODB.RecordSet")
sql = "SELECT * FROM InforGestion WHERE Origen = 'Back Office Empresas' AND Fecha_inicio between #" &FechaGenerica(fechaini)& "# and #" &fechafin& "# "

registros.Open sql, conexion

boe = 0
while not registros.EOF
boe = boe + 1
registros.MoveNext
Wend

Set registros = Server.CreateObject ("ADODB.RecordSet")
sql = "SELECT * FROM InforGestion WHERE Origen = 'Unidad de Retención' AND Fecha_inicio between #" &FechaGenerica(fechaini)& "# and #" &fechafin& "# "

registros.Open sql, conexion

uretencion = 0
while not registros.EOF
uretencion = uretencion + 1
registros.MoveNext
Wend

Set registros = Server.CreateObject ("ADODB.RecordSet")
sql = "SELECT * FROM InforGestion WHERE Origen = 'CTC' AND Fecha_inicio between #" &FechaGenerica(fechaini)& "# and #" &fechafin& "# "

registros.Open sql, conexion

ctc = 0
while not registros.EOF
ctc = ctc + 1
registros.MoveNext
Wend

Set registros = Server.CreateObject ("ADODB.RecordSet")
sql = "SELECT * FROM InforGestion WHERE Origen = 'Pymes' AND Fecha_inicio between #" &FechaGenerica(fechaini)& "# and #" &fechafin& "# "

registros.Open sql, conexion

pymes = 0
while not registros.EOF
pymes = pymes + 1
registros.MoveNext
Wend

registros.Close

'wend
total = ccp+ccpsubtel+ccpsernac+ccpsucursal+subtelsernac+b op+boe+uretencion+ctc+pymes
subtelsernac= subtel+sernac
%>


<%
mes = month (date())

Select case (mes)
case 1:
mes= "Enero"
case 2:
mes= "Febrero"
case 3:
mes= "Marzo"
case 4:
mes= "Abril"
case 5:
mes= "Mayo"
case 6:
mes= "Junio"
case 7:
mes= "Julio"
case 8:
mes= "Agosto"
case 9:
mes= "Septiembre"
case 10:
mes= "Octubre"
case 11:
mes= "Noviembre"
case 12:
mes= "Diciembre"

End Select
'Set registros = Server.CreateObject ("ADODB.RecordSet")
sql = "DELETE * FROM Meses where mes Like '%" & mes & "%'"
conexion.Execute sql
'registros.Close

'Set registros = Server.CreateObject ("ADODB.RecordSet")
sql = " INSERT INTO Meses (mes, ccp, ccpsubtel, ccpsernac, ccpsucursal, subtelsernac, bop, boe, uretencion, ctc, pymes, total) VALUES ( '"&mes&"','"&ccp&"', '"&ccpsubtel&"', '"&ccpsernac&"', '"&ccpsucursal&"', '"&subtelsernac&"', '"&bop&"', '"&boe&"', '"&uretencion&"', '"&ctc&"', '"&pymes&"', '"&total&"');"
conexion.Execute sql
'registros.Close

%>