Pagamento con carta di credito

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra

Protected Sub Invia(sender As Object, e As EventArgs)
        Dim adesso As DateTime = DateTime.Now
        Dim adesso_stringa As String
        Dim store_id As String
        Dim importo_hash As String
        Dim shared_secret As String
        Dim hash_hex As String
        Dim hash_sha1 As String
        ...
        importo.visible = False
        conferma_importo.Text = conferma_importo.text & importo.text & ".<br><br>Vuoi proseguire? "
        conferma_importo.Visible = True
        check.Visible = False
        send.Visible = True
    End Sub