<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% set cn = Server.CreateObject("ADODB.connection") Set rstmp = Server.CreateObject("ADODB.Recordset") Set rstmp1 = Server.CreateObject("ADODB.Recordset") Set rstmp2 = Server.CreateObject("ADODB.Recordset") cn.open VarConn rstmp.Open "select * from noticias order by id desc",cn if not rstmp.EOF then titulo=replace(rstmp.Fields("titulo"),chr(34),"") contenido=replace(left(rstmp.Fields("ENTRADILLA"),200),chr(34),"") ID=rstmp.Fields("ID") end if rstmp.Close() %>