a
llora la cosa funzia ma ho questo problema non riesco ad capire dove o come sistemare il WEND che mi richiede dandomi quest'errore:
Errore di compilazione di Microsoft VBScript (0x800A0400)
Prevista istruzione
intervallo_agenti.asp, line 176
WEND
codice:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open dsn
SQL = "SELECT nome_coll, sum(montante)as somma, sum(guadagno_coll)as guadagno from clienti where (data_inserimento between #" & inizio_giorno & "/" & inizio_mese & "/" & inizio_anno & "# and #" & fine_giorno & "/" & fine_mese & "/" & fine_anno & "#) AND login ='" & agente & "' group by nome_coll"
rs.open sql,conn
WHILE NOT RS.EOF
if IsNull(rs("guadagno")) = false then
risultato = cDbl(rs("guadagno")) + cDbl(Session("euro_lanciano")) / 100 * 1
%>
Nome agente: <%=rs("nome_coll")%
<% Response.Write ( inizio_mese ) %>/<% Response.Write ( inizio_giorno ) %>/<% Response.Write ( inizio_anno ) %>[/b]al[b]<% Response.Write ( fine_mese ) %>/<% Response.Write ( fine_giorno ) %>/<% Response.Write ( fine_anno ) %
Totale montante:<%=rs("somma")%
Totale rispetto a provvigione: <%=rs("guadagno")%
compresa la percentuale sommata: <%Response.Write( risultato )%
<%
RS.MoveNext
WEND
rs.close
Set rs = nothing
conn.close
Set conn = nothing
%>
:master: