spacekadet ha scritto:

Qualcuno mi sa dire che errore sto facendo? Sto controllando e ricontrollando ma non capisco. Mi spiego:
ho fatto la pagina che deve richiamare bancasella e ho risolto tutta una serie di problemini che avevo causato, alla fine di tutto adesso mida un errore (1114 Importo con numero di decimali errato) nonostante abbia inserito la stringa di replace. Ci sono degli errori? qualcuno li vede?
Se riuscite a darmi una mano, per favore datemela!
spacek

Scusate ho dimenticato di inserire il codice:

<%
if Session("CLIENTE") = "" then
Session("SRC_LOGIN")="ordina.asp"
Response.Redirect("login.htm")
else
Dim conn, RS, query, id_carrello, url, tot
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "HB"
set RS=Server.CreateObject("ADODB.Recordset")
query = "SELECT id_ordine from ordine where stato='carrello' and email='" & Session("CLIENTE") & "'"
RS.Open query,conn,1,1,0
id_carrello=RS("id_ordine")
RS.Close
query = "update ordine set stato='da evadere',data='" & date & "' where id_ordine=" & id_carrello
Conn.Execute(query)
query = "insert into ordine (email,stato) values ('" & Session("CLIENTE") & "','carrello')"
Conn.Execute(query)
if Request.Form("modalita") = "carta" then
Dim myshoplogin,mycurrency,myamount,myshoptransactionID,a_param,b_param
query = "SELECT quantita,prezzo from prodotto,ordine_prodotto where ordine_prodotto.id_prodotto=prodotto.id_prodotto and id_ordine=" & id_carrello
RS.Open query,conn,1,1,0
tot=0
Do While Not RS.EOF
tot = tot + rs("quantita")*rs("prezzo")
RS.MoveNext
Loop
RS.Close
Replace cstr(tot),",","."
'Sintassi Oggetto COM
set objCrypt =Server.Createobject("GestPayCrypt.GestPayCrypt")
if Err.number <> 0 then
Response.Write Err.number & Err.description
end if
myshoplogin="900XXXX"
mycurrency=242
myamount=tot
myshoptransactionID=id_carrello
objCrypt.SetShopLogin(myshoplogin)
objCrypt.SetCurrency(mycurrency)
objCrypt.SetAmount(myamount)
objCrypt.SetShopTransactionID(myshoptransactionID)
objCrypt.SetBuyerName(mybuyername)
objCrypt.SetBuyerEmail(mybuyeremail)
objCrypt.SetCustomInfo(mycustominfo)
call objCrypt.Encrypt
if objCrypt.GetErrorCode = 0 then
b_param = objCrypt.GetEncryptedString
a_param = objCrypt.GetShopLogin
Response.Write(b_param)
Response.Write(a_param)
else
Response.Write(objCrypt.GetErrorCode)
end if
url = "https://ecomm.sella.it/gestpay/pagam.asp?a=" & a_param & "&b=" & b_param
'Response.Redirect(url)
else
Response.Redirect("stato.asp")
end if
conn.Close
set conn=nothing
end if
%>