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)


%>