<% cnpath="DBQ=d:\www.bsline.com.br\novo\colunas\colunas.mdb;Driver={Microsoft Access Driver (*.mdb)};3,3" DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSource 'Abre o Recordset Set RS = Server.CreateObject( "ADODB.Recordset" ) RS.ActiveConnection = conn set rs=conn.execute("select*from Colunas where id="&request.querystring("id")&"") %>

	<%=rs("manchete")%> ','cdc','scrollbars=yes,width=235,height=350,left=130,top=300')"><%=rs("autor")%> <%sysnoticia = rs("noticia")%> <%response.write replace(sysnoticia, vbcrlf," ") %>