Error de Microsoft VBScript en tiempo de ejecución error '800a0009'

[ostayde]

Error de Microsoft VBScript en tiempo de ejecución error '800a0009'

El subíndice está fuera del intervalo: '[number: 1]'

/sicorp/gener_solcom.asp, línea 37
´
parte del código:

<%
Dim Conex87,strSQL87,msn,mens,Fpeee,Fpooo

rango1=Request.form("Frango1")
rango2=Request.form("Frango2")

msn=split(rango1,"/")
Fpeee=msn(1)+"/"+msn(0)+"/"+msn(2) 'esta es la linea 37
mens=split(rango2,"/")
Fpooo=mens(1)+"/"+mens(0)+"/"+mens(2)

'Conexión a base de datos
Set Conex87 = Server.CreateObject("ADODB.Connection")

Conex87.Open strcon
strSQL87 = "SELECT * FROM solcom where Fecha between #"&Fpeee&"# and #"&Fpooo&"#"
Set objRS36= Conex87.Execute(strSQL87)


%>

[mamon]

cuando te sale ese error quiere decir q estas llamando al indice de un array que no existe... osea la variable rango1 no tiene ni dos "/" si no me equivoco solo hay un "/"

vas a tener q validar cuantos hay.. para valir que hay dos "/" haces esto:

<%
'debajo de la linea que usas el split
if Ubound(msn)-1 < 2 then 'quiere decir que hay menos de dos "/"
%>