41 messaggi dal 20 giugno 2001

Ho verificato nell'Auto test del gestpay è l'errore risulta essere OTP non valida, sebbene abbia fatto tutta la procedura per prelevarle e attivarle e usi la seguente routine per prelevarle dal rispettivo file:

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

Const CodEs = "GESPAY03360"
Const RicName = "d:/inetpub/ecc.../richieste.txt"
Const RisName = "d:/inetpub/ecc.../risposte.txt"
Const T_ID = "30"


Function PrelevaOTP()
Dim Strings(50)
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(50)
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>

-------------
Dove pensi che possa essere l'errore?
Grazie infinite per l'aiuto



come firma?

come firma?

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.