codice:
IF (INSTR(strPaginaApp,"spagina")>0) THEN 

strPaginaApp=REPLACE(strPaginaApp,MID(strPaginaApp,1,INSTR(strPaginaApp,"spagina")),"",,1) 
strPaginaApp=REPLACE(strPaginaApp,MID(strPaginaApp,1,INSTR(strPaginaApp,"pagina=")),"",,1) 
Cont = INSTR(strPaginaApp,">")+1 
Cont1 = INSTR(strPaginaApp,"</a>") 
PaginaUpApp = MID(strPaginaApp,Cont,Cont1 - Cont).Trim() 
PaginaUpApp = Convert.ToString(PaginaUpApp) 
PaginaUpApp = Convert.ToInt32(PaginaUpApp) 
PaginaUp = PaginaUpApp 

END IF