Terminó el tiempo de espera

[u_goldman]

je je je, espero que no sean muchos...

[LluviaRamirez]

jaja, creo que algunos pero ni hablar, lo hare y ya te dire que paso!
Gracias por tu ayuda

[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?

[u_goldman]

No utilices el metodo addnew, en lugar de eso ejecuta la sentencia

Código:

Connect.Execute("INSERT INTO TABLA(campo1,campo2,campoN) VALUES(valor1,valor2,valorN)")

Salu2,

[LluviaRamirez]

a pues estaria bien ya que asi no tengo que hacer un select * from Facturas, ya que por eso se dilata tanto...

Mil gracias, como que veo de nuevo la luz, hare los cambios necesarios y luego te comento que paso :)

[orharo2003]

Este arroz ya se cocio.

Tema cerrado jejeje.