yo tengo funcionando un formulario web para correo electronico en
http://www.charlesdarwin.cl
lo puedes probar enviandome un correo a webmaster
desde el formulario
o bajalo de
http://linux.tecnicosenlinea.cl/down...iocontacto.zip
espero que te sirva
<html>
<head>
<title>Contacto Web</title>
</head>
<body bgcolor="#99CCFF" >
<%If request.form("enviar") = "" then
link=request.servervariables("HTTP_REFERER")%>
<FORM METHOD="POST" ACTION="contacto.asp">
<TABLE WIDTH="423" BORDER="0" CELLSPACING="1" CELLPADDING="1"
ALIGN="center" background="images/rayasgrises.gif">
<TR> <TD COLSPAN="3" width="415">
<DIV ALIGN="center">
<font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">
<b>Contacto Web <br>
</b></font></DIV>
<DIV ALIGN="center"> </DIV>
</TD></TR>
<TR> <TD WIDTH="107"><font size="2" color="#0000FF" face="Verdana, Arial, Helvetica, sans-serif">
Nombre :</font></TD>
<TD WIDTH="4">
<FONT COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2">
</FONT></TD><TD WIDTH="292">
<FONT SIZE="2" COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif">
<INPUT TYPE="text" NAME="Nombre" SIZE="31">
</FONT></TD></TR> <TR> <TD WIDTH="107">
<font size="2" color="#0000FF" face="Verdana, Arial, Helvetica, sans-serif">
Email :</font></TD>
<TD WIDTH="4">
<FONT COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2">
</FONT></TD><TD WIDTH="292">
<FONT SIZE="2" COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif">
<INPUT TYPE="text" NAME="tuemail" SIZE="31">
</FONT></TD></TR> <TR> <TD WIDTH="107">
<font color="#0000FF" face="Verdana, Arial, Helvetica, sans-serif" size="2">
Ciudad :</font></TD>
<TD WIDTH="4" rowspan="4">
<FONT COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2">
</FONT></TD><TD WIDTH="292" align="left">
<input name="ciudad" type="text" id="ciudad" size="31"></TD></TR>
<TR>
<TD><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Fono y/o Fax: </font></TD>
<TD align="left"><FONT SIZE="2" COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif">
<INPUT NAME="fonofax" TYPE="text" id="fonofax" SIZE="31">
</FONT></TD>
</TR>
<TR>
<TD><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Asunto : </font></TD>
<TD align="left"><FONT SIZE="2" COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif">
<INPUT NAME="asunto" TYPE="text" id="asunto" value="Contacto Web" SIZE="31">
</FONT></TD>
</TR>
<TR> <TD WIDTH="107">
<font size="2" color="#0000FF" face="Verdana, Arial, Helvetica, sans-serif">
Contactos : </font></TD>
<TD WIDTH="292" align="left">
<FONT SIZE="2" COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif">
<select name="contactos" id="contactos">
<option value="
[email protected]">Direcció n</option>
<option value="
[email protected]">Webmaster</option>
</select>
</FONT></TD></TR> <TR> <TD WIDTH="107">
<font color="#0000FF">Comentarios:</font></TD>
<TD WIDTH="4"></TD><TD WIDTH="292">
<textarea rows="6" name="comentarios" cols="26"></textarea></TD></TR>
<TR> <TD COLSPAN="3" HEIGHT="50" width="415"> <DIV ALIGN="center">
<FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2">
<input type="hidden" name="enviar" size="2" value="SI">
<input type="hidden" name="link" size="20" value="<%=link%>">
<INPUT TYPE="submit" NAME="sub" VALUE="Enviar">
</FONT></DIV></TD></TR> </TABLE>
</FORM>
<%End If%>
<p><%If request.form("enviar") = "SI" then%></p>
<P ALIGN="CENTER"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
Gracias por su Contacto<br> Su Mensaje fue Enviado Correctamente <br>
</font><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><b></b></font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></b></P>
<P ALIGN="CENTER">
<a href="javascript
:close();">Cerrar
ventana</a></P>
<%strHost = "mail.pagina.com"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = "
[email protected]"
Mail.FromName = request.form("nombre")
Mail.AddReplyTo request.form("tuemail")
'response.write request.form("email1")
Mail.AddAddress request.form("contactos")
titulo=Request.form("asunto")&" "
Mail.Subject = titulo
Mail.IsHTML = True
mensaje="<html><head>"
mensaje=mensaje & "<title>Contacto - Charlesdarwin.cl</title>"&vbcrlf
mensaje=mensaje & " </head><body><div align=center>"&vbcrlf
mensaje=mensaje & " <center>"&vbcrlf
mensaje=mensaje & " <table border=0 width=500 cellpadding=0>"&vbcrlf
mensaje=mensaje & " <tr> <td >"&vbcrlf
mensaje=mensaje & " <p Align=center>Contacto Web </p>"&vbcrlf
mensaje=mensaje & " <p align=left>Nombre :"& Request.form("Nombre")&vbcrlf
mensaje=mensaje & " <p align=left>Email :<font color=#FF0000><a href=mailto:"&request.form("tuemail")&">"& Request.form("tuemail")&"</p></a></font>"&vbcrlf
mensaje=mensaje & " <p align=left>Ciudad :"& Request.form("ciudad")&vbcrlf
mensaje=mensaje & " <p align=left>Fono - Fax :"& Request.form("fonofax")&vbcrlf
mensaje=mensaje & " <p align=left>Asunto :"& Request.form("asunto")&vbcrlf
mensaje=mensaje & " <p align=left>Comentario :"& Request.form("comentarios")&vbcrlf
mensaje=mensaje & " <center><br>"&vbcrlf
mensaje=mensaje & " <br> Mensaje enviado desde <a href=http://www.charlesdarwin.cl>http://www.charlesdarwin.cl</a><br>"&vbcrlf
mensaje=mensaje & " Colegio Charlesdarwin.cl - Punta Arenas<br> </center</body></html>"&vbcrlf
Mail.Body = mensaje
Mail.Send %>
<%End If%>
</body>
</html>