Gracias
Shiryu_Libra por la idea ya quedo el problema lo logre arreglar
que buena opcion es esa del GetRows
les dejo el codigo como quedo para cualquier problema a lo mejor a alguien le puede servir
Dim tabla
response.Buffer = true
fecha=request.QueryString("fecha")
Set rs_vista = conE1.execute( "SELECT * FROM avantel_vallejo_invent_Alan WHERE fecha_upload='"&fecha&"'" )
tabla = rs_vista.GetRows
rs_vista.close
Set rs_vista = Nothing
if isArray(tabla) then
sql_borrar = "DELETE FROM rtodo"
conE1.execute(sql_borrar)
for I = 0 to UBound(tabla,2)
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('"&tabla(0,I)&"','"&tabla(1,I)&"','"&tabla (2,I)&"','"&tabla(3,I)&"','"&tabla(6,I)&"','"&tabl a(7,I)&"','"&tabla(11,I)&"','"&tabla(12,I)&"','"&t abla(13,I)&"','"&tabla(14,I)&"','"&tabla(10,I)&"', '"&tabla(9,I)&"','"&tabla(8,I)&"','"&tabla(15,I)&" ')"
'response.Write(sql_ins&"<br>")
conE1.execute(sql_ins)
Next
Gracias a todos
ATT: Corucopower jejeje
