<%@LANGUAGE="VBSCRIPT"%>
<%
set Reles = Server.CreateObject("ADODB.Recordset")
Reles.ActiveConnection = MM_connReleco_STRING
Reles.Source = "SELECT RELESID, CODIGO FROM RELES"
Reles.CursorType = 0
Reles.CursorLocation = 2
Reles.LockType = 3
Reles.Open()
Reles_numRows = 0
%>
<%
Function Sustituir(cadena)
Dim aux
Dim c
Dim derecha
derecha=Right(cadena,1)
c=Asc(derecha)
aux=aux+Replace(cadena,Chr(c),"...")
Sustituir=aux
End Function
%>
Descargar vídeo del 25 Aniversario.
(Tamaño 92,2Mb)
|
