<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str
sSql = "SELECT codigo,titulo,copete,fecha FROM Noticias Where principal=true "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sSql, conn, 3, 1
rs.Movefirst%> <%response.write " " & rs("titulo")%>
<%response.write truncatememo(rs("Copete"),150)
%> |
<%
rs.close
set rs = nothing
conn.close
Set conn = nothing
%>
