20/04/2002, 17:44
|
| | | Fecha de Ingreso: marzo-2002
Mensajes: 37
Antigüedad: 23 años, 1 mes Puntos: 0 | |
| Re: como hacer variables dobles
inserto este codigo:
<%
' 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 asunto FROM Mensajes"
Set oRS = oConn.Execute(sSQL)
Dim asunto()
Dim i
i = 0
Do While NOT oRS.EOF
asunto(i) = oRS("asunto").Value
i = i + 1
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
%>
y me sale en el mensaje de error:
Microsoft VBScript runtime error '800a0009'
Subscript out of range
line 17
la linea 17 es esta:
asunto(i) = oRS("asunto").Value |