|

<%
Dim oConn, rs, SQL, NoticiaP1, NoticiaP2
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("/cat/noticies.mdb")&";"
'oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("../noticies.mdb")&";"
SQL="SELECT * FROM Noticies Where IdNoticia = " & Id_noticia & ""
rs.Open SQL, oConn, 1, 2
if rs.EOF then
Response.Write("No hi ha cap notícia")
End If
do while not rs.EOF
NoticiaP1 = CSTR(rs.Fields("NoticiaP1"))
NoticiaP1 = Replace(NoticiaP1,vbCrLf," ")
NoticiaP2 = rs.Fields("NoticiaP2")
If NoticiaP2 <> "" Then
NoticiaP2 = CSTR(rs.Fields("NoticiaP2"))
NoticiaP2 = Replace(NoticiaP2,vbCrLf," ")
Else
NoticiaP2 = ""
End If
%>
<%=rs.Fields("Titol")%> |