Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    'Visa.SaveRequest = False 'Valor padrão para não gerar XML de requisição
    'Visa.ServerPath="C:\Visa\" 
    'Já como Visa.SaveRequest = False, então não é usado.
    'Se Visa.SaveRequest = True, você deverá configurar o visa.ServerPath com o caminho.

    'Onde será gerado os XML de requisição conforme a loja exemplo
    'Visa.ServerComponents = "http://www.impactro.com.br/visa/" 'Valor padrão, que informa o servidor e caminho (URL)
    'que é onde estão hospedados os programas CGI do visanet

    'Estas variáveis só precisam ser configuradas uma unica vez, ou seja elas podem ser redefinidas no global.asax
    'A IMPACTRO cobra uma taxa ANUAL para hospedar o arquivo .INI e a chave da loja ".keydata"
    'Nesta forma de hospedagem não é nescessário a geração dos XML de transação

End Sub

Protected Sub btnPage_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPage.Click

    'OPÇÃO: 1 (padrão)
    'Chamada Padrão que gera o TID internamente e já solicita a autorização
    'Dim cOut As String = Visa.Pay(txtMerchantID.Text, txtAfiliadoID.Text, txtForma.Text, _
    txtPedidoID.Text, txtValorTotal.Text, txtHist.Text, txtValorExibicao.Text)

    'OPÇÃO: 2 
    'Chamada Especial onde primeiro é Gerado o TID para a captura e obtenção de informações e cancelamento 
    Dim cTID As String = Visa.GeraTID(txtAfiliadoID.Text, txtForma.Text)

    'Com o TID gerado você deve sava-lo no banco em banco de dados junto com o pedido do cliente 
    Session("TID") = cTID

    'Esta chamada passa como parametro o TID gerado anteriormente para fazer a chamada da transação de autorização 
    Dim cOut As String = Visa.Pay(txtMerchantID.Text, cTID, _
    txtPedidoID.Text, txtValorTotal.Text, txtHist.Text, txtValorExibicao.Text)

    'O Componente irá retornar um código HTML que possui um javascript e algumas chaves de autenticação nos servidores do visanet
    'Devemos apenas imprimir esse conteudo no response atual 
    Context.Response.Clear()
    Context.Response.ContentType = "text/html"
    Context.Response.Write(cOut)

End Sub