grazie per il consiglio ma niente da fare scusa ma ti volevo far vedere anche il dodice che mi identifica il campo quantità forse e questo da rivedere?
<%
Action=Request.QueryString("action")
Gruppo=Request.QueryString("gruppo")
Descrizione=UCASE(Request.QueryString("descrizione"))
Articolo=Request.QueryString("articolo")
DA=Replace(Request.ServerVariables("HTTP_REFERER"),"c'e' il link","")
DA=Replace(DA,Request.ServerVariables("SERVER_NAME"),"")
DA=Replace(DA,Request.ServerVariables("URL"),"")
DA=Replace(DA,"?","")
Session("Pagina")=DA
%>
<!--webbot BOT="GeneratedScript" PREVIEW=" " startspan -->
<script Language="JavaScript">
<!--
function Ordina_Form_Validator(theForm)
{
if (theForm.quantita.value == "")
{
alert("Inserire un valore per il campo "Quantità".");
theForm.quantita.focus();
return (false);
}
var checkOK = "0123456789";
var checkStr = theForm.quantita.value;
var allValid = true;
var decPoints = 0;
var allNum = "";
for (i = 0; i < checkStr.length; i++)
{
ch = checkStr.charAt(i);
for (j = 0; j < checkOK.length; j++)
if (ch == checkOK.charAt(j))
break;
if (j == checkOK.length)
{
allValid = false;
break;
}
allNum += ch;
}
if (!allValid)
{
alert("Inserire solo cifra numerica nel campo "Quantità".");
theForm.quantita.focus();
return (false);
}
var chkVal = allNum;
var prsVal = parseInt(allNum);
if (chkVal != "" && !(prsVal >= "1" && prsVal <= "999"))
{
alert("Inserire un valore maggiore o uguale a "1" e minore o uguale a "999" nel campo "Quantità".");
theForm.quantita.focus();
return (false);
}
return (true);
}
//-->
</script>
<!--webbot BOT="GeneratedScript" endspan -->
e poi volevo farti vedere dove avviene la querystring
<%
'Codice=Request.QueryString("gruppo")
If Request.QueryString("Pagina") = "" Then
PaginaCorrente = 1
Else
PaginaCorrente = cInt(Request.QueryString("Pagina"))
End If
RecordPagina=10
Set connA = Server.CreateObject("ADODB.Connection")
connA.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/WEB.mdb")
If Gruppo="novita" then
sqlA = "SELECT DISTINCT Articolo,Descrizione FROM News_Web ORDER By Articolo ASC"
Else
sqlA = "SELECT DISTINCT Articolo,Descrizione FROM Export_Web WHERE Mid(Articolo,1,2)='"&Gruppo&"' ORDER By Articolo ASC"
End If
Set rsUsA = Server.CreateObject("ADODB.Recordset")
rsUsA.Open sqlA, connA, 1, 1
If NOt rsUsA.EOf then
rsUsA.PageSize = RecordPagina
Pagine = rsUsA.PageCount
rsUsA.CacheSize = RecordPagina
TotArticoli = rsUsA.RecordCount
rsUsA.AbsolutePage = PaginaCorrente
Else
TotArticoli=0
Pagine = 0
RecordTotali = 0
End If
If PaginaCorrente > Pagine Then
PaginaCorrente = Pagine
End If
If PaginaCorrente < 1 Then
PaginaCorrente = 1
End If
RecordShow = 0
If NOt rsUsA.EOf then
%>