| |
|
| LE
FILIALI SAF |
|
Le nostre filiali
Cerca l'ufficio o la filiale più vicina:
|
|
|
|
| ULTIMA
NEWS |
| |
<%
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath ("../dati/data.mdb")
sql = "SELECT TOP 1 * FROM CATALOGO2 WHERE (TIPO = 'NEWS') ORDER BY IDCATALOGO2 DESC"
rs.open sql, conn, 1, 3
If rs.Eof=True or rs.Bof=True then
Response.Write("Al momento non ci sono news!")
Else
For i=1 to 3
If rs.Eof=False Then
Response.Write("" & rs("TITOLO") & "
")
Response.Write("" & Left(rs("DESCRIZIONE"),50) & "
")
Response.Write("dettagli...
")
rs.MoveNext
End If
Next
End If
%> |
|
|
|
|
