metti la prima parte di cod in una pagina

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 
if rec.bof or rec.eof then
response.write("nessun record")
else
count=rec.recordcount
for i = 1 to count
rec.absolutepage=cint(i)
 response.write "<a href=PaginaDettaglio.asp?id="&rec("id")&"  target=nomerame>"&rec("id")&"</a>
"
next

%>
e nel frame metti questo

codice:
<%
'quando passi id ti conviene usare cint()	
id = cint(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,". ",". 
") 
%>