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

Experiencias de un diseñador web

Como evitar el cache del navegador

Formato de fechas en SQL Server

Fecha del servidor vs fecha local

Ejemplo de una aplicación de Test Online

Distintos formatos de Fecha

Tabla de asignación de colores

Acotación de resultados

Mostrando un registro aleatorio de una tabla

Generar un numero aleatorio en un intervalo


Enlaces recomendados

   

Tutorial ASP

Un Sistema de postales Virtuales en ASP (IV)
Este articulo ha sido leído 49.408 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