<% Response.CodePage = 65001 Response.charset="utf-8" %> BAIRES GROUP - Proyectos de Fidelización / VideoBlog <% Set upl = Server.CreateObject("Persits.Upload") upl.IgnoreNoPost = True upl.OverwriteFiles = True upl.Save If upl.TotalBytes > 0 and upl.form("action") = "publicar" then Set File = upl.Files("archivo") end if If upl.form("action") = "publicar" then If upl.form("nombre") <> "" and upl.form("email") <> "" and upl.form("titulo") <> "" and upl.form("descripcion") <> "" and (not File Is Nothing or upl.form("link") <> "" ) then If not File Is Nothing Then File.SaveAs request.serverVariables("APPL_PHYSICAL_PATH")& "/videos/"& upl.Files("archivo").FileName archivo = upl.Files("archivo").FileName end if sql = "insert into VideosSugeridos (nombre, email, video, link, titulo, descripcion) select " & strsql(upl.form("nombre")) &","& strsql(upl.form("email")) &","& strsql(archivo)&","& strsql(upl.form("link")) &","& strsql(upl.form("titulo")) &","& strsql(upl.form("descripcion")) conn.Execute(sql) mensaje = upl.form("nombre") & ", Muchas Gracias por compartir su video, dentro de las proximas 24hs estaremos evaluando el contenido del mismo y publicandolo al VideoBLog." conn.execute "Exec sp_send_cdontsmail 'info@bairesgroup.com.ar','" & upl.form("email") & "'," & "'VideoBlog'" & ", @Body='"& mensaje &"'" 'Envia Mail Set mails = Server.CreateObject("ADODB.RecordSet") mails.Open "SELECT mail FROM Formularios AS F INNER JOIN Rel_Mail_Formulario AS R ON F.id = R.id_formulario INNER JOIN MailsBaires M ON M.id = R.id_mail WHERE (F.formulario = 'Publicar_video')", conn envio_mail = "" while not mails.EOF envio_mail = envio_mail & mails.Fields("mail").Value & "," mails.MoveNext Wend envio_mail = "'" & mid(envio_mail, 1, len(envio_mail) -1) & "'" mensaje = "Se ha publicado un nuevo video: "& upl.form("titulo") & Chr(13) &"Nombre: " & upl.form("nombre") & Chr(13)& "email: " & upl.form("email") & Chr(13)& "link: " & upl.form("link") & Chr(13)&"titulo: " & upl.form("titulo") & Chr(13)& "descripcion: " & upl.form("descripcion") & Chr(13)& "file: " & archivo conn.execute "Exec sp_send_cdontsmail 'info@bairesgroup.com.ar'," & envio_mail & "," & "'VideoBlog: Publicar un video'" & ", @Body='"& mensaje &"'" response.redirect "videoblog.asp" else Error("Debe completar los datos") end if end if %>
HOME LA EMPRESA GRANDES EMPRESAS PYMES Y RETAIL TECNOLOGÍA BAIRES PREMIUM
    

Comparte tus experiencias con nosotros

Congresos, temas de debate, Novedades Tecnológicas, Herramientas Creativas, Publicidad, Marketing y muchos temas que podes compartir en el VideoBLog.


 Compartir un video
Nombre:
E-Mail:
Adjuntar Video:
 
Link Video (Youtube):

Titulo:
Descripción del Video:
 
Baires Group :: Proyectos de Fidelización     |     Bolívar 1059, San Telmo - Bs. As. Argentina    |     +54 11 5275 8400     |     info@baires-group.com.ar