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



codice:
 <%
	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
%>