Buscar en Asptutor     
Demo Tienda Virtual Tutorcar
 Navegacion->Inicio | Active Server Pages  

La web de los recursos y ejemplos de asp

Versión para imprimir

 

Alojado en:


urbe-networks.com

Recomienda esta pagina a un amigo

Servicios Gratuitos

Articulos relacionados

Utilizar GetRows()

Tienda Virtual - Carrito de compra

Messenger a través de BD en ASP

Miniaplicacion de comercio electronico

Objeto Datagrid de ASP.NET en ASP

Acotación de resultados

Una galeria de Imagenes

¿De que pagina vienen mis visitas?

Pagina en obras

Como evitar el cache del navegador

Uso de OPTION EXPLICIT

Restriccion de acceso a paginas

Como vaciar un array

Control de introducción de caracteres en en formulario

Tutorial de ASPEmail (Ampliado)

Mostrar datos de las ultimas visitas a una página


Enlaces recomendados

   

Tutorial ASP

Un Sistema de postales Virtuales en ASP (IV)
Este articulo ha sido leído 49.094 veces

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>


 

¿Estas empezando y este articulo es muy complejo para tí?
Empieza por el principio, visita Ejemplos Básicos

Puedes obtener un listado completo de todos los artículos y ejemplos de ASP en http://www.asptutor.com/asp/todoslosarticulos.asp
 

Valora este articulo   Malo Excelente  
152 usuarios han valorado este articulo. Valoracion media:

Nota: Para cualquier consulta u opinión sobre este articulo puedes usar los foros

 

 

AspTutor lo hacemos entre todos ¿Como vas a colaborar hoy?


Google

 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar