<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Observatorio de la Discapacidad - Excmo Ayuntamiento de La Roda
<%
Function tex(cadena)
cadena = Replace(cadena,vbCrLf," ")
tex = cadena
End Function
Const totalzonas = 5
Randomize
Dim foto
zona = Int((totalzonas * Rnd) + 1)
if zona =1 then
foto="arriba2.jpg"
end if
if zona =2 then
foto="arriba2_2.jpg"
end if
if zona =3 then
foto="arriba2_3.jpg"
end if
if zona =4 then
foto="arriba2_4.jpg"
end if
if zona =5 then
foto="arriba2_5.jpg"
end if
%>
<%
hora=Time()
hora1=CDate("7:25:50")
hora2=CDate("19:25:50")
if hora>hora1 and hora
<%
sSQL="SELECT * FROM videos where id="&request.QueryString("id")
%>
<%=rs("titulo")%>
<%=rs("descripcion")%>
<%
RS.Close
Conn.Close
Set result = Nothing
Set con = Nothing
%>
