Gracias a todos y gracias UrJose ya que me haz ayudado muchas veces...!!
Espero sus respuestas..
Código:
<%
id=request.form("id")
if id = "" then
response.redirect "default.asp"
end if
urlfoto="postales/images/"
urlminiatura="postales/images/"
'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="smtp.prodigy.net.mx;smtp.axtel.net;mail.infoaccess.net"
Set Mail = Server.CreateOBject("Persits.MailSender")
Mail.Host = strHost
Mail.From = "[email protected]"
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 & " bgcolor=white> "&vbcrlf
mensaje=mensaje & " <tr>"&vbcrlf
mensaje=mensaje & " <td width=93 bgcolor=white>&nbsp;</td>"&vbcrlf
mensaje=mensaje & " <td width=543>&nbsp;"&vbcrlf
:)

