1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Ajuda Programa ASP - Código

Discussão em 'Web Development' iniciada por d10s, 18 de Fevereiro de 2009. (Respostas: 2; Visualizações: 548)

  1. d10s

    d10s Power Member

    Baseado em algum código na net e outro, alguêm podera dizer porque não está a funcionar?

    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%">&nbsp;</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>
    enviaremail.asp
    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: 18 de Fevereiro de 2009
  2. d10s

    d10s Power Member

    Editado :)
    Alterei algumas coisas.
     
  3. vidaul

    vidaul Power Member

    Devias de dizer qual o erro/problema
     

Partilhar esta Página