Messaggio del tipo "Please wait..."

[[trodat]]

Bentrovati

Ho una pagina asp che elabora una certa mole di dati e impiega qualche minuto per restituire l'avvenuta elaborazione.

Avevo pensato d'inserire un preload con msg di avviso o una progressbar nella pagina che processa i dati in questione, ma non riesco a trovare nulla in asp, avete suggerimenti????

Grazie

[maximum]

Ho avuto un tipo di problema molto simile al tuo, prova a vedere se questa discussione ti può essere d'aiuto: http://forum.html.it/forum/showthrea...highlight=step

[[trodat]]

Onestamente non ho ben capito il metodo che hai utilizzato... :master:
Hai qualche riga di codice da farmi vedere?

[[trodat]]

up

[maximum]

Originariamente inviato da [trodat]
Hai qualche riga di codice da farmi vedere?

Eccoti l'esempio relativo al mio ultimo post di quella discussione:

<%
if request.QueryString("op") <> "fine" then

	'Eseguo la mia query
	strSQL = "SELECT <CAMPI> FROM <TABELLA>" 
	
	Set objrs = Server.CreateObject("ADODB.Recordset")
	objrs.Open strSQL, objConn

	if not objrs.eof then
	   'Per visualizzare il messaggio a video
  	   response.write("

Invio comunicazioni in corso...


")

	   Do While Not objrs.EOF
		'FA QUELLO CHE DEVI FARE				 
						
		objrs.MoveNext
	   Loop 

	   'PULIZIA DEGLI OGGETTI ADO
	   objrs.Close
	   Set objrs = Nothing
					
	end if
%>
        <meta http-equiv="refresh" content="1;URL=pagina.asp?op=fine">
<%
	objConn.Close
	Set objConn = Nothing
else
   response.Write("<div align='center' class='linkpiccoli'>

Elaborazione competata con successo!!!

")
end if
%>

[[trodat]]

Ti ringrazio Maximum, ma non riesco ad inserirlo in questo codice, va in errore, puoi aiutarmi?:

function SaveFiles
    Dim Upload, fileName, fileSize, ks, i, fileKey

    Set Upload = New FreeASPUpload
    Upload.Save(uploadsDirVar)
    
	If Err.Number<>0 then Exit function
	
    SaveFiles = ""
    ks = Upload.UploadedFiles.keys
       
    if (UBound(ks) <> -1) then
        
        SaveFiles = ""
        for each fileKey in Upload.UploadedFiles.keys

            SaveFiles = (SaveFiles & Upload.UploadedFiles(fileKey).FileName) 
            SaveFiless = Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & " Bytes) "

set fso = server.createObject("scripting.fileSystemObject")
              if fso.fileExists(file) then
                set file = fso.openTextFile(file)
                i = 1
                while not file.atEndOfStream
                 if i > 1 then
                 tempLine = file.readLine
                 'tempLine = replace(tempLine,"'","`")
                 tempLine = replace(tempLine,"""","")
                 if not left(tempLine,6) = "Nome" then 
                 elTempLine = split(tempLine,",")
                 tempDate = eltempLine(3)
                 
                 if not isDate(tempDate) then tempDate = "01/12/2004"
                 
' Query di controllo esistenza record           
sql = "SELECT ......"
Set objRs = Server.CreateObject("ADODB.Recordset") 
objRs.Open sql, objconn, 3, 3 
if not objRs.bof and not objRs.eof then 
response.write "record già esistente
"
objRs.close
set objRs = nothing 

else

'Query di registrazione valori

                 strSQL = "INSERT INTO ....."
                 objconn.execute strSQL
                 end if
                 end if
                 end if
                i = i + 1
                wend
                              
                set file = nothing
             set fso = nothing
             end if
             
             objconn.close
             set objconn = nothing 
         
       
 next
        

Response.write("Registrazione eseguita correttamente.")
        
     else
        SaveFiles = "KO."
    

end if
end function

[[trodat]]

up

[maximum]

Prova così:

<%
function SaveFiles
    Dim Upload, fileName, fileSize, ks, i, fileKey

    Set Upload = New FreeASPUpload
    Upload.Save(uploadsDirVar)
    
    If Err.Number<>0 then Exit function
	
    SaveFiles = ""
    ks = Upload.UploadedFiles.keys
       
    if (UBound(ks) <> -1) then
        
        SaveFiles = ""
        for each fileKey in Upload.UploadedFiles.keys

            SaveFiles = (SaveFiles & Upload.UploadedFiles(fileKey).FileName) 
            SaveFiless = Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & " Bytes) "

set fso = server.createObject("scripting.fileSystemObject")
              if fso.fileExists(file) then
                set file = fso.openTextFile(file)
                i = 1
		
		if request.QueryString("op") <> "fine" then
                
                while not file.atEndOfStream
                 if i > 1 then
	                 tempLine = file.readLine
	                 'tempLine = replace(tempLine,"'","`")
	                 tempLine = replace(tempLine,"""","")
	                 if not left(tempLine,6) = "Nome" then 
	                 elTempLine = split(tempLine,",")
	                 tempDate = eltempLine(3)
	                 
	                 if not isDate(tempDate) then tempDate = "01/12/2004"
	                 
				' Query di controllo esistenza record           
				sql = "SELECT ......"
				Set objRs = Server.CreateObject("ADODB.Recordset") 
				objRs.Open sql, objconn, 3, 3 
				if not objRs.bof and not objRs.eof then 
					response.write "record già esistente
"
					objRs.close
					set objRs = nothing 
				
				else
					'Query di registrazione valori
	
			                 strSQL = "INSERT INTO ....."
			                 objconn.execute strSQL
		                 end if
	                 end if
                 end if
                i = i + 1
                wend
%>
 		<meta http-equiv="refresh" content="1;URL=pagina.asp?op=fine">
<%                
		else
		   response.Write("<div align='center' class='linkpiccoli'>

Elaborazione competata con successo!!!

")
		end if                              
	        set file = nothing
	        set fso = nothing
    end if
             
    objconn.close
    set objconn = nothing 
 next
        

Response.write("Registrazione eseguita correttamente.")
        
     else
        SaveFiles = "KO."
end if

end function
%>

[[trodat]]

Grazie, ma nulla da fare... rimane sulla pagina del form e non dà nessun avviso...

[maximum]

Ma la function di sopra si trova nella pagina del form o è un'altra pagina?