mi aiuti a scriverlo visto che

questo è il codice che raccoglie i titoli delle news

codice:
<%
	page = trim(request.querystring("page")) 
	Dim strLine
	If page = "" Then
	page = 1
	else
	page = cint(page)
	End If


	DisplayNum = 0
	Set oCon = Server.CreateObject ("ADODB.Connection")
	Set Rec = Server.CreateObject ("ADODB.Recordset")

	oCon.Open strCon

	Rec.PageSize = 15
	Rec.CursorLocation = adUseClient		
	ID = trim(request.querystring("IDnews"))
	sql = "Select newsletters.titolo, newsletters.ID, ISAAA.data from newsletters, ISAAA where newsletters.IDNews = "& ID & "and ISAAA.IDNews=" & ID
	'sql = "Select * from newsletters where IDnews = "& ID
	Rec.Open sql, oCon %>
e questo quello della pagina che aprivo e copnteneva la news completa

codice:
<%
	id = trim(request.querystring("id")) 
	if id = "" OR isNumeric(id) = false then
		response.redirect "default.asp"
	end if
	Set Con = Server.CreateObject ("ADODB.Connection")
	Con.Open strCon
	sql = "Select * from newsletters where id = "& id
	set Rec = Con.execute(sql)%>

<%response.write "" & Rec("titolo") & ""%>
 <% 
str = rec("corpo") 
response.write replace(str,". ",". 
") 
%>