Problema con rangos, cargando excel en asp

[Shiryu_Libra]

si esto es, entonces deberia ser asi mejor, no crees?

rango=0
do while rango < cant_registros
Mostrar (rango, parcial)
rango=rango+parcial
loop

y dentro de la funcion

Sub Mostrar(inicio, fin)

Response.Write("<br> RANGO: " & fin & "<br>")
'Inicializamos un nuevo recordset y una nueva conexion a la BD con los parametros calculados en la funcion Calcular
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" &"Data Source="& Path &";" & "Extended Properties=""Excel 8.0;"""
Dim strSql
Dim range
'En donde recojeremos los datos del excel con el rango especificado en la función
strSql = "SELECT * FROM [ARTICULOS$A"& inicio &":E"& fin &"] order by codigo"

Response.Write strSql &"</br>"
Set rsXls = Server.CreateObject("ADODB.Recordset")
rsXls.Open strSql, conn
response.write("<table border=1 align=center> ")
rsXls.Movefirst
Do While Not rsXls.EOF
i=i+1
Response.Write "<tr>" & vbCrLf
Response.write "<td>" & rsXls(0) & "</td>"
Response.Write "<td>" & rsXls(1) & "</td>"
Response.Write "<td>" & i & "</td>"
Response.Write "</tr>" & vbCrLf
rsXls.MoveNext
Loop
Response.Write "</table>"
Response.Flush()
conn.close
set conn= Nothing

set rsXls = Nothing
End sub