questo codice che vi mostro ora, va benissimo. Vi segnalo in rosso la variabile anno che sta all'interno dell'sql che filtra diversi record.
Utilizzo lo stesso identico codice, ma metto la varibile mese e mi si pianta completamente.
la variabile mese assume questo valore "07/" e l'ascio l'sql cosi' com'è cambiando solo il nome della variabile.
NON CAPISCO PERCHE' NON DEBBA FUNZIONARE.
mi dice
"Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record."
ma di record ce nè a iosa!
<%
While (NOT rsO.EOF)
%>
<%
Dim rsU
Dim rsU_numRows
Set rsU = Server.CreateObject("ADODB.Recordset")
rsU.ActiveConnection = MM_parcoauto_STRING
rsU.Source = "SELECT * FROM TblUtente WHERE IDUtente="&rsO("IDUTENTE")&" and DATAFATTURA Like '%/"&anno &"%'"
rsU.CursorType = 0
rsU.CursorLocation = 2
rsU.LockType = 1
rsU.Open()
rsU_numRows = 0
%>
<%appo = rsU("Signor")%>
<%if appo = vecchia then%>
<%else%>
<font face="Verdana" size="2"><%=(rsU.Fields.Item("Signor").Value)%></font>
<%end if%>
<%
vecchia = rsU("Signor")
rsU.Close()
Set rsU = Nothing
conta = conta+1
rsO.MoveNext()
if rsA("Prezzo") = rsA("Prezzo_Vendita_Desid") then
prezzo = rsA("Prezzo")
else
prezzo = rsA("Prezzo")/1.20
end if
valcont = rsA("valore_contabile")
prezzotot = prezzotot + prezzo
valconttot = valconttot + valcont
perc=((prezzotot-valconttot)/valconttot)*100
Wend
%>
Rispondi quotando
