<%
Option explicit
Dim sMensajeAlUsuario
Dim conn
Dim connString
Dim strSQL
Dim rs
Dim nIdCentro
Dim bAcceso
'
%>
<%
'Funciones generales del sitio
Function imgcabecera()
Dim iHN
Dim numero
Dim pathfile
Dim ext
iHN = 5 'numero de imagenes de cabecera en la carpeta img/home/cabeceras/
pathfile = "img/home/cabeceras/imgcabecera_" 'path y comiezo del nombre de archivo
ext = ".png" 'extensión del archivo de imagen
Randomize
numero = Int(Rnd * iHN) + 1
imgcabecera = rrelat & pathfile & numero & ext
End Function
%>
<% Dim rrelat %>
<% rrelat = "../"%>
acogelos.org > un hogar para cada animal abandonado
