<%@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
%>
 
Descarregar vídeo do 25º Aniversário. ( 92,2Mb)
|
