Consulta asp

[lopezcanela1988]

Hola que tal haber si me puede ayudar tengo el siguiente codigo

Código:

Set jr_acnpp_cmd = Server.CreateObject ("ADODB.Command")
			jr_acnpp_cmd.ActiveConnection = MM_con_rh_STRING
			jr_acnpp_cmd.CommandText = "SELECT perso.ad_rfc, perso.per_nomcor,advo.pto_cve,advo.niv_cve,centrab.ct_nombre,centrab.ct_cve FROM perso INNER JOIN advo INNER JOIN centrab  ON perso.ad_rfc=advo.ad_rfc ON advo.ct_cve=centrab.ct_cve WHERE advo.pto_cve NOT LIKE 'CF%' and (m_cve < 200 or m_cve > 250 and m_cve <> 330) AND advo.ad_cont=1 ORDER BY ct_nombre, ad_rfc" 
			jr_acnpp_cmd.Prepared = true
			Set jr_acnpp = jr_acnpp_cmd.Execute
			regis = jr_acnpp.GetRows
			nom_sind="GENERAL"

y lo escribo en un txt asi

Código:

While  NOT jr_acnpp.EOF
	  
		ct_cve    = jr_acnpp("ct_cve")
		ct_nombre = jr_acnpp("ct_nombre")
		CALL encabezado(t_anio,t_trime,ct_cve,ct_nombre,nom_sind)
		nombre=(jr_acnpp.Fields.Item("per_nomcor").Value)      
		longi_nombre=len(nombre)
		espa_nom=26-longi_nombre
		act.WriteLine (jr_acnpp.Fields.Item("ad_rfc").Value)&space(1)&nombre&space(espa_nom)&(jr_acnpp.Fields.Item("pto_cve").Value)&(jr_acnpp.Fields.Item("niv_cve").Value)&"   ___   ___   ___   ___   ___   ___"
		act.WriteLine Chr(12)
		jr_acnpp.MoveNext()

	Wend

lo que necesito es saber como comprar si ya cambio el ct_nombre por que necesito poner todos los registros de un ct_nombre juntos y si lo hago tal y como esta ahi me los pone uno por pagina