Ho la seguente pagina:
Mi succede che alle volte che invocando tale pagina, la pagina chiamante risulti lentissima.codice:<% Server.ScriptTimeout = 360 Dim oConn, mCommandSP Dim codSocieta, annoMeseRif, residuo, rettifiche, messaggio, errore Response.write("<HTML>") Response.write("<HEAD>") Response.write("<META NAME=""GENERATOR"" Content=""Microsoft Visual Studio 6.0"">") Response.write("<TITLE>Caricamento Dati da SIAL in corso...</TITLE>") Response.write("</HEAD>") Response.write("<link rel=""stylesheet"" href=""/tktStyle.css"" type=""text/css"">") Response.write("<BODY>") Response.write(" ") Response.write("<table border=""0"" cellpadding=""1"" cellspacing=""1"" align=""center"" width=""400"">") Response.write(" <tr>") Response.write(" <td align=""center"">[img][/img]</td>") Response.write(" </tr>") Response.write("</table>") 'Recupero i parametri codSocieta = Session("codSocieta") annoMeseRif = Trim(replace(Request.form("periodoRif"),"/","")) residuo = Trim(Request.form("residuo")) rettifiche = Trim(Request.form("rettifiche")) set oConn = Server.CreateObject ("ADODB.CONNECTION") oConn.Open Session("sqlTRConn") 'Invoco la chiamata alla funzione di caricamento dati da SIAL Set mCommandSP = Server.CreateObject("ADODB.Command") Set mCommandSP.ActiveConnection = oConn mCommandSP.CommandText = "{? = CALL TKT_GESTIONE_TICKET.tkt_carica_ticket_ras(?,?,?,?,?,?) }" mCommandSP.CommandType = adCmdText mCommandSP.Parameters.Append mCommandSP.CreateParameter("Retval", adInteger, adParamReturnValue) mCommandSP.Parameters.Append mCommandSP.CreateParameter("I_Soc_Codice",adChar,adParamInput,1,codSocieta) mCommandSP.Parameters.Append mCommandSP.CreateParameter("I_AnnoMese_Rif",adChar,adParamInput,6,annoMeseRif) mCommandSP.Parameters.Append mCommandSP.CreateParameter("I_CalcolaResiduo",adChar,adParamInput,1,residuo) mCommandSP.Parameters.Append mCommandSP.CreateParameter("I_SovrascriviRettifiche",adChar,adParamInput,1,rettifiche) mCommandSP.Parameters.Append mCommandSP.CreateParameter("I_Operatore",adChar,adParamInput,16,Session("Username")) mCommandSP.Parameters.Append mCommandSP.CreateParameter("O_MESSAGGIO",adVarChar,adParamOutput,4000) mCommandSP.Execute 'Reindirizzamento messaggio = Cstr(mCommandSP.Parameters("O_MESSAGGIO").Value) errore = Cint(mCommandSP.Parameters("Retval").Value) Set mCommandSP = Nothing oConn.Close Set oConn = nothing Response.write("<meta http-equiv=""refresh"" content=""8;URL=/Interfaccia/ListaOrdini.asp?messaggio=" & Server.URLEncode(messaggio) & """>") Response.write("</BODY>") Response.write("</HTML>") %>
Volevo sapere se per caso la chiamata alla stored procedure avviene prima di tutto il codice presente in questa pagina, oppure no.
E se il problema di tale lentezza, che mi ha obbligato ad aumentare il tempo di timeout, è legato a questa possibilità.
S'è così, c'è un modo per ovviare?
Grazie!
Rispondi quotando
