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