Yorg
Power Member
Baseado em algum código na net e outro, alguêm podera dizer porque não está a funcionar?
formasp.asp
enviaremail.asp
formasp.asp
Código:
<html><head>
<title>Associação de Pais</title>
</head>
<body topmargin="0" leftmargin="0">
<div align="center">
<font size="3">
<center>
<table border="0" width="266">
<tr>
<td width="358" valign="top" height="2">
<form method="POST" action="enviaemail.asp">
<div align="center">
<p><font size="3">
<center>
</p>
<br>
<br>
<br>
<p><font color="#000000" size="3" face="Verdana, Arial, Helvetica, sans-serif"> <font size="4"><strong><u>Associação de Pais</u></strong></font></font>
</p>
<table border="0" width="50%" cellspacing="0" cellpadding="0">
<td width="0%"> </td>
<tr>
<td width="4%"></td>
<td width="96%">
<p align="left"><font size="3" face="Verdana">Nome Completo:</font></td>
</tr>
<tr>
<td width="4%"></td>
<td width="96%">
<p align="left"><font size="3" face="Verdana">
<input type="text" name="nomecompleto" size="50" style="font-family: Verdana; border-style: solid; border-width: 1">
</font></td>
</tr>
<tr>
<td width="4%"></td>
<td width="96%">
<br>
<p align="left"><font size="3" face="Verdana">Morada:</font></td>
</tr>
<tr>
<td width="4%"></td>
<td width="96%">
<p align="left"><font size="3" face="Verdana">
<input type="text" name="morada" size="50" style="font-family: Verdana; border-style: solid; border-width: 1">
</font></td>
</tr>
<tr>
<td width="4%"></td>
<td width="96%">
<br>
<p align="left"><font size="3" face="Verdana">Telefone:</font></td>
</tr>
<tr>
<td width="4%"></td>
<td width="96%">
<p align="left"><font size="3" face="Verdana">
<input type="text" name="telefone" size="9" style="font-family: Verdana; border-style: solid; border-width: 1">
</font></td>
</tr>
<tr>
<tr>
<td width="4%"></td>
<td width="96%">
<br>
<p align="left"><font size="3" face="Verdana">E-mail:</font></td>
</tr>
<tr>
<td width="4%"></td>
<td width="96%">
<p align="left"><font size="3" face="Verdana">
<input type="text" name="email" size="50" style="font-family: Verdana; border-style: solid; border-width: 1">
</font></td>
</tr>
<tr>
<td width="4%"></td>
<td width="96%">
<p align="left">
<br>
<p align="left"><font size="3" face="Verdana">Observações:</font></td>
</tr>
<tr>
<td width="4%"></td>
<td width="96%">
<p align="left"><font size="3" face="Verdana">
<textarea rows="7" name="obs" cols="50" style="font-family: Verdana; border-style: solid; border-width: 1"></textarea>
</font></td>
</tr>
<tr>
<td width="96%"></td>
</tr>
<tr>
<p>
<td width="4%"></td>
<td width="96%">
<p align="center"><font size="1" face="Verdana">
</font></td>
</tr>
</table>
<input type="submit" value="Enviar">
</div>
</body>
</html>
Código:
<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = request("nome")
Mailer.FromAddress = request("email")
Mailer.RemoteHost = "smtp.sapo.pt"
Mailer.AddRecipient "Formulário" , "[email protected]"
Mailer.Subject = "Formulário"
Mailer.BodyText = "Nome..........: " & request.form("nome") & vbcrlf
Mailer.BodyText = "Morada.........: " & request.form("morada") & vbcrlf
Mailer.BodyText = "Telefone.........: " & request.form("telefone") & vbcrlf
Mailer.BodyText = "E-Mail.........: " & request.form("email") & vbcrlf
Mailer.BodyText = "Observações.........: " & request.form("obsa") & vbcrlf
if Mailer.SendMail then
Response.redirect "www.sapo.pt"
else
Response.Write mailer.response
end if
%>
Última edição:
