Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Boa tarde pessoal.
Procurei, procurei e não achei algo que pudesse me ajudar então decidi criar o tópico.
Eu criei uma página ASP que recebe os dados de um certo usuário como Nome, Departamento, Cargo, Email, Telefone, etc.
Mostro esses dados dentro de um template no mesmo ASP que monta a assinatura de email do usuário.
O que eu quero saber é o seguinte: como eu posso fazer com que essa assinatura, que eu montei em ASP, possa ser baixada em um formato HTML para que a pessoa possa inserir dentro do seu programa de email favorito?!
Esse é o meu código:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="[http://www.w3.org/1999/xhtml">](http://www.w3.org/1999/xhtml)
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Assinaturas de Email</title>
</head>Set Rs = Server.CreateObject("ADODB.RecordSet")
StrSql = " SELECT *" & _
" FROM ASSINATURASEMAIL " & _
" WHERE codassinatura = "&Request.QueryString("ca")&" "%>
<body style="margin:0; padding:0;">
<table width="570" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<div style="padding:30px; font-family:Arial, Helvetica, sans-serif; font-size:12px; text-align:justify;">
<p> </p>
<p> </p>
<table border="0" cellspacing="0" cellpadding="5" style="font-size:10px">
<tr>
<td > </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td colspan="4" ><strong>Atenciosamente,</strong></td>
</tr>
<tr>
<td width="11" > </td>
<td width="129"> </td>
<td width="11"> </td>
<td width="193"> </td>
</tr>
<tr>
<td bgcolor="#00552c"> </td>
<td colspan="3"><%Response.Write(" "&Rs("nome")&" ")%></td>
</tr>
<tr>
<td bgcolor="#D1D4D4"> </td>
<td colspan="3"><%Response.Write(" "&Rs("cargo")&" ")%></td>
</tr>
<tr>
<td> </td>
<td colspan="3"><b><%Response.Write(" "&Rs("setor")&" ")%></b></td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<%if rs("website") <> "" then%>
<tr>
<td> <img src="images/flecha.gif" alt="Site" /></td>
<td colspan="3"><a href="http://<%Response.Write(" "&Rs("website")&" ")%>" target="_blank"><%Response.Write(" "&Rs("website")&" ")%></a> <</td>
</tr>
<%else%>
<%end if%>
<tr>
<td><img src="images/mail_.gif" alt="E-mail" ></td>
<td><a href="mailto:<%Response.Write(" "&Rs("email1")&" ")%>" style="color:#0D532D"><%Response.Write(" "&Rs("email1")&" ")%></a></td>
<td><img src="images/phone_.gif" alt="Telefone"/></td>
<td><%Response.Write(" "&Rs("telefone1")&" ")%></td>
</tr>
<%if rs("fax") <> "" or rs("telefone2") <> "" then%>
<tr>
<td height="21"><img src="images/fax-icon.gif" alt="Fax"/></td>
<td><%Response.Write(" "&Rs("fax")&" ")%></td>
<td><img src="images/icon_cel.gif" alt="Celular"/></td>
<td><%Response.Write(" "&Rs("telefone2")&" ")%></td>
</tr>
<%else%>
<%end if%>
</table>
<p><a href="" target="_blank"><img src="images/rodape.gif" width="570" height="116" border="0" /></a></p>
</div> </td>
</tr>
</table>
<textarea name="" cols="" rows="" style="width:570px;height:400px;">
<table width="570" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<div style="padding:30px; font-family:Arial, Helvetica, sans-serif; font-size:12px; text-align:justify;">
<p> </p>
<p> </p>
<table border="0" cellspacing="0" cellpadding="5" style="font-size:10px">
<tr>
<td > </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td colspan="4" ><strong>Atenciosamente,</strong></td>
</tr>
<tr>
<td width="11" > </td>
<td width="129"> </td>
<td width="11"> </td>
<td width="193"> </td>
</tr>
<tr>
<td bgcolor="#00552c"> </td>
<td colspan="3"><%Response.Write(" "&Rs("nome")&" ")%></td>
</tr>
<tr>
<td bgcolor="#D1D4D4"> </td>
<td colspan="3"><%Response.Write(" "&Rs("cargo")&" ")%></td>
</tr>
<tr>
<td> </td>
<td colspan="3"><b><%Response.Write(" "&Rs("setor")&" ")%></b></td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<%if rs("website") <> "" then%>
<tr>
<td> <img src="images/flecha.gif" alt="Site" /></td>
<td colspan="3"><a href="http://<%Response.Write(" "&Rs("website")&" ")%>" target="_blank"><%Response.Write(" "&Rs("website")&" ")%></a> <</td>
</tr>
<%else%>
<%end if%>
<tr>
<td><img src="images/mail_.gif" alt="E-mail" ></td>
<td><a href="mailto:<%Response.Write(" "&Rs("email1")&" ")%>" style="color:#0D532D"><%Response.Write(" "&Rs("email1")&" ")%></a></td>
<td><img src="images/phone_.gif" alt="Telefone"/></td>
<td><%Response.Write(" "&Rs("telefone1")&" ")%></td>
</tr>
<%if rs("fax") <> "" or rs("telefone2") <> "" then%>
<tr>
<td height="21"><img src="images/fax-icon.gif" alt="Fax"/></td>
<td><%Response.Write(" "&Rs("fax")&" ")%></td>
<td><img src="images/icon_cel.gif" alt="Celular"/></td>
<td><%Response.Write(" "&Rs("telefone2")&" ")%></td>
</tr>
<%else%>
<%end if%>
</table>
<p><a href="" target="_blank"><img src="rodape.gif" width="570" height="116" border="0" /></a></p>
</div> </td>
</tr>
</table>
</textarea>
<a href="assinatura.html">DOWNLOAD HTML</a>
</body>
</html>obs: monto o código dentro de um textarea, para que a pessoa possa copiar o mesmo. Mas meu intuito é que tenha um link de download para ela baixar o HTML pronto.
Agradeço a ajuda.
Abraços.
Carregando comentários...