COMO ENVIAR INFORMA?ÕES DE UM FORM PARA UM SITE??

MLALEX 27/08/2014 19:07:02
#440732
Olá pessoal. Domino bem o VB6 e comecei a me aventurar no ASP.NET. A diferença entre as duas linguagens está criando conflitos no meu cérebo. Tô com uma dúvida que parece ser de criança de 02 anos, mas o fato é que não consigo resolver. Me ajudem pelo amor de Deus!!

Estou implementando o sistema de cobrança Itau Shopline em meu site. Tenho que enviar as informações preenchidas em um formulário e não sei onde colocar o seguinte código:

<FORM ACTION=[Ô]https://shopline.itau.com.br/shopline/shopline.asp[Ô] method=[Ô]post[Ô] name=[Ô]form1[Ô] onsubmit=carregabrw() target=[Ô]SHOPLINE[Ô]>
	<INPUT type=[Ô]hidden[Ô] name=[Ô]DC[Ô] value=[Ô]<%= dados %>[Ô]>
	<BR>
	<INPUT type=[Ô]submit[Ô] name=[Ô]Shopline[Ô] value=[Ô]Itaú Shopline[Ô]>
</form>

<script language=[Ô]JavaScript[Ô]>
<!--
function carregabrw()
{ 
window.open([ô][ô], [ô]SHOPLINE[ô], [ô]toolbar=yes,menubar=yes,resizable=yes,status=no,scrollbars=yes,width=675,height=485[ô]); 
}
//-->
</script>


Fiz o seguinte. No Webform.aspx coloquei os campos:


  <%@ Page Language=[Ô]vb[Ô] AutoEventWireup=[Ô]false[Ô] CodeBehind=[Ô]WebForm2.aspx.vb[Ô] Inherits=[Ô]WebApplication11.WebForm2[Ô] %>

<!DOCTYPE html>

<html xmlns=[Ô]http://www.w3.org/1999/xhtml[Ô]>
<head runat=[Ô]server[Ô]>
    <title></title>
</head>

<body>

    <div>
            <asp:Label ID=[Ô]Label1[Ô] runat=[Ô]server[Ô] Text=[Ô]Nº do Pedido:[Ô]></asp:Label>
        <br />
        <asp:TextBox ID=[Ô]TextBox1[Ô] runat=[Ô]server[Ô] MaxLength=[Ô]8[Ô]></asp:TextBox>
        <br />
        <br />
        <asp:Label ID=[Ô]Label2[Ô] runat=[Ô]server[Ô] Text=[Ô]Valor Total:[Ô]></asp:Label>
        <br />
        <asp:TextBox ID=[Ô]TextBox2[Ô] runat=[Ô]server[Ô]></asp:TextBox>
        <br />
        <br />
        <asp:Label ID=[Ô]Label3[Ô] runat=[Ô]server[Ô] Text=[Ô]Seu nome:[Ô]></asp:Label>
        <br />
        <asp:TextBox ID=[Ô]TextBox3[Ô] runat=[Ô]server[Ô]></asp:TextBox>
        <br />
        <br />
        <asp:RadioButtonList ID=[Ô]RadioButtonList1[Ô] runat=[Ô]server[Ô] RepeatDirection=[Ô]Horizontal[Ô] Width=[Ô]179px[Ô]>
            <asp:ListItem>CNPJ</asp:ListItem>
            <asp:ListItem>CPF</asp:ListItem>
        </asp:RadioButtonList>
        <br />
        <asp:Label ID=[Ô]Label4[Ô] runat=[Ô]server[Ô] Text=[Ô]Número de Inscrição (CPF ou CNPJ):[Ô]></asp:Label>
        <br />
        <asp:TextBox ID=[Ô]TextBox4[Ô] runat=[Ô]server[Ô] Width=[Ô]164px[Ô]></asp:TextBox>
        <br />
        <br />
        <asp:Label ID=[Ô]Label5[Ô] runat=[Ô]server[Ô] Text=[Ô]Endereço:[Ô]></asp:Label>
        <br />
        <asp:TextBox ID=[Ô]TextBox5[Ô] runat=[Ô]server[Ô]></asp:TextBox>
        <br />
        <br />
        <asp:Label ID=[Ô]Label6[Ô] runat=[Ô]server[Ô] Text=[Ô]Bairro:[Ô]></asp:Label>
        <br />
        <asp:TextBox ID=[Ô]TextBox6[Ô] runat=[Ô]server[Ô]></asp:TextBox>
        <br />
        <br />
        <asp:Label ID=[Ô]Label7[Ô] runat=[Ô]server[Ô] Text=[Ô]CEP:[Ô]></asp:Label>
        <br />
        <asp:TextBox ID=[Ô]TextBox7[Ô] runat=[Ô]server[Ô]></asp:TextBox>
        <br />
        <br />
        <asp:Label ID=[Ô]Label8[Ô] runat=[Ô]server[Ô] Text=[Ô]Cidade:[Ô]></asp:Label>
        <br />
        <asp:TextBox ID=[Ô]TextBox8[Ô] runat=[Ô]server[Ô]></asp:TextBox>
        <br />
        <br />
        <asp:Label ID=[Ô]Label9[Ô] runat=[Ô]server[Ô] Text=[Ô]Estado:[Ô]></asp:Label>
        <br />
        <asp:TextBox ID=[Ô]TextBox9[Ô] runat=[Ô]server[Ô] MaxLength=[Ô]2[Ô] Width=[Ô]30px[Ô]></asp:TextBox>
        <br />
        <br />
        <asp:Button ID=[Ô]Button1[Ô] runat=[Ô]server[Ô] Text=[Ô]Confirmar[Ô] Width=[Ô]121px[Ô] />
    
    </div>
        <asp:Label ID=[Ô]Label10[Ô] runat=[Ô]server[Ô] BorderColor=[Ô]White[Ô] BorderStyle=[Ô]None[Ô] ForeColor=[Ô]#996633[Ô] Width=[Ô]591px[Ô]></asp:Label>



