Ovviare al problema di Timeout di Aruba

[iz7auh]

Ciao a tutti,
vorrei risolvere il problema del Timeout del Server di Aryba, ho messo su, con l'auto di un Utente di questo

In pratica ho dati che vengono estratti da un TXT ed inseriti con una query in un database, ho notato che riesce ad inserire non più di 100 record alla volta, mentre il TXT ne copntiene ben 14000 quindi sarebbe interessante suddividere il file in più letture

primi 100.... dal 101 al 200.... 201 al 300 ... etc etc

COme posso fare?
Avete idee ed esempi da propormi?


Saluti
Frank

 <%
	Option Explicit
%>



<%

Function myDate(sDate)

Dim myGG, myMMM, myAAAA, myMM
myGG = Mid(sDate, 1, 2)
myMMM = Mid(sDate, 4, 3)
myAAAA = Mid(sDate, 8, 4)

myMMM = UCase(myMMM)

SELECT CASE myMMM
   Case "JAN"
      myMM = "01"
   Case "FEB"
      myMM = "02"
   Case "MAR"
      myMM = "03"
   Case "APR"
      myMM = "04"
   Case "MAY"
      myMM = "05"
   Case "JUN"
      myMM = "06"
   Case "JUL"
      myMM = "07"
   Case "AUG"
      myMM = "08"
   Case "SEP"
      myMM = "09"
   Case "OCT"
      myMM = "10"
   Case "NOV"
      myMM = "11"
   Case "DEC"
      myMM = "12"
 		
		  Case Else
    		  myMM = "00"
End Select


myDate = myGG & "/" & myMM & "/" & myAAAA

End Function


Dim fsoMyFile
Dim tsTextStream, ConnLOG, RSlog
Dim sTesto, MioArray, singoloRecord, recArray, iRk

Set fsoMyFile = CreateObject("Scripting.FileSystemObject")
Set tsTextStream = fsoMyFile.OpenTextFile(Server.MapPath("/public/LOG/iz7auh.txt"), 1)

do while not tsTextStream.AtEndOfStream
sTesto = tsTextStream.Readline

MioArray = Split (sTesto, vbTab, -1, 1) 

IF UBOUND(MioArray)<1 THEN 
EXIT DO
Else
End If
Dim QSO_DATE, TIME_ON, CALLS, PFX, MODES, BAND, RST_R, RST_S, CFM, CFM_TYPE, QSL_S, QSL_TYPE, QSL_VIA, DATA_QSL_SENT

QSO_DATE = MioArray(0) 
TIME_ON = MioArray(1)
CALLS = MioArray(2)
PFX = MioArray(3)
MODES = MioArray(4)
BAND = MioArray(5) 
RST_R = MioArray(6)
RST_S = MioArray(7)
CFM = MioArray(8)
CFM_TYPE = MioArray(9) 
QSL_S = MioArray(10)
QSL_TYPE = MioArray(11)
QSL_VIA = MioArray(12)
DATA_QSL_SENT = MioArray(13)

Set ConnLOG = Server.CreateObject("ADODB.Connection")

				ConnLOG.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\inetpub\webs\iz7auhcom\mdb-database\iz7auh-log.mdb"

				SQL = " INSERT INTO [QSO-TAB]  ([QSO_DATE], [TIME_ON], [CALLS], [PFX], [MODES], [BAND], [RST_R], [RST_S], [CFM], [CFM_TYPE], [QSL_S], [QSL_TYPE], [QSL_VIA], [DATA_QSL_SENT] ) VALUES ('"& myDate(QSO_DATE) &"', '"& TIME_ON &"', '"& CALLS &"', '"& PFX &"', '"& MODES &"', '"& BAND &"', '"& RST_R &"', '"& RST_S &"', '"& CFM &"', '"& CFM_TYPE &"', '"& QSL_S &"', '"& QSL_TYPE &"', '"& QSL_VIA &"', '"& DATA_QSL_SENT &"' )"
				Response.Write SQL "
"
				Set RSlog = ConnLOG.Execute(SQL)

Loop


tsTextStream.Close
%>

[tanzem]

Ma da errore di timeout ?

[iz7auh]

si certo...
da errore....
non c'è la fa ad elaborare tutti i dati e mi inserisce solo i primi 90/100 record ne restano 13900

[Roby_72]

Apri solo 100 volte la connessione senza mai chiuderla.... VVoVe:
Le DIM e la connessione (apertura e chiusura) devono essere messe fuori dal LOOP.

Roby

[iz7auh]

CIao Roby,
quindi tu dici che devo spostare questo fuori dal loop?

Set ConnLOG = Server.CreateObject("ADODB.Connection")

ConnLOG.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\inetpub\webs\iz7auhcom\mdb-database\iz7auh-log.mdb"

[Roby_72]

Minimo....
Ed anche le DIM
La connessione e il dimensionamento delle variabili va fatto all'inizio dello script, quindi una sola volta per pagina.
Come hai fatto tu il ridimensionamento avviene ad ogni ciclo...

Roby

[iz7auh]

Ok Roby,
adesso ho spostato tutte le dim all'inizio, compresa la connessione al DB....
ora provo... speriamo che risolvo

[Roby_72]

Aumenta comunque anche il timeout dello script.

Roby

[iz7auh]

ma su aruba è impostato di default a 300 se non erro, non credo che impostandolo io riesco a forzarlo...


Roby cmq non mi ricordo il comando.... mi ricordi pse

[iz7auh]

pare vada adesso ora provo a lanciarlo su 7000 righi (records) vediamo come si comporta....

altra cosa siccome io faccio un Response Write SQL per vedere cosa combina la query, il response mi viene tutto attaccato, vorrei averne uno per rigo come devo fare per farlo andare a capo?