funzione media prezzi

[forte78]

ho creato un calcolo matematico x la media di 2 prezzi vi mostro il codice




<%
Sub ShowPrezzo(ByVal sCtrlName,ByVal sValue)
Dim n
If sValue="" Or IsNull(sValue) Then sValue = 0

%><select name="<%=sCtrlName%>" class="normales" style="width:50" onchange="VerificaPrezzo()"><%
For n=0 To 5 Step 1
%><option value="<%=n%>" <%If cStr(n)=cStr(sValue) Then%>SELECTED<%End If%>><%=n%></option><%
Next
%></select><%
End Sub
%>












<script>


var nTotalPrice = null;
function VerificaPrezzo()
{
var oDaprezzo = document.all("daprezzo");
var oAprezzo = document.all("aprezzo");
var oTotali = document.all("prezzo");

if (oDaprezzo!=null && oAprezzo!=null oTotali!=null) {

var nDaprezzo = parseInt(oDaprezzo.value);
var nAprezzo = parseInt(oAprezzo.value);
var nTotali = parseInt(oTotali.value);

if (nTotalPrice==null)
nTotalPrice = nTotali;

if ((nDaprezzo + nAprezzo / 2 < nTotalPrice)) {
if (confirm("ATTENZIONE!!! Stai modificando il prezzo vuoi continuare?")) {
oTotali.value = (nDaprezzo + nAprezzo ) / 2;
nTotalPrice = (nDaprezzo + nAprezzo ) / 2;
}
} else {
oTotali.value = (nDaprezzo + nAprezzo ) / 2;
}
}
}

</script>







<%ShowPrezzo "daprezzo", GetValue("daprezzo",Rec("daprezzo"))%>
<%ShowPrezzo "aprezzo", GetValue("aprezzo",Rec("aprezzo"))%>


<input type="text" name="prezzo" class="normales" readonly value="<%=GetValue("prezzo",Rec("prezzo"))%>" style="text-align:right;width:40">



mi da questoerrore


ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/ddd325/riservatoaddcod.asp, line 1273



vi ringrazio anticipatamente.

[optime]

controlla i nomi dei campi

[forte78]

ok era stato un errore mio ora è sulla pagina giusta sto ora sistemando la sub

<%
Sub ShowPrezzo(ByVal sCtrlName,ByVal sValue)
Dim n
If sValue="" Or IsNull(sValue) Then sValue = 0

%>
<input type="text" name="<%=sCtrlName%>" class="normales" style="width:50" onchange="VerificaPrezzo()"><%
For n=0 To 5 Step 1
%><%
End Sub


%>


mi da questo

Microsoft VBScript compilation error '800a0400'

Expected statement

/ddd325/riservatoaddr1.asp, line 33

End Sub
^


fatemi sapere

[optime]

il ciclo che si apre con FOR si deve chiudere con NEXT

[forte78]

ora quel tipo di errore non c'è + ora c'è un errore nel js

infatti se inserisco un valore in daprezzo e uno in aprezzo sul campo prezzo non rileva la media

puoi vedere dove sto sbagliando
grazie.

[optime]

che errore? dove? a quale riga? in quali condizioni? piove?

[forte78]

la pagina me la mostra se io vado sotto sulla barra di stato mi mostra errori nella visualizzazione di questa pagina se ci clicco

Dettagli errore pagina Web

Agente utente: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.0; Trident/4.0; SLCC1; .NET CLR 2.0.50727; Media Center PC 5.0; InfoPath.1; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
Timestamp: Fri, 9 Oct 2009 13:53:31 UTC


Messaggio: Previsto ')'
Linea: 266
Carattere: 42
Codice: 0
URI: http://localhost/demo01/riservatoaddr1.asp?cod=3029

è qua all'interno



<script>


var nTotalPrice = null;
function VerificaPrezzo()
{
var oDaprezzo = document.all("daprezzo");
var oAprezzo = document.all("aprezzo");
var oTotali = document.all("prezzo");

if (oDaprezzo!=null && oAprezzo!=null oTotali!=null) {

var nDaprezzo = parseInt(oDaprezzo.value);
var nAprezzo = parseInt(oAprezzo.value);
var nTotali = parseInt(oTotali.value);

if (nTotalPrice==null)
nTotalPrice = nTotali;

if ((nDaprezzo + nAprezzo / 2 < nTotalPrice)) {
if (confirm("ATTENZIONE!!! Stai modificando il prezzo vuoi continuare?")) {
oTotali.value = (nDaprezzo + nAprezzo ) / 2;
nTotalPrice = (nDaprezzo + nAprezzo ) / 2;
}
} else {
oTotali.value = (nDaprezzo + nAprezzo ) / 2;
}
}
}

</script>


fammi sapere