Un Sistema de postales Virtuales en ASP (IV)


http://www.asptutor.com

Un Sistema de postales Virtuales en ASP (IV)

Módulos de la aplicación

Apuntes sobre el código:

  • ENVIARPOSTAL.ASP

  • En las variables urlfoto y urlminiatura guardamos la dirección ABSOLUTA de los directorios que contienen nuestras imágenes. Tener en cuenta que cuando alguien reciba la postal, todas las referencias a objetos de la red (URL's, tanto de imágenes como hipervinculos) que se incluyan en esta deberán ser en ABSOLUTO (http://www.tuweb.com/....) , de otra forma no podría visualizarlas

  • Tendréis que configurar las variables de ASPEmail con los datos de vuestro servidor.

Enviarpostal.asp


<%
id=request.form("id")
if id = "" then
    response.redirect "default.asp"
end if

urlfoto="http://www.tuweb.com/postales/images/"
  urlminiatura="http://www.tuweb.com/postales/images/miniaturas/"
  'cambiamos los saltos de carro por <br>
     comentarios=replace(request.form("comentarios"),chr(10),"<br>")
  'Ponemos la primera letra en mayusculas 
     inicial=ucase(mid(request.form("comentarios"),1,1)) 
  'Asignamos a la variable comentarios el resto de la cadena
       comentarios=mid(comentarios,2)   
  

	   strHost = "mail.tuweb.com"
		Set Mail = Server.CreateObject("Persits.MailSender")
		Mail.Host = strHost
		Mail.From =  "webmaster@tuweb.com"
		Mail.FromName = request.form("nombre")
                		Mail.AddReplyTo request.form("email")
		Mail.AddAddress  request.form("emailamigo")
		titulo=Request.form("Nombre")&" te envia una e-postal" 
		Mail.Subject = titulo
		Mail.IsHTML = True

mensaje="<html><head>"
mensaje=mensaje & "<title>Una E-postal para ti</title>"&vbcrlf
mensaje=mensaje & " </head><body><div align=center>"&vbcrlf
mensaje=mensaje & "<center> "&vbcrlf
mensaje=mensaje & "<table border=0 width=652 " 
mensaje=mensaje & " background=http://www.tuweb.com/images/rayasgrises.gif> "&vbcrlf
mensaje=mensaje & " <tr>"&vbcrlf
mensaje=mensaje & " <td width=93 bgcolor=#66CCFF>&nbsp;</td>"&vbcrlf
mensaje=mensaje & "  <td width=543>&nbsp;"&vbcrlf
mensaje=mensaje & " <table border=0 cellspacing=5 bgcolor=#FFFFFF>"&vbcrlf
mensaje=mensaje & " <tr> <td ><img border=0 src="&urlfoto&request.form("url")&">"&vbcrlf
mensaje=mensaje & " <td  valign=top>"&vbcrlf
mensaje=mensaje & " &nbsp;&nbsp;&nbsp;<i><font color=#FF00FF size=7>"
mensaje=mensaje & inicial&"</font></i>"&comentarios&vbcrlf
mensaje=mensaje & "</td> </tr>"&vbcrlf
mensaje=mensaje & " <tr>"&vbcrlf
mensaje=mensaje & "<td  colspan=2> "&vbcrlf
mensaje=mensaje & " <font color=#FF0000>De:</font>"&vbcrlf
mensaje=mensaje & " <a href=mailto:"& request.form("email")&">"
mensaje=mensaje & request.form("nombre")&" </a><br>"&vbcrlf
mensaje=mensaje & "<font color=#FF0000>Para:</font> "&vbcrlf
mensaje=mensaje & request.form("amigo")&"("&request.form("emailamigo")&")"&vbcrlf
mensaje=mensaje & " </td> </tr></table><p>&nbsp;</p> </td></tr>"&vbcrlf
mensaje=mensaje & " </table>"&vbcrlf
mensaje=mensaje & " </center>"&vbcrlf
     
  
	Mail.Body = mensaje
	Mail.Send	
%>
<html>

<head>

<title>Envio de E-Postales</title>
</head>

<body>

      <p align="center">&nbsp;</p>
      <h3 align="center"><font color="#FF0000">Postal enviada correctamente</font></h3>
      <p align="center"><a href="default.asp">Enviar otra</a></p>
      <p align="center">&nbsp;
      <font size="1">Código proporcionado por :&nbsp; 
<a href="http://www.asptutor.com">
<img border="0" src="http://www.asptutor.com/images/asptutor88x31.gif"></a>
</font>

</body>

</html>