<%@LANGUAGE="VBSCRIPT"%> <% Dim content__MMColParam content__MMColParam = "1" If (Request.QueryString("content_id") <> "") Then content__MMColParam = Request.QueryString("content_id") End If %> <% Dim content Dim content_numRows Set content = Server.CreateObject("ADODB.Recordset") content.ActiveConnection = MM_lachispa_STRING content.Source = "SELECT * FROM lachispa.content WHERE content_id = " + Replace(content__MMColParam, "'", "''") + " ORDER BY fecha DESC" content.CursorType = 0 content.CursorLocation = 2 content.LockType = 1 content.Open() content_numRows = 0 %> <% Dim area Dim area_numRows Set area = Server.CreateObject("ADODB.Recordset") area.ActiveConnection = MM_lachispa_STRING area.Source = "SELECT * FROM lachispa.area ORDER BY area_id ASC" area.CursorType = 0 area.CursorLocation = 2 area.LockType = 1 area.Open() area_numRows = 0 %> La Chispa :: Vida Natural en Andalucía
<% Response.write(MonthName(DatePart("m", Date()),true) & " " & DatePart("d", Date()) & ", " & DatePart("yyyy", Date())) %>
BÚSQUEDA
+
Articles News Events
contenidos
 

 

<%=(content.Fields.Item("content_title_spa").Value)%>

<%=(content.Fields.Item("content_spa").Value)%>
" target="_blank"> <% If content.Fields.Item("pdf_file").Value <> ("") Then 'script %> PDF <% End If ' end If content.Fields.Item("pdf_file").Value <> ("") script %> Mail to a friend','Envio','fullscreen=no,toolbar=no,location=no,status=no,menubar=no,scrollbars=no,resizable=no,channelmode=no,directories=no',300,300,'center','ignoreLink','',0,'',0,1,5,'');return document.MM_returnValue" />Print

 

  
   

links + contacto

 
<% content.Close() Set content = Nothing %> <% area.Close() Set area = Nothing %>