Terminó el tiempo de espera

[LluviaRamirez]

Oye perdon por el abuso, pero si ahorita intento vaciar la info del txt a la tabla Facturas, tambien me dice que el tiempo de espera se termino, por que sera? si ayer funcionaba bien el error solo era al guardar la clave?!!!

Option Explicit
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Response.Expires = 0
Server.ScriptTimeout = 9000
%>
<!--#include file="../Connections/ConFactura.asp" -->
<%
Dim Connect
Dim rsCDR
Dim sqlCDR
Private fso, f, lnFile, fp
Dim FechaActual

FechaActual = Date 'fecha del sistema

Set Connect = Server.CreateObject("ADODB.Connection")
Set rsCDR = Server.CreateObject("ADODB.RecordSet")
rsCDR.CursorType = adOpenKeyset
rsCDR.LockType = adLockOptimistic

sqlCDR = "Select * From Factura"
rsCDR.Open sqlCDR, MM_ConFactura_STRING

'primero indicamos el path virtual donde se localiza el archivo
'fp = Server.MapPath("CINEMARK 07-08-05.txt")
dim nombreFile, ruta
nombreFile = TRIM (request.QueryString("vardepaso"))
ruta = "C:\Inetpub\wwwroot\Cinemark\"&nombreFile
fp = ruta
'response.Write(fp)
Set fso = CreateObject("Scripting.FileSystemObject")
'Pongo la direccion de donde esta el archivo que se va a leer
Set f = fso.OpenTextFile(fp)
Dim arrayMSG
' Este ciclo ira leyendo las lineas del archivo de texto
While f.AtEndOfStream = false
lnFile = f.ReadLine
'Separo el mensaje en un arreglo
arrayMSG = Split(lnFile, ",")
'Separo el numero del cine del resto de la infomacion
Dim cine
cine = TRIM(arrayMSG(3))
cine = replace(cine,"CIMK","")

'Limpio los datos de comillas simple
Dim var
var = TRIM(arrayMSG(6))
var = replace(var,"'","")

'Guardo los datos en la tabla MsgCDR
rsCDR.AddNew
rsCDR.Fields("IdFactura").value = arrayMSG(0)
rsCDR.Fields("Fecha").value = arrayMSG(1)
rsCDR.Fields("FechaF").value = arrayMSG(2)
rsCDR.Fields("Cine").value = cine ' arrayMSG(3)
rsCDR.Fields("NombreCine").value = arrayMSG(4)
rsCDR.Fields("Articulo").value = arrayMSG(5)
rsCDR.Fields("Descripcion").value = var ' guardo descripcion sin comillas
rsCDR.Fields("CantOrden").value = arrayMSG(7)
rsCDR.Fields("Unidades").value = arrayMSG(8)
rsCDR.Fields("IvaPorc").value = arrayMSG(9)
rsCDR.Fields("PrecioU").Value = arrayMSG(10)
rsCDR.Fields("Cantidad").Value = arrayMSG(11)
rsCDR.Fields("IvaTotal").Value = arrayMSG(12)
rsCDR.Fields("Total").Value = arrayMSG(13)
rsCDR.Fields("FechaAlta").Value = date
rsCDR.Fields("Bandera").Value = 0
rsCDR.UpDate
rsCDR.MoveLast
Wend
'Response.Redirect("cleanMsg.asp")
Response.Write("datos guardados")


Alguna sugerencia o ya no hago nada hasta cambiar mi tabla?