02/06/2005, 11:56
|
 | | | Fecha de Ingreso: noviembre-2003 Ubicación: Esporles, Mallorca, España
Mensajes: 690
Antigüedad: 21 años, 7 meses Puntos: 4 | |
Código:
<%@LANGUAGE="VBScript"%>
<!--#include virtual="/Connections/Esporlesbc.asp"-->
<%
set Novetats = Server.CreateObject("ADODB.Recordset")
Novetats.ActiveConnection = MM_Esporlesbc_STRING
Novetats.Source = "SELECT * FROM Novetats WHERE Acceptat=1"
Novetats.CursorType = 0
Novetats.CursorLocation = 2
Novetats.LockType = 1
Novetats.Open()
set Novetats_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
body {
background-color: #FFCC99;
}
-->
</style></head>
<body topmargin="0" bottommargin="0" >
<table width="560" border="0" align="left" cellpadding="0" cellspacing="3">
<tr>
<td><table width="560" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000">
<tr>
<td bgcolor="#CC9933"><div align="center"><strong>Novetats</strong></div></td>
</tr>
</table></td>
</tr>
<%
If Request.Cookies("usuari") <> "" Then
nueva="0"
Else
nueva="1"
End if
If nueva="1" Then
%> <tr>
<td><table width="560" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000" bgcolor="#FFFF66">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="56%"><% Response.Write(Novetats.Fields("Titol")) %>
</td>
<td width="44%"><div align="right"><% Response.Write(Novetats.Fields("Data")) %></div></td>
</tr>
</table></td>
</tr>
<tr>
<td><div align="center">
<p><% Response.Write(Novetats.Fields("Novetat")) %></p>
<p> </p>
<table width="30%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center"><strong>Comentaris (5) </strong></div></td>
</tr>
</table>
</div></td>
</tr>
</table></td>
</tr>
<% Else %>
<tr>
<td><table width="560" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000" bgcolor="#FFFF99">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="56%"><% Response.Write(Novetats.Fields("Titol")) %></td>
<td width="44%"><div align="right">
<% Response.Write(Novetats.Fields("Data")) %>
</div></td>
</tr>
</table></td>
</tr>
<tr>
<td><div align="center">
<p>
<% Response.Write(Novetats.Fields("Novetat")) %>
</p>
<p> </p>
<table width="30%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center"><strong>Comentaris (5) </strong></div></td>
</tr>
</table>
</div></td>
</tr>
</table></td>
</tr>
<% End If %>
</table>
</body>
</html>
|