I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
fusionman
fusionman
il 18 gennaio 2002 alle 17:47
134 messaggi dal 20 marzo 2001
Ho utilizzato lo script per la connessione a banca sella.
Va tutto bene tranne quando passa i parametri al server sicuro.
L'ho configurato bene però mi hanno detto che per i test il TDI è 1 di default (e gia questo non viene detto sul sito).
Ho settato il codice esercente ed il path del server per prelevare le OTP...al momento della transazione mi esce sempre l'errore di invio dati. Qualcuno sa niente?
P.S. Potrebbe essere aruba che non supporta FileSystemObject visto che lo script usa questa funzione???

RispondiQuoting
fusionman
fusionman
il 18 gennaio 2002 alle 17:53
134 messaggi dal 20 marzo 2001
Ops volevo dire il T_ID

Il TDI è il diesel :P

RispondiQuoting
Lino Mari
Lino Mari
il 18 gennaio 2002 alle 19:09
223 messaggi dal 06 settembre 2002
Contributi
www.ebow.it
per poterti aiutare... bisogna vedere il codice... che utilizzi...

ciao

--
Lino Mari [MOD it.economia.e-commerce]
http://www.viadeimercanti.com - Il nuovo portale e software per il commercio elettronico
http://www.dev2dev.it - La rete ha connesso nuove particelle - D2D004
--
Lino Mari
http://www.ebow.it - e-business on web!
RispondiQuoting
fusionman
fusionman
il 18 gennaio 2002 alle 20:38
134 messaggi dal 20 marzo 2001
Beh, hai perfettamente ragione...provvedo subito:

<SCRIPT language="vbscript" runat="server">

Const CodEs = miocodice
Const RicName = "d:/inetpub/webs/aligiancom/public/richieste.asp"
Const RisName = "d:/inetpub/webs/aligiancom/public/risposte.asp"
Const T_ID = 1


Function PrelevaOTP()
Dim Strings(1000)
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(RicName, 1, FALSE)
i = 0
Do While Not a.AtEndOfStream
Strings(i) = a.ReadLine
i = i+1
Loop

PrelevaOTP = Strings(0)
a.Close

Set a = fs.CreateTextFile(RicName, True)
For n = 1 To i-1
a.WriteLine( Strings(n))
Next
a.Close

Set fs = Nothing
End function


Sub RimuoviOTP( OTP)
Dim Strings(1000)
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(RisName, 1, FALSE)
i = 0
Do While Not a.AtEndOfStream
aLine = a.ReadLine
If aLine <> OTP Then
Strings(i) = aLine
i = i+1
End If
Loop

a.Close

Set a = fs.CreateTextFile(RisName, True)
For n = 0 To i-1
a.WriteLine( Strings(n))
Next
a.Close

Set fs = Nothing
End Sub

</script>

questo è il file invio.asp per inviare la richiesta di pagamento. Da notare che ho settato la variabile itotale a 2000 giusto come prova (poi sarà prelevata dal db ovviamente).
<!--#include file="OTP.asp"-->
<html>
<body>
<%
OTP = PrelevaOTP()
RifAcq = "003"
iTOTALE = "2000"
%>
<p> </p>
<p><a href="prodotti_inferiore.asp" target="_self">Torna ai prodotti</a></p>
<p>  </p>
<center>
<form action="https://ecomm.sella.it/pagam.asp">
<input type="hidden" name="a" value=<%=CodEs%>>
<input type="hidden" name="b" value=<%=(iTOTALE*T_ID)%>>
<input type="hidden" name="c" value=<%=OTP%>>
<input type="hidden" name="d" value=<%=RifAcq%>>
<input type="submit" value="Conferma pagamento">
</form></center>
</body>
</html>

questo invece è il file per la ricezione dal server della banca:

<!--#include file="OTP.asp"-->
<html><body>
<p>Ed ecco un esempio di pagina di risposta positiva: CodAut <%=Request.QueryString("a")%><br>
NumOrdine <%=Request.QueryString("b")%><br>
OTP <%=Request.QueryString("c")%><br>
RimuoviOTP(OTP) </p>
<p> </p>
<p><a href="prodotti_inferiore.asp">Torna ai prodotti</a></p>
</body>
</html>

RispondiQuoting
fusionman
fusionman
il 18 gennaio 2002 alle 22:58
134 messaggi dal 20 marzo 2001
porc...l'errore stava qua:
Const CodEs = miocodice (senza virgolette)
che doveva essere così:
Const CodEs = "miocodice"

comunque mi porta sulla pagina e mi dice che non ho accesso alla transazione perchè i dati che arrivano alla banca non sono corretti, però sono sicuro che dipende tutto dal T_ID che mo ho impostato ad 1.

Grazie lostesso per l'aiuto.



RispondiQuoting
Lino Mari
Lino Mari
il 19 gennaio 2002 alle 01:06
223 messaggi dal 06 settembre 2002
Contributi
www.ebow.it
la cosa migliore e' chiamare bsella e farsi dire quali dati sono mancanti o errati... se non hai accesso all'AutoTest...

ciao

--
Lino Mari [MOD it.economia.e-commerce]
http://www.viadeimercanti.com - Il nuovo portale e software per il commercio elettronico
http://www.dev2dev.it - La rete ha connesso nuove particelle - D2D004
--
Lino Mari
http://www.ebow.it - e-business on web!
RispondiQuoting
mrvega
mrvega
il 30 marzo 2002 alle 16:42
13 messaggi dal 06 settembre 2002
Ti sarei estremamente riconoscente se mi dicessi come hai settato il path per prelevare le OTp, mi sembra di aver capito che il tuo sito si trova su Aruba...in che cartella le hai messe? come hai scritto il richiamo?

Ti prego Aiutooo!

Grazie ciao

RispondiQuoting
BrightSoul
BrightSoul
il 30 marzo 2002 alle 19:57
11.886 messaggi dal 09 febbraio 2002
Contributi
Non ho analizzato bene il tuo codice, però se sei su aruba e scrivi questa linea:

Set a = fs.CreateTextFile(RisName, True)


devi stare attento che stai creando il file nella cartella /public, che è l'unica ad avere i permessi per la scrittura di file di testo.

FileSystemObject è supportato... come tutti gli altri oggetti asp


-----------------------
Da una perla dal saggio:
Quando non hai capito, devi dire "non ho capito", no che dici che hai capito e invece non hai capito un cavolo. Hai capito?
-----------------------
Enjoy learning and just keep making
RispondiQuoting

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.