25/10/2004, 13:41
|
| | | Fecha de Ingreso: febrero-2004 Ubicación: D.F.
Mensajes: 201
Antigüedad: 21 años, 2 meses Puntos: 0 | |
| Aki esta el codigo.. con parte de las instrucciones que me proporcionaste!!!
<!--#Include File="ADOVBS.Inc" -->
<%
Set Conexion=Server.CreateObject("ADODB.Connection")
Conexion.Open "oportunidades_rmne","",""
Set Tabla1= Server.CreateObject("ADODB.RecordSet")
Filtro1 = "Select edadgeolog,count(*) as totaledad from OPORTUNIDADESMAR group by edadgeolog"
Tabla1.CursorType=1
Tabla1.Open filtro1,Conexion,Cnn,3,1
dim vecCiudades(Tabla1.recordcount) 'para empezar me marca un error aki (error:se esperaba una constante entera)
'recuerda que el tamaño la longitud del vector depende de los datos que arroje la bd.
cnt=0
If ((Tabla1.Eof = False) and (Tabla1.Bof=False)) Then
DO WHILE NOT Tabla1.Eof
vecCiudades(cnt)=Tabla1("totaledad")
Tabla1.MoveNext
LOOP
session(vNumCiudad)=vecCiudades
Response.write session(vNumCiudad)(0)
Else
Response.Write("<br><br>No se encontro ningun registro")
End If
Tabla1.Close
Conexion.Close
%> |