Incredibile, l'errore è tornato senza che cambiassi nulla...
Sto impazzendo su questa cosa che apparentemente sembra la piu semplice del mondo!
Il campo nel mysql è formato "float" nella pagina richiamo così il valore da calcolare:
codice HTML:
<%
valutasession = Session("moneta")
Dim SQLvaluta, RSvaluta, valutasession
If valutasession > 0 Then
set RSvaluta = Server.CreateObject("ADODB.Recordset")
SQLvaluta = " SELECT * FROM cambio WHERE ID = " & valutasession
Set RSvaluta = Conn.Execute(SQLvaluta)
cambioprezzo = CSng(Replace(RSvaluta("rate"), ".",","))
end if
%>
e questa è l'operazione...
codice HTML:
<%=VisualizzaPrezzo((CPrezzo)*cambioprezzo)%>
e questa la funzione VisualizzaPrezzo ma non credo posso centrare niente....
codice HTML:
Function VisualizzaPrezzo(VisualizzaPrezzo_StringaPrezzo)
VisualizzaPrezzo_StringaPrezzo = Int(VisualizzaPrezzo_StringaPrezzo)
Do While LEN(VisualizzaPrezzo_StringaPrezzo) < 3
VisualizzaPrezzo_StringaPrezzo = "0" & VisualizzaPrezzo_StringaPrezzo
Loop
Dim VisualizzaPrezzo_StringaDecimale, VisualizzaPrezzo_StringaIntero
VisualizzaPrezzo_StringaDecimale = Mid(VisualizzaPrezzo_StringaPrezzo, LEN(VisualizzaPrezzo_StringaPrezzo) - 1, 2)
VisualizzaPrezzo_StringaIntero = Mid(VisualizzaPrezzo_StringaPrezzo, 1, LEN(VisualizzaPrezzo_StringaPrezzo) - 2)
VisualizzaPrezzo = VisualizzaPrezzo_StringaIntero & "," & VisualizzaPrezzo_StringaDecimale
End Function