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

DESTAQUES

Escolha o tamanho do texto: A A A
<% If (CStr(Request("id")) <> "") Then set rsTexto = Server.CreateObject("ADODB.Recordset") rsTexto.ActiveConnection = MM_connDUportal_STRING rsTexto.Source = "select data, titulo, texto from flfnoticias where id=" & Request("id") rsTexto.CursorType = 0 rsTexto.CursorLocation = 2 rsTexto.LockType = 3 rsTexto.Open() rsTexto_numRows = 0 dim titulo titulo = rsTexto.Fields("titulo").Value dim data data = rsTexto.Fields("data").Value dim texto texto = rsTexto.Fields("texto").Value rsTexto.Close() 'Response.Write(data & " - " & titulo & "
") Response.Write(texto) End If %>