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

El Objeto TextStream

Paginacion de resultados Basica

Upload de ficheros al servidor

Introduccion

Ejemplo de una aplicación de Foros

Sobre los popup

El Objeto FSO

Tutorial de ASPEmail

Configuracion ODBC

Objeto Connection


Enlaces recomendados

   

Tutorial ASP

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