1 messaggio dal 26 settembre 2005
www.magisitalia.org
Buongiorno a tutti. Sono un assoluto novizio di ASP perchè ho finora usato php con mysql e comunque sono un hobbista e non un professionista.
Devo imparare Asp perchè mi sono ingenuamente preso la "rogna" di gestire un sito (già scritto da "professionisti") della Onlus dei Gesuiti Missionari, il tutto gratis, ovviamente!
Il problema che non riesco a risolvere è quello delle donazioni online, che non funzionano nè in locale, nè sul server Aruba, mentre funziona l'iscrizione alle news; sul locale mi da il seguente errore:

Oggetto Server, ASP 0177 (0x800401F3)
Stringa dell'interfaccia non valida.
/comeaiutarci_donaonline_buy.asp, line 42

Il listato del file è:

<!--#include file="include/datautils.asp"-->
<!--#include file="include/dataxmlfunctions.asp"-->
<%
if request("azienda_privato") = "azienda" then
nominativo = request("azienda") & vbcrlf
nominativo = nominativo & request("piva") & vbcrlf
nominativo = nominativo & request("nome") & " " & request("cognome") & vbcrlf
nominativo = nominativo & request("funzione") & vbcrlf
else
nominativo = request("nome") & " " & request("cognome") & vbcrlf
end if
nominativo = nominativo & request("via") & vbcrlf
nominativo = nominativo & request("cap") & " " & request("citta") & " (" & request("prov") & ")" & vbcrlf
nominativo = nominativo & "tel: " & request("tel") & vbcrlf
nominativo = nominativo & "fax: " & request("fax") & vbcrlf
nominativo = nominativo & "email: " & request("email") & vbcrlf

totale = request("totale")
totaleSql = FormatEuroForSQL(FormatEuro(totale))
descrizione = "Donazione di ¤" & FormatEuro(totale)
modalita = request("modalita")
note = request("note")

szSql = StartInsert("tblOrdini")
szSql = AddInsert(szSql, "tipoordine", "1")
szSql = AddInsert(szSql, "acquirente", PrepareSqlString(nominativo))
if request("email") <> "" then
szSql = AddInsert(szSql, "email", PrepareSqlString(request("email")))
end if
szSql = AddInsert(szSql, "descrizione", PrepareSqlString(descrizione))
szSql = AddInsert(szSql, "tipopagamento", modalita)
szSql = AddInsert(szSql, "importo", totaleSql)
szSql = AddInsert(szSql, "stato", 0)
szSql = AddInsert(szSql, "note", PrepareSqlString(note))
szSql = EndInsert(szSql)
set cn = openDbConnection
cn.execute szSql
identity = GetIdentity(cn)
transactionID = "xxx" & (zzzz + identity)


lin 42set objCrypt = Server.Createobject("GestPayCrypt.GestPayCrypt")
if Err.number <> 0 then
Response.Write Err.number & Err.description
end if
myshoplogin = "000000000"
mycurrency = 7777
myamount = totaleSql
myshoptransactionID = transactionID

objCrypt.SetShopLogin(myshoplogin)
objCrypt.SetCurrency(mycurrency)
objCrypt.SetAmount(myamount)
objCrypt.SetShopTransactionID(myshoptransactionID)

call objCrypt.Encrypt

if objCrypt.GetErrorCode = 0 then
b = objCrypt.GetEncryptedString
a = objCrypt.GetShopLogin
else
response.write("<br>error: " & objCrypt.GetErrorCode & "<br>")
end if

response.redirect "https://ecomm.sella.it/gestpay/......"
%>

C'è qualche anima pia che può darmi una mano?

Grazie

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.