E dentro do Webform.aspx.vb coloquei o seguinte código no Button1_click:
  [ô]Dim cripto As String
        [ô]Dim CodEmp As String
        [ô]Dim Pedido As String
        [ô]Dim Valor As String
        [ô]Dim Chave As String
        Dim NomeSacado As String
        Dim CodigoInscricao As String
        Dim NumeroInscricao As String
        Dim EnderecoSacado As String
        Dim BairroSacado As String
        Dim CepSacado As String
        Dim CidadeSacado As String
        Dim EstadoSacado As String
        Dim DataVencimento As String
        Dim UrlRetorna As String
        Dim Observacao
        Dim ObsAdicional1 As String
        Dim ObsAdicional2 As String
        Dim ObsAdicional3 As String

        Dim CodEmp, chave, pedido, valor, cripto

        If TextBox1.Text = [Ô][Ô] Then
            Label10.Text = [Ô]O campo [ô]Pedido[ô] é obrigatório[Ô]
            Exit Sub
        End If


        If IsNumeric(TextBox1.Text) = False Then
            Label10.Text = [Ô]Usar apenas números no [ô]Pedido[ô][Ô]
            Exit Sub
        End If

        If TextBox2.Text = [Ô][Ô] Then
            Label10.Text = [Ô]Preecha o VALOR do pedido[Ô]
            TextBox2.Focus()
            Exit Sub
        End If

        If InStr(TextBox2.Text, [Ô],[Ô], CompareMethod.Binary) = 0 Then
            TextBox2.Text = FormatCurrency(TextBox2.Text)
            TextBox2.Text = Replace(TextBox2.Text, [Ô]R$[Ô], [Ô][Ô])
        End If

        If RadioButtonList1.SelectedValue = [Ô]CPF[Ô] Then
            NumeroInscricao = [Ô]01[Ô]
        End If

        If RadioButtonList1.SelectedValue = [Ô]CNPJ[Ô] Then
            NumeroInscricao = [Ô]02[Ô]
        End If

        If RadioButtonList1.SelectedValue = [Ô][Ô] Then
            Label10.Text = [Ô]Selecione [ô]CNPJ[ô] ou [ô]CPF[ô][Ô]
        End If

        Pedido = TextBox1.Text
        Valor = TextBox2.Text
        NomeSacado = TextBox3.Text
        CodigoInscricao = TextBox4.Text
        NumeroInscricao = TextBox5.Text
        EnderecoSacado = TextBox6.Text
        BairroSacado = TextBox7.Text
        CepSacado = TextBox8.Text
        CidadeSacado = TextBox9.Text
        EstadoSacado = TextBox3.Text
        DataVencimento = TextBox3.Text
        UrlRetorna = TextBox3.Text
        ObsAdicional1 = TextBox3.Text


        CodEmp = [Ô]AAAAAAAAA111111111111[Ô]

        Chave = [Ô]BBBBBBBB222222222[Ô]

        [ô]ScriptMode = Server.CreateObject([Ô]itaucripto.cripto[Ô])
        cripto = Server.CreateObject([Ô]Itaucripto.class[Ô])
        dados = cripto.geraDados(CodEmp, Pedido, Valor, Observacao, Chave, NomeSacado, CodigoInscricao, NumeroInscricao, EnderecoSacado, BairroSacado, CepSacado, CidadeSacado, EstadoSacado, DataVencimento, UrlRetorna, ObsAdicional1, ObsAdicional2, ObsAdicional3)
        [ô]ScriptMode = Nothing
        cripto = Nothing


