Já tentei por xmlhttp ,so dá erro,agora

[jcdesigner 0]

Olá amigos

 

Venho a dias tentando enviar uma página de resultado por e-mail, exatamente como é exibida no navegador, sendo que usando uma janela popup para o usuário escolher para quem ele deseja mandar esta tal página, contendo apenas dois campos: nome e email. é só isso. Mas....

 

Já tentei por xmlhttp ,so dá erro, já lí várias materias e instruções mas o bicho não funciona do jeito que desejo, nem a cacetada.

 

Então foi que decidi desistir de enviar a página inteira do jeito que está sendo exibida e ví que o jeito era mesmo passar o link da pagina por email para que o receber abri-lo e visualizar a página de resultado enviada pelo usuario.

 

Usei o Request.ServerVariables("HTTP_REFERER") para recuperar a url dinamica e passar por email atrave´s do formulário que chama um action.

 

No inicio até que funcionou umas duas vezes, e depois começou a dar este erro e não tô conseguindo achar a solução:

 

 

 

 

Tá ai erro que aparece: An error occurred: 550 5.1.1 <> User unknown; rejecting

 

Página de resultado:

 

<script language="JavaScript" type="text/JavaScript"><!--function MM_openBrWindow(theURL,winName,features) { //v2.0  window.open(theURL,winName,features);}//--></script><table border=0 width=100%><tr width=100%><td width=100% valign=top><h2>LISTA DE ORÇAMENTO</h2></td></tr><tr><td align=right><a href="#" onClick="window.location='./listaprod.asp?'+unescape('<%=Request.QueryString("url_comp")%>')"> </a></td></tr><%Dim acao,data_ped,prod_id,prod_quant,car_prod_id,car_prod_quant,temp,arrTemp,iten_id,loop1,car_iten_id,car_iten_quant,car_iten_prod,car_total,car_subtotalacao = Request.querystring("acao")prod_id = Request.querystring("prod_id")prod_quant = Request.querystring("prod_quant")car_iten_id = Request.querystring("car_iten_id")'Verifica se a quantidade e 0 e troca por 1If IsEmpty(prod_quant) OR prod_quant=0 Then prod_quant = 1 End IfSelect Case acaoCase "incluir"   	Dim car_prod_inc,prod_nome,prod_preco	temp = ""	set car_prod_inc = lojaDB.Execute("SELECT * FROM produtos WHERE id="& prod_id &" AND disp='S'")	prod_nome = car_prod_inc("nome")	prod_preco = FormatCurrency((car_prod_inc("preco").value), 2, -2, -2, -2)           	If IsEmpty(Session("iten_id")) Then   Session("iten_id") = 1  Else  Session("iten_id") = Session("iten_id") + 1	End If                                             	iten_id = Session("iten_id")	temp = iten_id & "&" & prod_id & "&" & prod_quant        If Not (IsEmpty(Session("car_prod_id"))) Then         For loop1 = LBound(session("car_prod_id")) to UBound(session("car_prod_id"))           temp = temp & "/" & session("car_prod_id")(loop1)       	 Next        End If	arrTemp = Split(temp,"/")	Session("car_prod_id") = arrTemp %>              	<tr width=90%><td width=90%><h3>Produto Incluído</h3></td></tr>	<tr width=100%><td width=100%>  <table border=1 width=90%>  <tr width=100%> 	 <th>Item N°</th><th>Produto</th><th>Valor/Unid</th><th>Quant.</th><th>SubTotal</th><th>Orçamento</th>  </tr><tr width=100% valign=top align=center> 	 <td><%=iten_id%><td align=left><%=prod_nome%></td><td><%=prod_preco%></td><td><%=prod_quant%></td><td><%=FormatCurrency(prod_preco*prod_quant)%></td><td><a href="./carrocompras.asp?acao=excluir&car_iten_id=<%=iten_id%>&url_comp=<%=Server.UrlEncode(Request.QueryString("url_comp"))%>">Cancelar Item</a></td>  </tr></table>	  <%Case "excluir"   	'Exclui o Id do produto no carrinho                                          	temp = ""	If Not (IsEmpty(Session("car_prod_id"))) Then          For loop1 = LBound(session("car_prod_id")) to UBound(session("car_prod_id"))           arrTemp = Split(Session("car_prod_id")(loop1),"&") 	 iten_id = arrTemp(0)        	 car_iten_prod = arrTemp(1) 	 car_iten_quant = arrTemp(2) 	 If Not (iten_id = car_iten_id) Then                           If temp = "" Then                           temp = session("car_prod_id")(loop1)                       	 Else                          temp = temp & "/" & session("car_prod_id")(loop1)                         End If          End If    Next  If temp = "" Then 	 Session.Abandon 	 %> 	 <script>location.reload()</script> 	 <%  Else 	 arrTemp = Split(temp,"/") 	 Session("car_prod_id") = arrTemp  End IF	End IfCase "zerar"  	Session.Abandon	%>	<script>window.location='./carrocompras.asp'</script>	<%End Select'Exibe Pedido Atualtemp = ""%><tr width=100%><td width=100%> </td></tr><tr width=100%><td width=100%><h3>Orçamento Atual</h3></td></tr><tr width=100%><td width=100%><%If IsEmpty(Session("car_prod_id")) Then 	%>	<h4>Orçamento Enviado/ Lista Zerada</h4>	<% Else	Dim car_prod_nome,car_prod_descricaop,car_prod_preco,malha1,car_prod_atual	malha1 = "sim"	%>	<table border=0 width=90%>	<tr width=100%><th>Item</th><th>Produto</th><th>Valor/Unid</th><th>Quant.</th><th>SubTotal</th></tr>        <%        For loop1 = LBound(session("car_prod_id")) to UBound(session("car_prod_id"))        	 arrTemp = Split(Session("car_prod_id")(loop1),"&")  car_iten_prod = arrTemp(1)  set car_prod_atual = lojaDB.Execute("SELECT * FROM produtos WHERE id="& car_iten_prod &" AND disp='S'")  car_prod_descricaop = car_prod_atual("descricaop")  car_prod_preco = FormatCurrency((car_prod_atual("preco").value),2, -2, -2, -2)  arrTemp = Split(Session("car_prod_id")(loop1),"&")  car_iten_id = arrTemp(0)  car_iten_quant = arrTemp(2)           car_subtotal = FormatCurrency(car_iten_quant * (car_prod_atual("preco").value),2, -2, -2, -2)  car_total = FormatCurrency(car_total + (car_iten_quant * (car_prod_atual("preco").value)),2, -2, -2, -2)  %>       	 <tr width=100% valign=top class=<%=malha1%> align=center><td><%=car_iten_id%></td><td align=left><%=car_prod_descricaop%></td><td><%=car_prod_preco%></td><td><%=car_iten_quant%></td><td><%=car_subtotal%></td></tr>         <%  If malha1 = "sim" Then malha1 = "nao" Else malha1 = "sim" End If  car_prod_atual.Close  set car_prod_atual = Nothing	Next	%>	<tr width=100% class=<%=malha1%> align=center><td></td><td></td><td></td><td><b>Total = </b></td>          <td><b><%=car_total%></b></td></tr>	</table>	<tr><td> </td></tr>	<tr width=100% align=center><td width=100%><h3><a href="#" onClick="MM_openBrWindow('envioOrc.asp','','width=450,height=250')">"Enviar         por e-mail" </a></h3></td></tr> [B]' Link para enviar por e-mail, que abre uma janelinha popup[/B]	<% End If %> </td></tr></table>

 

 

 

 

 

Action que envia os dados do formulario / é apenas uma janela popup com dois campos de formulario nome e email

 

 

 

<%@LANGUAGE="VBSCRIPT"%><html><body><p align="center"> </p><p align="center"> </p><p align="center"> </p><p align="center"><font face="Arial, Helvetica, sans-serif"><em><strong>Seu e-mail foi enviado com sucesso, obrigado.</strong></em></font></p><% Dim NnomeDim Eemail    Nnome = Request.Form("nome")    Eemail = Request.Form("email")Set Mail = Server.CreateObject("Persits.MailSender")Mail.Host= "smtp.forlamp.com.br"Mail.From = "forlamp@forlamp.com.br"Mail.AddAddress EemailMail.Subject = "Orçamento Lâmpadas"Mail.Body = Request.ServerVariables("HTTP_REFERER")On Error Resume NextMail.SendIf Err <> 0 Then  Response.Write "An error occurred: " & Err.DescriptionEnd If %></body></html>

Espero que os amigos possam Ver o que não estou conseguindo enxergar

 

 

Obrigado

[rOcKLoCo 0]

aparece alguma linha do erro?? ou alguma coisa do tipo??falows

[jcdesigner 0]

An error occurred: 550 5.1.1 <> User unknown; rejecting Somente aperece esse erro ai em cima.Obrigado

[rOcKLoCo 0]

On Error Resume NextMail.SendIf Err <> 0 Then Response.Write "An error occurred: " & Err.DescriptionEnd If

tente deixar o trecho acima assim:

'On Error Resume NextMail.Send'If Err <> 0 Then' Response.Write "An error occurred: " & Err.Description'End If

executa e veja se aparece alguma coisa!! falows

[jcdesigner 0]

On Error Resume NextMail.SendIf Err <> 0 Then Response.Write "An error occurred: " & Err.DescriptionEnd If

tente deixar o trecho acima assim:

'On Error Resume NextMail.Send'If Err <> 0 Then' Response.Write "An error occurred: " & Err.Description'End If

executa e veja se aparece alguma coisa!! falows

Não adinatou em nada , continua aparecendo o mesmo erro.E ai ninguem mais ;..... : )

