Non Va

codice:
<%

Session.LCID = 1040
Sql ="select  archivio_ordini_articoli.Id_prodotto , archivio_ordini_articoli.nome_prodotto ,archivio_ordini_articoli.prezzo_euro, archivio_ordini_articoli.prezzo_gros,archivio_ordini_articoli.quantita from archivio_ordini_articoli where archivio_ordini_articoli.Id_ordine = " & id
set MyRs = MyConnx.execute(Sql)

 if request.Cookies("fantasiland")("user") = "vero" then
 oki="vero"
 end if
while not myrs.eof
idpg=myrs("id_prodotto")
archivio_ordini_articoli where id_ordine= "&idpg &"and  id_ordine="&id
if oki="vero" then
 gros=myrs("prezzo_gros")
 else
 gros=myrs("prezzo_euro")
 end if

%>
Quantita:<%=myrs("quantita")%>ID:<%=myrs("id_prodotto")%><font color="#FF0000">--></font><%=myrs("nome_prodotto")%><font color="#FF0000">----</font>Prezzo<font color="#FF0000">--></font>Euro&nbsp<%=formatnumber(gros,2)%> br>
il codice in grassetto :

100 =100,00
1000 =1.000,00
0,55= 55,00