<%
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,seccion
dim OpenHTML
Dim Submited
Submited = Request.querystring("Submited")
If Submited = empty then Submited = False
If Submited then
Nombre = Request.Form("txtNombre") & ""
Apellido = Request.Form("txtApellido") & ""
Email = Request.Form("txtEmail") & ""
Pais = Request.Form("txtPais") & ""
Edad = Request.Form("txtEdad") & ""
Profesion = Request.Form("txtProfesion") & ""
COmentarios = Request.Form("txtComentarios") & ""
News = cdbl(request.Form("News"))
dim SINo
if News then
SiNo="Si"
else
SiNo="No"
end if
%>
<%
if Seccion&""<>"Baires" then
OpenHTML="LIVING IN BAIRES CONTACTO