Salve a tutti,
Chiedo il vostro aiuto per capire se le programmazioni possono avere incompatibilità con alcuni browser, in questo caso Internet Explorer 6.0.
Se effettuo le operazioni con altri browser Firefox, Opera, Ie 8, Crome, tutto funziona alla perfezione... solo con la vers. 6.0 di expl. il primo passaggio delle operazioni scrive dati non veritieri.
Vi posto il codice incriminato, magari potete aiutarmi a capire se sbaglio io o se è una limitazione del browser.
Ho anche seguito passo passo tramite i response.write e il response.write delle varie SQL per capire effettivamente cosa facesse, a primo avviso sembra tutto ok, ma quando, dopo ever effettuato l'operazione mi rendo conto che nel db scrive importo non veritiero.
Codice PHP:
<%
'dati recuperati dal form'
wimporto=request.form("importo") '1
wtipo_listino=request.form("tipo_listino") '1
wcredito_residuo=request.form("credito_residuo") '170 all inizio hanno lo stesso valore
wcredito_residuo_virtuale=request.form("credito_residuo_virtuale") '170 all inizio hanno lo stesso valore
if wgestore= 1 then
strgestore="Tim"
end if
if wtipo_listino = "1" then 'listino prezzo pieno'
if wimporto = 1 then
strimporto="5"
strimporto_scontato="5,00"
strimporto_scontato2=5.00
strimporto_pulito=5.00
end if
end if
RESPONSE.WRITE (strimporto) & ("
") & (strimporto_scontato) & ("
") & (strimporto_scontato2) & ("
") & (strimporto_scontato2)
'fin qui tutto ok, i dati passati corrispondono
'funzione per replace stringa in valore di valuta
wcredito_residuo_virtuale=CCur(wcredito_residuo_virtuale)
wcredito_residuo=CCur(wcredito_residuo)
strimporto_scontato2=CCur(strimporto_scontato2)
strimporto_pulito = Replace(Replace(strimporto_pulito, ".", ""), ",", ".")
w1= wcredito_residuo
w2= strimporto_scontato2
w3= wcredito_residuo_virtuale
'response.write (w1) & ("
") & (w2) & ("
") & (w3) & ("
")
if w3 < w2 then
response.write "<script>alert('Credito virtuale insufficiente per effettuare la ricarica!')</script>"
response.write "<script>location.href = '../richiesta_credito.asp?p=1'</script>"
else
'scarico il credito virtuale all utente
w5=request.form("credito_residuo_virtuale")
w5=CCur(w5)
w6=strimporto_scontato
w6=CCur(w6)
wnuovo_credito=w5-w6
wnuovo_credito=CCur(wnuovo_credito)
'il nuovo credito virtuale deve eddere 165 ma nel db scrive 10
response.write ("Credito residuo virtuale:") & (w5) & ("
") & ("Importo ricarica:") & (w6) & ("
") & ("Nuovo credito:") & (wnuovo_credito) & ("
")
'fin qui tutto ok, i dati passati corrispondono
SQL2 = "UPDATE USERSRICARICHE SET USE_CREDITO_VIRTUALE = '" & wnuovo_credito & "' WHERE USE_ID = " & wid_cliente & " "
'response.write sql2
'response.end
on error resume next
Set rs2 = conn.Execute(SQL2)
SQL1= "INSERT INTO RICARICHE " & _
"(id_cliente,cliente,TIPO_RICARICA,DATES_ORA,DATES,OPERATORE,IMPORTO,IMPORTO_SCONTATO,IMPORTO_SCONTATO_TOTALE,PREFISSO,NUMERO,STATO_RICARICA,EMAIL) values " & _
"(" & wid_cliente & ",'" & wsocieta & "', '" & wtipo_ricarica & "','"& wdatamax &"','"& wsolodatamax &"','" & strgestore & "','" & strimporto & "','" & strimporto_SCONTATO & "','" & strimporto_pulito & "','" & wprefisso & "','"& wnumero &"'," & wstato_ricarica & ",'" & wemail & "')"
set rs1=conn.execute(SQL1)
'response.write "sql: " & sql1 & "
"
'qui scrive tutti i dati correttamente
'rs1.Close()
set rs1=nothing
conn.close
Set conn = NOTHING
Set rsCredito = Nothing
%>
Qualche consiglio?
Ripeto solo da una postazione che ha Internet Explorer 6.0 non funziona!
Adesso o è il PC o il browser
Rispondi quotando
