traduzione scritp (corto) da Js a VBs

[Webio]

Qualcuno è in grado di riscrivere in VBscript questo piccolo codice?


var pag = parseInt(Request.QueryString("id"));
if (isNaN(pag) || pag < 1) pag = 1;
if (!Mostra.EOF) {
Mostra.PageSize = 10;
Mostra.AbsolutePage = pag;
}
var i = 0;



Ciao grazie
Fabio

[cavicchiandrea]

Originariamente inviato da Webio
Qualcuno è in grado di riscrivere in VBscript questo piccolo codice?


var pag = parseInt(Request.QueryString("id"));
if (isNaN(pag) || pag < 1) pag = 1;
if (!Mostra.EOF) {
Mostra.PageSize = 10;
Mostra.AbsolutePage = pag;
}
var i = 0;



Ciao grazie
Fabio

<%
pag = Request.QueryString("id")
if isNumeric(pag) or pag < 1 pag = 1 then 
elseif not Mostra.Eof then
Mostra.PageSize = 10
Mostra.AbsolutePage = pag
end if
i = 0
%>

Non sono sicuro delle "traduzione" perché hai postato poco codice, comunque prova cosi.
PS la tua richiesta la dovei postare sul forum asp e non scripting.