Error

[redkram]

posiste?

<%server.ScriptTimeout =9000000%>

o en vez de hacer 5000 de golpe haz 1000 y cuando acabe:

response.redirect "mismapagina.asp?var=1000"

server.ScriptTimeout =9000000
variable=request.querystring("var")
if variable<>"" then
variable=Cint(variable)+1000
else
variable=1
end if
response.Buffer = true
fecha=request.QueryString("fecha")
Set rs_vista = conE1.execute( "SELECT * FROM avantel_vallejo_invent_Alan WHERE fecha_upload='"&fecha&"'" )
if Not rs_vista.Eof then
sql_borrar = "DELETE FROM rtodo"
conE1.execute(sql_borrar)
y=variable+1000
for x=variable to y Step1
response.Flush()
Set rs_ins = Server.CreateObject("ADODB.Command")
sql_ins = "INSERT INTO rtodo(Num_Emp,Ext,Res_Ext,CC,Usuario,Depto,Fecha,H ora,Minutos,Monto,Destino,Tipo,Telefono,fecha_uplo ad) "&_
"VALUES('"&rs_vista("Num_Emp")&"','"&rs_vista( "Ext ")&"','"&rs_vista("Res_Ext")&"','"&rs_vista("C C")& "','"&rs_vista("Usuario")&"','"&rs_vista("Dept o")& "','"&rs_vista("Fecha")&"','"&rs_vista("Hora") &"', '"&rs_vista("Minutos")&"','"&rs_vista("Monto")& "', '"&rs_vista("Destino")&"','"&rs_vista("Tipo")&" ',' "&rs_vista("Telefono")&"','"&rs_vista("fecha_u ploa d")&"')"
'response.Write(sql_ins&"<br>")
rs_ins.ActiveConnection = conE1
rs_ins.Commandtext = sql_ins
rs_ins.execute
Set rs_ins = Nothing
rs_vista.MoveNext()
next
response.redirect "mismapagina.asp?var="&y+1

si hay algun error lo siento no tengo tiempo a revisarlo, pero el concepto es lo que cuenta. Spero haberte ayudado.

Salu2 RK