20/04/2002, 18:16
|
| | | Fecha de Ingreso: marzo-2002
Mensajes: 37
Antigüedad: 23 años, 1 mes Puntos: 0 | |
| Re: como hacer variables dobles
muchas gracias. este es el codigo que funciona:
<%
' DATOS DEL MENSAJE
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\elrincondelloco\db\lamarujad elcervantes_foro.mdb"))
sSQL = "SELECT * FROM Mensajes"
Set oRS = oConn.Execute(sSQL)
Dim asunto(1000)
i = 0
Do While NOT oRS.EOF
i = i + 1
Response.Write(i)
Response.Write("<br>")
asunto(i) = oRS("asunto").Value
oRS.Movenext
Loop
Do While NOT i = 0
i = i - 1
Response.Write(asunto(i))
Response.Write("<br>")
Loop
oConn.Close
Set oRS = Nothing
Set oConn = Nothing
%>
le he asignado el valor 1000 - no creo que la tabla llegue a alcanzar los 1000 registros |