<% Response.CodePage = 65001 Response.charset="utf-8" %> BAIRES GROUP - Proyectos de Fidelización / VideoBlog <% If request.Form("action") = "actualizar" then sql = "insert into ComentarioXVideo (email, comentario, id_video, fecha, nombre) select " & strsql(request.form("email")) &","& strsql(request.form("comentario")) &","& request.item("id")&",getdate(),"& strsql(request.form("nombre")) conn.Execute(sql) mensaje = "Gracias por dejarnos su comentario en el tema:" & request.Form("titulo") conn.execute "Exec sp_send_cdontsmail 'info@bairesgroup.com.ar','" & request.form("email") & "'," & "'Muchas Gracias!'" & ", @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 comentario en el tema: " & request.Form("titulo") & Chr(13) & "Nombre: " & request.form("nombre") & Chr(13)& "email: " & request.form("email")& Chr(13)& "comentario: " & request.form("comentario") & Chr(13) & "Link: http://www.baires-group.com.ar/videoblog_tema.asp?id=" & request.item("id") conn.execute "Exec sp_send_cdontsmail 'info@bairesgroup.com.ar'," & envio_mail & "," & "'VideoBlog: Comentar un video'" & ", @Body='"& mensaje &"'" end if Set reg = Server.CreateObject("ADODB.RecordSet") reg.Open "SELECT * FROM VideoBlog where id="& request.item("id"), conn Set coment = Server.CreateObject("ADODB.RecordSet") coment.Open "SELECT * FROM ComentarioXVideo where id_video="& request.item("id"), conn Set cant = Server.CreateObject("ADODB.RecordSet") cant.Open "SELECT count(*) cant FROM ComentarioXVideo where id_video="& request.item("id"), conn %>
HOME LA EMPRESA GRANDES EMPRESAS PYMES Y RETAIL TECNOLOGÍA BAIRES PREMIUM
 

Enterate de todos los avances, novedades, temas de debate, nuevas aplicaciones y todo lo que te interesaría saber del mundo del marketing, creatividad y nuevas herramientas que Baires Group desarrolla para sus clientes.

Comparte tus experiencias con nosotros aquí

 <%=reg.Fields("titulo")%>
<% i = 0 Do while not coment.EOF i = i +1%> <% coment.Movenext() loop %>
<%=reg.Fields("video")%>  
<%=reg.Fields("comentario")%>
Comentarios (<%=cant.Fields("cant")%>)
<%=i%> <%=coment.Fields("nombre")%> dijo,
<%=coment.Fields("comentario")%>

<%=coment.Fields("fecha")%>
 Tu Comentario
 Nombre:
 E-Mail: (no se mostrará en la publicación)

"> ">
 Compartir este video  " size="60" />
 
 
Más Temas:
<% Set reg = Server.CreateObject("ADODB.RecordSet") reg.Open "SELECT * FROM VideoBlog order by titulo", conn %> <% Do while not reg.EOF %> <% reg.Movenext() loop %>
">► <%=reg.Fields("titulo")%>
 
 
 
Baires Group :: Proyectos de Fidelización     |     Bolívar 1059, San Telmo - Bs. As. Argentina    |     +54 11 5275 8400     |     info@baires-group.com.ar