<%@LANGUAGE="VBSCRIPT"%> <% Dim Premsa__MMColParam Premsa__MMColParam = "1" if (Request.QueryString("ID") <> "") then Premsa__MMColParam = Request.QueryString("ID") %> <% set Premsa = Server.CreateObject("ADODB.Recordset") Premsa.ActiveConnection = MM_easem_STRING Premsa.Source = "SELECT * FROM Premsa WHERE ID = " + Replace(Premsa__MMColParam, "'", "''") + "" Premsa.CursorType = 0 Premsa.CursorLocation = 2 Premsa.LockType = 3 Premsa.Open() Premsa_numRows = 0 %> Easem_cat
easem@andorra.ad
Article de premsa
       
<%=(Premsa.Fields.Item("Titol").Value)%> <%=(Premsa.Fields.Item("Data").Value)%>

Font: <%=(Premsa.Fields.Item("Publicacio").Value)%>

<%=Replace(Premsa.Fields.Item("Contingut").Value,Chr(13),"
")%>


 
<% Premsa.Close() %>