Personalizzare la pagina d'errore 500 di IIS (Parte III)

Pagina 3 di 5

Vediamo ora il codice necessario per ottenere questa tabellache, una volta scritto, salveremo con nomeerr_500.asp:

<%

La stessa pagina può contenere errori quali, peresempio, quelli di sintassi quindi inseriremo un controllodegli errori in modo che, se ve ne fossero, prosegual'esecuzione del codice ASP saltando la riga errata

On Error Resume Next

Definiamo quindi l'oggetto objError in modo dapoter agevolmente utilizzare le proprietà del metodogetLastError() dell'oggetto Server.

set objError = Server.getLastError()

Ora assegnamo a variabili i valori restituiti dalle varieproprietà riportate anche nella tabellaprecedentemente analizzata.

strNumber = objError.AspCodestrSource = objError.CategorystrPage = objError.File

La descrizione dell'errore utilizzeràcontemporaneamente sia la proprietàDescription, sia ASPDescription perchè,solo pochissime volte, sono presenti entrambi.

strDesc = objError.Description & " " & ObjError.ASPDescriptionstrCode = Server.HTMLEncode(objError.Source)strLine = ObjError.Line

Liberiamo quindi le risorse occupate, seppur minime maè consigliabile liberarle quanto prima onde evitareche, a lungo andare, venga congestionato il server.

set objError = nothing

Inseriamo quindi una function che restituisca, nel caso incui il parametro Set_Testo sia vuoto (stringa di testovuota), la scritta [Non rilevabile].

Function FN_CheckData(Set_Testo)If Trim(Set_Testo) = "" or isNull(Set_Testo) then Set_Testo = "[Non rilevabile]"Response.write Set_TestoEnd Function%>

Continua>>>