Agora falta o seguinte código que eu não sei onde colocar:
  <FORM ACTION=[Ô]https://shopline.itau.com.br/shopline/shopline.asp[Ô] method=[Ô]post[Ô] name=[Ô]form1[Ô] onsubmit=carregabrw() target=[Ô]SHOPLINE[Ô]>
	<INPUT type=[Ô]hidden[Ô] name=[Ô]DC[Ô] value=[Ô]<%= dados %>[Ô]>
	<BR>
	<INPUT type=[Ô]submit[Ô] name=[Ô]Shopline[Ô] value=[Ô]Itaú Shopline[Ô]>
</form>

<script language=[Ô]JavaScript[Ô]>
<!--
function carregabrw()
{ 
window.open([ô][ô], [ô]SHOPLINE[ô], [ô]toolbar=yes,menubar=yes,resizable=yes,status=no,scrollbars=yes,width=675,height=485[ô]); 
}
//-->
</script>
</BODY>
</HTML>


Onde eu coloco isso???
MLALEX 28/08/2014 18:15:02
#440764
Deixa eu tentar simplificar isso. No VB6 todos os comandos que você precisa, coloca dentro da ação do botão. No ASP.NET parece que parte fica no botão outra parte fica no Html.

O que eu tenho já tenho pronto é, quando clico no botão, coloco valores nas variáveis e junto tudo na variável [Ô]dados[Ô];

O que eu preciso é, enviar os valores da variável [Ô]dados[Ô] para o site do Itaú através do código abaixo:

    <FORM ACTION=[Ô]https://shopline.itau.com.br/shopline/shopline.asp[Ô] method=[Ô]post[Ô] name=[Ô]form1[Ô] onsubmit=carregabrw() target=[Ô]SHOPLINE[Ô]>
    <INPUT type=[Ô]hidden[Ô] name=[Ô]DC[Ô] value=[Ô]<%= dados %>[Ô]>
    <BR>
    <INPUT type=[Ô]submit[Ô] name=[Ô]Shopline[Ô] value=[Ô]Itaú Shopline[Ô]>
</form>

<script language=[Ô]JavaScript[Ô]>
<!--
function carregabrw()
{
window.open([ô][ô], [ô]SHOPLINE[ô], [ô]toolbar=yes,menubar=yes,resizable=yes,status=no,scrollbars=yes,width=675,height=485[ô]);
}
//-->
</script>
</BODY>
</HTML>


Mas onde vou colocar esse código?? Se coloco dentro do botão, dá erro.

1) Pensei com colocar esse commando em outra pagina html e enviar [Ô]dados[Ô] para lá. Mas não sei como fazer isso.
2) Pensei em criar uma função vb no lugar do botão, chamar essa função com um botão html e em seguida, no próprio botão html enviar os dados, mas também não sei como fazer isso.

Alguém pode me ajudar????
Tópico encerrado , respostas não são mais permitidas
Voltar