<%@LANGUAGE="VBSCRIPT"%>
_
Twitter twitter  
E-mail E-mail

NOTÍCIA

<% If (CStr(Request("id")) <> "") Then set rsTexto = Server.CreateObject("ADODB.Recordset") rsTexto.ActiveConnection = MM_connDUportal_STRING rsTexto.Source = "select data, titulo, texto from flfnoticiasticker where id=" & Request("id") rsTexto.CursorType = 0 rsTexto.CursorLocation = 2 rsTexto.LockType = 3 rsTexto.Open() rsTexto_numRows = 0 if (rsTexto.EOF<>true) then dim titulo,data,texto titulo = rsTexto.Fields("titulo").Value data = rsTexto.Fields("data").Value texto = rsTexto.Fields("texto").Value Response.Write(data & " - " & titulo & "
") Response.Write(texto) else Response.Write("Link Removido!") end if rsTexto.Close() End If %>