He realizado las modificaciones
Código PHP:
<% Sub muestraArray(datos)
For i = 0 To UBound(datos)
response.write datos(i)+"<br>"
Next
End Sub
equipo=request.form("equipo")
Dim equipos(), I
I = 0
For Each Valor In Request.Form("equipo")
Redim Preserve equipos(I)
equipos(I) = Valor
I = I + 1
Next
muestraArray(equipos)
%>
pero me da el siguiente error
Cita:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'UBound'
/ventanaflotante/drag/Untitled-1.asp, line 32