Pagina 1 di 2 1 2 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 15
  1. #1
    Utente di HTML.it L'avatar di nat99
    Registrato dal
    Dec 2001
    Messaggi
    763

    fso va in loop senza motivo...

    Salve raga!
    Ho realizzato uno script per la mia intranet. FunzionaVA tutto OK...

    A distanza di 10 giorni mi accorgo di una cosa strana : Tutte le volte che l'applicazione ASP va a lavorare con FSO la pagina va in loop... anche se deve leggere solo 2 righe di file di testo...

    xké?? mi aiutereste???

  2. #2
    antivirus...?

  3. #3
    Utente di HTML.it L'avatar di nat99
    Registrato dal
    Dec 2001
    Messaggi
    763
    avevo Norton Internet Security... ma l'ho rimosso...

  4. #4
    il problema e' in locale? prova un attimo a spegnere del tutto l'antivirus

  5. #5
    Utente di HTML.it L'avatar di nat99
    Registrato dal
    Dec 2001
    Messaggi
    763
    Originariamente inviato da optime
    il problema e' in locale? prova un attimo a spegnere del tutto l'antivirus

    si è in locale... ma NAV nn c'è... è disinstallato

  6. #6
    permessi? posta anche un po' di codice

  7. #7
    Utente di HTML.it L'avatar di nat99
    Registrato dal
    Dec 2001
    Messaggi
    763
    ti posto il codice in scrittura... ma anke in lettura si pianta...

    codice:
    <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
    <%
    strSQL = "SELECT * FROM Anagrafica WHERE DATA >= #" &datada &"# AND DATA <= #" &dataa &"# AND TIPO = '" &request("m2") &"'"
    set rs = Server.CreateObject("ADODB.Recordset")
    rs.ActiveConnection = conn_DB2
    rs.Source = strSQL
    rs.CursorType = 0
    rs.CursorLocation = 3
    rs.LockType = 3
    rs.Open() 
    if rs.Eof then response.redirect "../Info_Messaggi.asp?Cod_Err=06"
    
    while not rs.Eof
    codice = rs("CODICE")
    qta = rs("QTA")
    data = rs("DATA")
    
    for i = 1 to 16-len(codice)
    codice_app = codice_app &" "
    next
    codice = codice &codice_app
    codice_app = ""
    
    for i = 1 to 5-len(qta)
    qta_app = qta_app &"0"
    next
    qta = qta_app &qta
    qta_app = ""
    
    stringa = stringa &codice &qta &data &vbCrLf
    
    rs.MoveNext
    wend
    rs.Close
    set rs = nothing
    path_file = "../file/" &LCase(request("m2")) &".txt"
    
    Dim FileObject
    Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
    Set OutStream=FileObject.CreateTextFile(Server.MapPath(path_file),true,0)
    Outstream.WriteLine stringa
    OutStream.Close
    Set OutStream=Nothing
    Set FileObject=Nothing
    
    response.redirect "../Info_Messaggi.asp?Cod_Err=07"
    %>
    grazie per l'aiuto!

  8. #8
    sei sicuro che il 'colpevole' sia FSO? metti qualche response.write qua e la' per controllare la progressione del codice. poi controlla i permessi.

  9. #9
    Utente di HTML.it L'avatar di nat99
    Registrato dal
    Dec 2001
    Messaggi
    763
    Originariamente inviato da optime
    sei sicuro che il 'colpevole' sia FSO? metti qualche response.write qua e la' per controllare la progressione del codice. poi controlla i permessi.

    ho provato con un file di 2 righe da leggere e da sparare a video... ma niente...

  10. #10
    e 3. hai controllato i permessi?

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.