<%@LANGUAGE="VBSCRIPT"%> <% dim video if request("video")="" then video="darknight3" else video=request("video") end if Dim nuevos Dim nuevos_numRows Set nuevos = Server.CreateObject("ADODB.Recordset") nuevos.ActiveConnection = MM_webtivi_STRING nuevos.Source = "SELECT * FROM webtivi.videos ORDER BY id DESC" nuevos.CursorType = 0 nuevos.CursorLocation = 2 nuevos.LockType = 1 nuevos.Open() nuevos_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 15 Repeat1__index = 0 nuevos_numRows = nuevos_numRows + Repeat1__numRows %> webtivi : Video & Television online <% autos="on" musica="on" deportes="on" cine="on" tecno="on" television="on" Do while NOT nuevos.EOF and cant < 6 if nuevos.fields("cat")="autos" and Autos="on" then anombre=nuevos.fields.item("nombre") acat=nuevos.fields.item("cat") asubcat=nuevos.fields.item("subcat") aidv=nuevos.fields.item("idv") aurl=nuevos.fields.item("url") autos="off" cant=cant + 1 else if nuevos.fields("cat")="musica" and Musica="on" then mnombre=nuevos.fields.item("nombre") mcat=nuevos.fields.item("cat") msubcat=nuevos.fields.item("subcat") midv=nuevos.fields.item("idv") murl=nuevos.fields.item("url") musica="off" else if nuevos.fields("cat")="Deportes" and deportes="on" then dnombre=nuevos.fields.item("nombre") dcat=nuevos.fields.item("cat") dsubcat=nuevos.fields.item("subcat") didv=nuevos.fields.item("idv") durl=nuevos.fields.item("url") deportes="off" cant=cant + 1 else if nuevos.fields("cat")="Tecno" and tecno="on" then tecnombre=nuevos.fields.item("nombre") teccat=nuevos.fields.item("cat") tecsubcat=nuevos.fields.item("subcat") tecidv=nuevos.fields.item("idv") tecurl=nuevos.fields.item("url") tecno="off" cant=cant + 1 else if nuevos.fields("cat")="Television" and television="on" then telnombre=nuevos.fields.item("nombre") telcat=nuevos.fields.item("cat") telsubcat=nuevos.fields.item("subcat") telidv=nuevos.fields.item("idv") telurl=nuevos.fields.item("url") television="off" cant=cant + 1 else if nuevos.fields("cat")="Cine" and cine="on" then cinnombre=nuevos.fields.item("nombre") cincat=nuevos.fields.item("cat") cinsubcat=nuevos.fields.item("subcat") cinidv=nuevos.fields.item("idv") cinurl=nuevos.fields.item("url") cine="off" cant=cant + 1 end if end if end if end if end if end if nuevos.movenext loop %>
 
 Cine & Series / Cine Independiente   /  Lo mejor del cine la musica y la actualidad
 Dark Night 3
 Cine / Estrenos  
 Dark Night 3
 Cine / Estrenos  
 Dark Night 3
 Cine / Estrenos  
   
 Ultimos Contenidos Actualizados   /  Lo mejor del cine la musica y la actualidad
Dark Night 3
Cine / Estrenos  
Dark Night 3
Cine / Estrenos  
Dark Night 3
Cine / Estrenos  
 Ultimos Contenidos Actualizados   /  Lo mejor del cine la musica y la actualidad
Dark Night 3
Cine / Estrenos  
Dark Night 3
Cine / Estrenos  
Dark Night 3
Cine / Estrenos  
 
 

El argumento de esta secuela se centrará en la despedida de soltero de Stu (el dentista) que tiene lugar en la capital de Tailandia, Bangkok.
 

 

<% nuevos.Close() Set nuevos = Nothing %>