Const CodEs = "GESPAY05031"

' questa costante rappresenta il codice identificativo del cliente (nel caso stiate facendo delle prove ve ne verrà fornito uno come nell'esempio qui riportato altrimenti sarà uno di tipo solo numerico)

Const RicName = "d:\inetpub\webs\miodominio\public\11513__2002_9_58_39.ric"
Const RisName = "d:\inetpub\webs\miodominio\public\11513__2002_9_58_51.ris"

' queste costanti sono i percorsi assoluti dei file ric e ris (n.b. la cartella dove risiedono deve avere permessi di lettura e scrittura)

Const T_ID = "1"

' questa costante rappresenta la transaction id (uno stesso merchant può sottoscrivere più contratti quindi avere transazioni di diversa natura ed utilizzo. Anche questo numero vi viene comunicato da Banca Sella all'atto della sottoscrizione del servizio)

Function PrelevaOTP()
Dim Strings(5000)

'questo numero deve essere sempre uguale o superiore al numero di OTP contenute nel fil ric

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

' qui termina la funzione che preleva la singola OTP dal file ric

Sub RimuoviOTP( OTP)
Dim Strings(5000)
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

' qui termina la funzione che elimina la OTP utilizzata nella transazione

</script>