While dentro do fckeditor

[Mauriciodellafina 0]

Saudações,

 

Estou querendo montar um modelo de documento dentro do fckeditor para editar qdo for o caso, sendo que aproveito algumas informações do banco de dados.

 

O problema que tem um campo (nome) que deverá mostrar mais de um resultado. Pensei em colocar um While pra resolver isso, mas não estou conseguindo. Onde estou errando?

 

Segue parte do código:

 

			<%
		Dim oFCKeditor, tipmandado, proc, sufi, jui, varj, rus, nume, compl, bair, cm, nom
		tipmandado = Recordset1("tipomandado")
		proc =  Recordset1("processo")
		sufi = Recordset1("sufixo")
		jui = Recordset1("juiz")
		varj = Recordset1("vara")
		rus = Recordset5("rua")
		nume = Recordset5("nr")
		compl = Recordset5("complementos")
		bair = Recordset5("bairro")
		cm = Recordset1("dcm")
		rau = Recordset5("rua")


		nom = While Not  Recordset5.EOF 	Recordset5("nome")	Recordset5.MoveNext  Wend

		Set oFCKeditor = New FCKeditor
		oFCKeditor.BasePath = "" 
		oFCKeditor.Value = "CERTIFICO QUE em cumprimento ao r. mandado de "& tipmandado & " extraido dos autos n.º "& proc & " emitido " & sufi & " " & jui & " em trâmite na " & varj & ", em ...... na " & rus & " " & nume & " " & compl & " no bairo " & bair & " e após as formalidades legais e de estilo, procedi a " & tipmandado & " da parte " & nom & " o qual bem ciente ficou de todo o conteúdo do r. mandado que lhe li, aceitou a contrafé e consignou sua assinatura no verso do mandado."
		oFCKeditor.Create "idmandado"
	%>

[Vinicius Ianni 189]

Veja se assim dá certo:

 

<%
		Dim oFCKeditor, tipmandado, proc, sufi, jui, varj, rus, nume, compl, bair, cm, nom
		tipmandado = Recordset1("tipomandado")
		proc =  Recordset1("processo")
		sufi = Recordset1("sufixo")
		jui = Recordset1("juiz")
		varj = Recordset1("vara")
		rus = Recordset5("rua")
		nume = Recordset5("nr")
		compl = Recordset5("complementos")
		bair = Recordset5("bairro")
		cm = Recordset1("dcm")
		rau = Recordset5("rua")
		Set oFCKeditor = New FCKeditor


		While Not  Recordset5.EOF 	
		nom = Recordset5("nome")	
		oFCKeditor.BasePath = "" 
		oFCKeditor.Value = "CERTIFICO QUE em cumprimento ao r. mandado de "& tipmandado & " extraido dos autos n.º "& proc & " emitido " & sufi & " " & jui & " em trâmite na " & varj & ", em ...... na " & rus & " " & nume & " " & compl & " no bairo " & bair & " e após as formalidades legais e de estilo, procedi a " & tipmandado & " da parte " & nom & " o qual bem ciente ficou de todo o conteúdo do r. mandado que lhe li, aceitou a contrafé e consignou sua assinatura no verso do mandado."
		oFCKeditor.Create "idmandado"

		Recordset5.MoveNext  
		Wend

	%>

[Mauriciodellafina 0]

Ola Vinicius,

 

 

Ainda não deu certo, só aparece o primeiro ou o ultimo registro. Acho q a variável "nom" só armazena um registro.Se alguém tiver algum outro caminho ... agradeço.

 

 

 

Veja se assim dá certo:

 

<%
		Dim oFCKeditor, tipmandado, proc, sufi, jui, varj, rus, nume, compl, bair, cm, nom
		tipmandado = Recordset1("tipomandado")
		proc =  Recordset1("processo")
		sufi = Recordset1("sufixo")
		jui = Recordset1("juiz")
		varj = Recordset1("vara")
		rus = Recordset5("rua")
		nume = Recordset5("nr")
		compl = Recordset5("complementos")
		bair = Recordset5("bairro")
		cm = Recordset1("dcm")
		rau = Recordset5("rua")
		Set oFCKeditor = New FCKeditor


		While Not  Recordset5.EOF 	
		nom = Recordset5("nome")	
		oFCKeditor.BasePath = "" 
		oFCKeditor.Value = "CERTIFICO QUE em cumprimento ao r. mandado de "& tipmandado & " extraido dos autos n.º "& proc & " emitido " & sufi & " " & jui & " em trâmite na " & varj & ", em ...... na " & rus & " " & nume & " " & compl & " no bairo " & bair & " e após as formalidades legais e de estilo, procedi a " & tipmandado & " da parte " & nom & " o qual bem ciente ficou de todo o conteúdo do r. mandado que lhe li, aceitou a contrafé e consignou sua assinatura no verso do mandado."
		oFCKeditor.Create "idmandado"

		Recordset5.MoveNext  
		Wend

	%>