[Mário Monteiro 179]

o erro que aparece continuou exatamente o mesmo, depois de comentar a linha de tratamento de erro??só uma coisa se não ta passando com o HTTP_REFERER passa o link todo como paramentro...

[Reginaldo 0]

não sei se vai adiantar alguma coisa mas indique essa variavel direito!

 

você colocou assim:

ASP [/tr][tr]Mail.AddAddress Eemail[/tr]

 

coloque assim:

ASP [/tr][tr]Mail.AddAddress = Eemail[/tr]

 

 

Abraços

[jcdesigner 0]

não sei se vai adiantar alguma coisa mas indique essa variavel direito!

 

você colocou assim:

ASP [/tr][tr]Mail.AddAddress Eemail[/tr]

 

coloque assim:

ASP [/tr][tr]Mail.AddAddress = Eemail[/tr]

 

 

Abraços

Até poderia ser, mas não daria certo pois se trata de uma URL dinâmica, que traz os Strings dos produtos selecionados pelo cliente na visita ao site. Por isso usar a URL como parametro não daria resultado.

 

Grato

[Mário Monteiro 179]

você pode sim passar a url atual, inclusive com os parametros, basta usar as variaveis de servidor adequadas pra isso, mas realmente a melhor a melhor forma de fazer o seu sistema é com o XMLHTTP...

[jcdesigner 0]

você pode sim passar a url atual, inclusive com os parametros, basta usar as variaveis de servidor adequadas pra isso, mas realmente a melhor a melhor forma de fazer o seu sistema é com o XMLHTTP...

Sei que realmente esse tal de XMLhttp resolveria, só que os exemplo que disponho e que consegui sempre são poucos explicativos e tentei de várias formas sem sucesso, necessitaria de alguma coisa mais detalhada a respeito.Meu cliente ta P comigo, por que eu não tô conseguindo finalizar este sistema, pois apesar de parecer simples: apenas resgatar a URL dinamica e enviar por email, não tá sendo mole não.Aguardo qualquer ajuda que aparecerGrato a todos

[rOcKLoCo 0]

eu to achando q é o componente de Email q esta dando pautesta com o CDONTS falows