<% If request.form("enviar") = "" then %>
Gabelex. Industria de Tectos metálicos, S.A.
Teu Nome
Teu Email
Nome de teu amigo
Email de teu amigo
Comentários
Li e aceito o Aviso Legal
<%End If%>

<%If request.form("enviar") = "SI" then%>





Email enviado, obrigado por recomendar 
www.gabelex.pt

<% Set Mail = Server.CreateObject("Persits.MailSender") 'Mail.Host = strHost Mail.Host = "web.tahbit.mad" 'Mail.From = "saint-gobain@saint-gobain.com" Mail.From = request.form("tuemail") Mail.FromName = request.form("nombre") Mail.AddReplyTo request.form("tuemail") 'response.write request.form("email1") Mail.AddAddress Request.form("email1") titulo=Request.form("Nombre")&" recomenda-te o Site Site Gabelex. Indústria de Tectos metálicos, S.A." Mail.Subject = titulo Mail.IsHTML = True mensaje="" mensaje=mensaje & "Recomendação do Site Gabelex. Indústria de Tectos metálicos, S.A."&vbcrlf mensaje=mensaje & "
"&vbcrlf mensaje=mensaje & "
"&vbcrlf mensaje=mensaje & " "&vbcrlf mensaje=mensaje & "
"&vbcrlf mensaje=mensaje & "

Estimado: "&request.form("nombreamigo")&"

"&vbcrlf mensaje=mensaje & "

Teu amigo "& Request.form("Nombre")&" ("&vbcrlf mensaje=mensaje & request.form("tuemail")&"
"&vbcrlf mensaje=mensaje & " esteve em: www.gabelex.pt  e"&vbcrlf mensaje=mensaje & " pensa que o seguinte enlace:

"&vbcrlf mensaje=mensaje & "

www.gabelex.pt 

"&vbcrlf mensaje=mensaje & "

pode ser de teu interesse.

"&vbcrlf mensaje=mensaje & " Ademais envia-te o seguinte comentário:

"&vbcrlf mensaje=mensaje & "
"&vbcrlf mensaje=mensaje & " "&vbcrlf mensaje=mensaje & " "&vbcrlf mensaje=mensaje & "
"& Request.form("comentarios")&"
"&vbcrlf mensaje=mensaje & "

"&vbcrlf mensaje=mensaje & "
Mensagem enviada desde: http://www.gabelex.pt

"&vbcrlf mensaje=mensaje & "Gabelex. Industria de Tectos metálicos, S.A.
"&vbcrlf Mail.Body = mensaje Mail.Send %> <%End If%>