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

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