<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim rsEdicio
Dim rsEdicio_numRows
Set rsEdicio = Server.CreateObject("ADODB.Recordset")
rsEdicio.ActiveConnection = MM_connWebdata_STRING
rsEdicio.Source = "SELECT * FROM edicio"
rsEdicio.CursorType = 0
rsEdicio.CursorLocation = 2
rsEdicio.LockType = 1
rsEdicio.Open()
rsEdicio_numRows = 0
%>
<%
'Si han especificat una data d'edició a la base de dades, la agafo. Sino, agafo el dia d'avui. ACTUALITZAT: Sempre hi haura la data a la BDD. JTA 1/2/2005
if rsEdicio.Fields.Item("dia").Value <> "" then
edicio = day(rsEdicio.Fields.Item("dia").Value) & "/" & month(rsEdicio.Fields.Item("dia").Value) & "/" & year(rsEdicio.Fields.Item("dia").Value)
edicioamd = year(rsEdicio.Fields.Item("dia").Value) & "/" & month(rsEdicio.Fields.Item("dia").Value) & "/" & day(rsEdicio.Fields.Item("dia").Value)
else
edicio = day(date()) & "/" & month(date()) & "/" & year(date())
edicioamd = year(date()) & "/" & month(date()) & "/" & day(date())
end if
%>
<%
rsEdicio.Close()
Set rsEdicio = Nothing
%>
<%
'Si han passat una data per paràmetre de la hemeroteca, la agafo. Sino, continuo amb la data edicio que he omplert 10 linies abans.
etsa = "Portada"
if request.querystring("data") <> "" then
edicio = day(request.querystring("data")) & "/" & month(request.querystring("data")) & "/" & year(request.querystring("data"))
edicioamd = year(request.querystring("data")) & "/" & month(request.querystring("data")) & "/" & day(request.querystring("data"))
if edicio <> day(date()) & "/" & month(date()) & "/" & year(date()) then
etsa = "Hemeroteca"
end if
end if
%>
Comunicació21.com > Contacte
Ets a: