luigicannavaro
12-15-2008, 01:56 AM
Dear all,
Could someone please tell me WHY this script does an error message:
Subscript out of range or Type mismatch: 'join'
<%
rs.open "select keyword from keywords where id = 2 ", conn
'set rs = Conn.Execute(SQL)
miTabla = rs.GetRows
'Liberamos los objetos ya!!
rs.Close
set rs = nothing
Conn.Close
set Conn = nothing
Response.Write("<TABLE>")
'Recorremos el vector
'Desde el primero hasta el último "registro"...
for i = 0 to UBound(miTabla,2)
'Abrimos una nueva fila
Response.Write("<TR>")
'Desde el primero hasta el último "campo"...
for J = 0 to Ubound(miTabla, 1)
'Imprimo una celda para cada campo
Response.Write("<TD>" & miTabla(J, I) & "</TD>")
next
Response.Write("</TR>")
next
Response.Write("</TABLE>")
strAdresses = Join(miTabla, " ")
response.write str Addresses%>
<%
rs.Close
conn.Close
%>
Best regards
Luigi
Could someone please tell me WHY this script does an error message:
Subscript out of range or Type mismatch: 'join'
<%
rs.open "select keyword from keywords where id = 2 ", conn
'set rs = Conn.Execute(SQL)
miTabla = rs.GetRows
'Liberamos los objetos ya!!
rs.Close
set rs = nothing
Conn.Close
set Conn = nothing
Response.Write("<TABLE>")
'Recorremos el vector
'Desde el primero hasta el último "registro"...
for i = 0 to UBound(miTabla,2)
'Abrimos una nueva fila
Response.Write("<TR>")
'Desde el primero hasta el último "campo"...
for J = 0 to Ubound(miTabla, 1)
'Imprimo una celda para cada campo
Response.Write("<TD>" & miTabla(J, I) & "</TD>")
next
Response.Write("</TR>")
next
Response.Write("</TABLE>")
strAdresses = Join(miTabla, " ")
response.write str Addresses%>
<%
rs.Close
conn.Close
%>
Best regards
Luigi