Erro de compilação do Microsoft VBScript (0x800A0408)
Salve salve.
Galera do imasters,
Venho a voces, solicitar ajuda para fazer este codigo funcionar.
tenho q pegar os dados de um formulario e envia-lo por email.
so q to apanhando d+.
o codigo e esse:
<%@ Language=VBScript%><HTML><HEAD><META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"><%Dim myMailDim HTMLSet myMail = CreateObject("CDONTS.NewMail")a = Request.QueryString("Razao_social")b = Request.QueryString("endereco")c = Request.QueryString("bairro")d = Request.QueryString("cep")e = Request.QueryString("cx_postal")f = Request.QueryString("cidade")g = Request.QueryString("uf")h = Request.QueryString("pais")i = Request.QueryString("contato")j = Request.QueryString("telefone")l = Request.QueryString("fax")m = Request.QueryString("cnpj")n = Request.QueryString("insc_estadual")o = Request.QueryString("insc_municipal")p = Request.QueryString("site")q = Request.QueryString("email")r = Request.QueryString("responsaveis")s = Request.QueryString("Grupo_conta")t = Request.QueryString("data_nasc")u = Request.QueryString("ramo_atividade")v = Request.QueryString("unidade")x = Request.QueryString("Unidade_espec")z = Request.QueryString("Forma_pagto")zz = Request.QueryString("Forma_pagto_espec")a1 = Request.QueryString("op_1_bco")a2 = Request.QueryString("op_1_agencia")a3 = Request.QueryString("op_1_conta")a4 = Request.QueryString("op_2_bco")a5 = Request.QueryString("op_2_agencia")a6 = Request.QueryString("op_2_conta")a7 = Request.QueryString("ref_1_raz_social")a8 = Request.QueryString("ref_1_endereco")a9 = Request.QueryString("ref_1_telefone")b1 = Request.QueryString("ref_1_contato")b2 = Request.QueryString("ref_2_raz social")b3 = Request.QueryString("ref_2_endereco")b4 = Request.QueryString("ref_2_telefone")b5 = Request.QueryString("ref_2_contato")b6 = Request.QueryString("data_cadastro")HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"HTML = HTML & "<html>"HTML = HTML & "<head>"HTML = HTML & "<meta http-equiv=""Content-Type"""HTML = HTML & "content=""text/html; charset=iso-8859-1"">"HTML = HTML & "<meta name=""GENERATOR"""HTML = HTML & " content=""Microsoft Visual Studio 6.0"">"HTML = HTML & "<title>Cadastro de cliente efetuado no site</title>"HTML = HTML & "</head>"HTML = HTML & "<body bgcolor=""FFFFFF"">"HTML = HTML & "<table width=""70%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"HTML = HTML & "<tr bgcolor=""#FFCC99"">"HTML = HTML & "<td colspan=""2""><div align=""center"">IDENTIFICAÇÃO:</div></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td width=""50%"">Razão Social:</td>"HTML = HTML & "<td width=""50%"">"HTML = HTML & "<%=a%>"HTML = HTML & "</td></tr><tr>"HTML = HTML & "<td><p>Endereço:</p></td>"HTML = HTML & "<td><%=b%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>Bairro:</td>"HTML = HTML & "<td><%=c%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>Cep:</td>"HTML = HTML & "<td><%=d%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>Cx. Postal:</td>"HTML = HTML & "<td><%=e%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td><p>Cidade:</p></td>"HTML = HTML & "<td><%=f%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>UF:</td>"HTML = HTML & "<td><%=g%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>Pais:</td>"HTML = HTML & "<td><%=h%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>Contato:</td>"HTML = HTML & "<td><%=i%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>Telefone:</td>"HTML = HTML & "<td><%=j%> </td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>Fax:</td>"HTML = HTML & "<td><%=l%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>CNPJ / CPF:</td>"HTML = HTML & "<td><%=m%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>Insc. Estadual:</td>"HTML = HTML & "<td><%=n%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>Insc. Municipal:</td>"HTML = HTML & "<td><%=o%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>Site:</td>"HTML = HTML & "<td><%=p%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>Email:</td>"HTML = HTML & "<td><%=q%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>Responsaveis pela empresa: (nome e cargo)</td>"HTML = HTML & "<td><%=r%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>Grupo de conta:</td>"HTML = HTML & "<td><%=s%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>Data de Fundação / Nascimento:</td>"HTML = HTML & "<td><%=t%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>Ramo de Atividade (especificar)</td>"HTML = HTML & "<td><%=u%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>Unidade:</td>"HTML = HTML & "<td><%=v%><%=x%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td colspan=""2"" bgcolor=""#FFCC99""><div align=""center"">REFERÊNCIAS BANCÁRIA</div></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>Forma de Pagamento:</td>"HTML = HTML & "<td><%=z%> <%=zz%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>OPÇÃO 1:</td>"HTML = HTML & "<td> </td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>Banco:</td>"HTML = HTML & "<td><%=a1%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>Agencia:</td>"HTML = HTML & "<td><%=a2%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>Conta Corrente:</td>"HTML = HTML & "<td><%=a3%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>OPÇÃO 2:</td>"HTML = HTML & "<td> </td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>Banco:</td>"HTML = HTML & "<td><%=a4%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>Agencia:</td>"HTML = HTML & "<td><%=a5%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>Conta Corrente:</td>"HTML = HTML & "<td><%=a6%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td colspan=""2"" bgcolor=""#FFCC99""><div align=""center"">REFERÊNCIAS COMERCIAIS</div></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>Referência 1: </td>"HTML = HTML & "<td> </td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>Razão social:</td>"HTML = HTML & "<td><%=a7%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>Endereço:</td>"HTML = HTML & "<td><%=a8%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>Telefone:</td>"HTML = HTML & "<td><%=a9%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td><p>Contato:</p></td>"HTML = HTML & "<td><%=b1%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td><p>Referência 2: </p></td>"HTML = HTML & "<td> </td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>Razão social:</td>"HTML = HTML & "<td><%=b2%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>Endereço:</td>"HTML = HTML & "<td><%=b3%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td>Telefone:</td>"HTML = HTML & "<td><%=b4%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td><p>Contato:</p></td>"HTML = HTML & "<td><%=b5%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td></td>"HTML = HTML & "<td><%=b6%></td>"HTML = HTML & "</tr><tr>"HTML = HTML & "<td> </td>"HTML = HTML & "<td></td>"HTML = HTML & "</tr>"HTML = HTML & "</table>"HTML = HTML & "</body>"HTML = HTML & "</html>"myMail.From="someone@microsoft.com"myMail.To="rogerio@atualidadeonline.com.br"myMail.Subject="Sample CDONTS HTML Message"myMail.BodyFormat=0myMail.MailFormat=0myMail.Body=HTMLmyMail.Sendset mymail=nothingResponse.Write "Message Sent"%>
Muito Obrigado,
Discussão (4)
Carregando comentários...