<%@ Language=VBScript %>
<%
Response.Expires=0
Dim objConn
Dim objRSet
Set objConn=Server.CreateObject("ADODB.Connection")
Set objRSet=Server.CreateObject("ADODB.Recordset")
objConn.Provider="sqloledb"
objConn.Properties("Data Source").Value="BCC-WWW"
objConn.Properties("Initial Catalog").Value="BCC"
objConn.Properties("User ID").Value="bccr"
objConn.Properties("Password").Value="bccr"
objConn.Open
objRSet.Open "SELECT * FROM news ORDER BY data DESC",objConn
%>
Le news della Banca di Credito Coperativo Sala di Cesenatico
<%
while not objRSet.EOF
%>
<%=objRSet("Titolo")%>
<%
lstr=130
frmstr=""
txtstr=objRSet("testo")
frmstr=Left(txtstr,lstr)
while lstr">Segue...
