Ora sono riuscito a farlo funzionare con uno stratagemma che nemmeno io so perché mi tocca farlo

codice:
<%
clickato = Request.Querystring("clickato")
news = Request.Querystring("news")
finale = 0


Dim objConn
  	Set objConn = Server.CreateObject("ADODB.Connection")
	strConnection = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("/realcostamagna/db/Db.mdb")
	objConn.Open(strConnection)
	Set objRs = Server.CreateObject("ADODB.Recordset")
	set objRs = objConn.Execute("SELECT data, titolo, testo from news ORDER BY data DESC")

If (Not clickato) then
	news = 0
else
	for i=0 to news-1
		objRs.Movenext
	next
end if

finale = news + 5

if (news > finale) then
	response.write "Il valore di finale ="&finale&"
 Il valore di news ="&news
	news = news+1
	news = news-1
end if

Do while (news < finale) and (NOT objRs.EOF)
	response.write "<TABLE id=""cadre"">"
	response.write "<TR> <TD>"
	response.write "<FONT size=2 face=""Arial"" color=""#FFFFFF"" align=""left"">" & objRs("titolo") & "
</FONT><FONT size=2 face=""Arial"" color=""#FFFFFF"" align=""right"">" & objRs("data") & "</FONT>"
	response.write "</TR> </TD>"
	response.write "</TABLE>"
	response.write "
"
	response.write "<TABLE id=""news"">"
	response.write "<TR> <TD>"
	response.write "<FONT size=2 face=""Arial"" color=""#000000""><p align=""JUSTIFY"">" & objRs("testo") & "</p></FONT>"
	response.write "</TR> </TD>"
	response.write "</TABLE>"
	response.write "

"
	news = news + 1
	objRs.Movenext
Loop

news = news - 1
If (news > 5) then
	news1= ((news\5)*5)-5
	response.write " <-Indietro "
end if

If (NOT objRs.EOF) then
	response.write " Avanti -> "
end if

objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing

%>
Il raggiro per me improponibile è stato questo
codice:
if (news > finale) then
	response.write "Il valore di finale ="&finale&"
 Il valore di news ="&news
	news = news+1
	news = news-1
end if
cosa improponibile se andate a visualizzare la pagina entra e stampa i valori della variabili palesamente diversi ma nonostante tutto entra in quel if


buji il news1 è una variabile che ho inializzato la riga prima di quella del tuo post:
codice:
If (news > 5) then
	news1= ((news\5)*5)-5
	response.write " <-Indietro "
Speriamo che qualcuno trovi una soluzione più ortodossa...