<%
Function EnviarMail (DireccionOrigen, DireccionOrigenDescripcion, DireccionDestino, DireccionCopia, DireccionCopiaOculta, Titulo, Cuerpo, Adjunto, Fotos)
Dim objMail
'CODIGO PARA ENVIO DE MAILS POR PERSIST
'CODIGO PARA ENVIO DE MAILS POR OTRO MAILER
Set objMail = Server.CreateObject("CDONTS.NewMail")
if Adjunto <>"" then
objMail.AttachFile adjunto
end if
dim j
'If ubound(Fotos) <> 0 then
for j = 0 to ubound(Fotos)
'AttachFile, adjunta archivos tipo Attachment.
objMail.AttachUrl Server.MapPath(Fotos(j)), GetFileName(Fotos(j))
'Response.Write(" v1.2 Attachin: " & Server.MapPath(Fotos(j)) & " as " & GetFileName(Fotos(j)))
next
'end if
if DireccionOrigen <> "" then
objMail.From = DireccionOrigen
end if
objMail.Subject = Titulo
objMail.BodyFormat = 0
objMail.MailFormat = 0
if cstr(DireccionDestino)<>"" then
objMail.To = DireccionDestino
end if
if cstr(DireccionCopia) <>"" then
objMail.cc = DireccionCopia
end if
if cstr(DireccionCopiaOculta) <>"" then
objMail.bcc = DireccionCopiaOculta
end if
objMail.Body = Cuerpo
objMail.Send
end function
Public function GetFilename(NombreEntero)
Dim Parsed2()
Dim Partes, i
Partes=Replace(NombreEntero,"\","/") 'Para controlar errores.
for i = 1 to len(Partes)
GetFileName=Right(Partes,i)
if (InStr(1, GetFileName, "/") > 0) then
GetFileName=Mid(GetFileName,2)
Exit FUNCTION
end if
next
end function
%>
<%
dim Email
Dim Nombre, Apellido, Comentarios, Edad, Profesion, Pais, News, barrio,Direccion,Piso,Departamento,Entre,yCalle,Ambientes,Superficie,Antiguedad,Orientacion,Estado
dim OpenHTML,seccion
Dim Submited
Submited = Request.querystring("Submited")
If Submited = empty then Submited = False
If Submited then
Nombre = Request.Form("Nombre") & ""
Apellido = Request.Form("Apellido") & ""
Email = Request.Form("Email") & ""
Direccion=Request.Form("Direccion") & ""
Piso=Request.Form("Piso") & ""
Departamento=Request.Form("Departamento") & ""
Entre=Request.Form("Entre") & ""
yCalle=Request.Form("y") & ""
Barrio=Request.Form("Barrio") & ""
Ambientes=Request.Form("Ambientes") & ""
Superficie=Request.Form("Superficie") & ""
Antiguedad=Request.Form("Antiguedad") & ""
Orientacion=Request.Form("Orientacion") & ""
Estado=Request.Form("Estado") & ""
COmentarios = Request.Form("Comentarios") & ""
seccion="Baires"
%>
<%
if Seccion&""<>"Baires" then
OpenHTML="LIVING IN BAIRES CONTACTO