<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim rs_visitas
Dim sql_visitas
if Session("Visitado")="" then
Session("Visitado")=False
end if
'Y ahora, miramos siempre esta variable antes de insertar
if not Session("Visitado") then
' Ponemos a verdadero
Session("Visitado")=True
' Actualizar visitas
Set sql_visitas=Server.CreateObject("ADODB.Command")
sql_visitas.ActiveConnection = MM_cn_hisnatiba_STRING
sql_visitas.CommandText = "Update Visitas Set Contador=Contador+1"
sql_visitas.Execute
sql_visitas.ActiveConnection.Close
end if
'Abrir visitas
Set rs_visitas = Server.CreateObject("ADODB.Recordset")
rs_visitas.ActiveConnection = MM_cn_hisnatiba_STRING
rs_visitas.Source = "SELECT * FROM Visitas"
rs_visitas.CursorType = 2
rs_visitas.CursorLocation = 2
rs_visitas.LockType = 1
rs_visitas.Open()
Session("visitas")=cstr(rs_visitas.Fields("Contador"))
%>
<%
Dim rs_noticias
Dim rs_noticias_numRows
Set rs_noticias = Server.CreateObject("ADODB.Recordset")
rs_noticias.ActiveConnection = MM_cn_hisnatiba_STRING
rs_noticias.Source = "SELECT * FROM Noticias ORDER BY Id DESC"
rs_noticias.CursorType = 0
rs_noticias.CursorLocation = 2
rs_noticias.LockType = 1
rs_noticias.Open()
rs_noticias_numRows = 0
%>
<%
Dim rs_actividad
Dim rs_actividad_numRows
Set rs_actividad = Server.CreateObject("ADODB.Recordset")
rs_actividad.ActiveConnection = MM_cn_hisnatiba_STRING
rs_actividad.Source = "SELECT * FROM Actividades ORDER BY Id DESC"
rs_actividad.CursorType = 0
rs_actividad.CursorLocation = 2
rs_actividad.LockType = 1
rs_actividad.Open()
rs_actividad_numRows = 0
%>
<%
Dim MM_paramName
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth
Dim MM_removeList
Dim MM_item
Dim MM_nextItem
' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If
MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""
' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
End If
Next
' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
End If
Next
' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then
MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "") Then
MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If
' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
Hisn Atiba - Principal
Eres el visitante:
Los Castillejos y el Cortijo del Tajo declarados Bienes de Interés Cultural (05/02/2008)
Castillo de la Estrella: Una maravilla de la provincia de Málaga (01/08/2007)
Aviso legal: Todos los textos y fotografías de esta web (salvo lo que expresamente así se cite) pertenecen a la Asociación para la Defensa del Patrimonio Histórico de Teba - Hisn Atiba que los expone libremente para su consulta digital. Cualquier utilización de los mismos fuera de esta web, salvo que de su propia naturaleza se desprenda la pertenencia a Hisn Atiba, deberá citar expresamente su procedencia si se trata de utilizarlos en materiales divulgativos y no lucrativos y deberá contar con la aceptación expresa de la Asociación si van a ser utilizados con fines lucrativos. Hisn Atiba se reserva la posibilidad de instar el cumplimiento de esta declaración de voluntad ante cualesquiera organismos administrativos o instancias judiciales competentes.
La Asociación para la Defensa del Patrimonio Histórico de Teba (Hisn Atiba) nació a finales de 2002 cuando un grupo de entusiastas de la Historia y más concretamente del patrimonio histórico que atesora nuestra Villa Condal de Teba, decidimos aunar nuestras ilusiones y esfuerzos para relanzar el legado que el pasado dejó a nuestro pueblo. Constituida formalmente el 1 de marzo de 2003 y con sus estatutos legalmente inscritos desde el 3 de octubre del mismo año, Hisn Atiba ha sobrepasado, a comienzos de 2006, los 160 socios cotizantes, lo que la hace la principal Asociación cultural de la Comarca del Guadalteba y una de las más importantes de toda la Provincia. Hisn Atiba ha organizado, desde su fundación un gran número de eventos culturales entre los que destacan las Jornadas Culturales sobre el Patrimonio Histórico de Teba, que en 2006 llegarán a su cuarta edición, la organización de varias conferencias y visitas guiadas al patrimonio histórico de Teba y otros lugares de Andalucía, la participación en eventos provinciales, la edición de un Boletín de difusión del patrimonio, exposiciones fotográficas, etc. etc. Hisn Atiba se dedica, también, a otras muchas actividades como asesorar desinteresadamente a cuantas instituciones públicas o privadas piden su parecer o su colaboración para cualquier tarea que directa o indirectamente tenga que ver con el patrimonio histórico, o llevar a cabo tareas de salvamento e intervención arqueológicas como las realizadas en el Cortijo del Tajo o en la necrópolis de La Lentejuela, en colaboración con la Universidad de Málaga.
Crónica del Viaje Cultural a Granada (02/02/2008)
Fotos antiguas de Teba
Únete a la Campaña para incluir el arte de las Cuevas malagueñas y gaditanas en la lista del Patrimonio Mundial de la UNESCO.
Para hacerlo pincha en el siguiente enlace y sigue las instrucciones
<%
rs_noticias.Close()
Set rs_noticias = Nothing
%>
<%
rs_actividad.Close()
Set rs_actividad = Nothing
%>
<%
rs_visitas.Close()
Set rs_visitas = Nothing
%>
