[Resolvido] Dar 'enter' no código - não tô conseguindo

[Xenofonte 0]

Galera,

 

tenho uma página que mostra a disciplina e o horario das disciplinas dos professores

mas tá mostrando tudo junto queria que tivesse um 'enter' entre cada uma delas..

to tentando aqui por um response.write "<br>", e outros modos mas nao estou conseguindo de jeito nenhum.

 

ex:

INTRODUÇÃO À FILOSOFIA [07:45] INTRODUÇÃO À FILOSOFIA [08:35] BANCO DE DADOS [10:50] THAU (THAU (ARQ I) ) [10:50] ATIV COMPL (ATIVIDADES COMPLEMENTARES) [10:50] C. SOC (CIENCIAS SOCIAIS) [16:40]

 

quero que fique assim:

INTRODUÇÃO À FILOSOFIA [07:45]

INTRODUÇÃO À FILOSOFIA [08:35]

BANCO DE DADOS [10:50]

THAU (THAU (ARQ I) ) [10:50]

ATIV COMPL (ATIVIDADES COMPLEMENTARES) [10:50]

C. SOC (CIENCIAS SOCIAIS) [16:40]

 

como faço?

 

O código tá assim:

 

'**** Montagem do calendário ****
dData = ("01/" & sMes & "/" & sAno)
	
Redim aRs2(3, iTot) 
	
For iCount=0 to iTot
	aRs2(0, iCount) = aRs(13, iCount)
	aRs2(1, iCount) = "DolConteudoAula.asp?Agenda=" & aRs(2, icount)
	If Session("DOL_Exibe_nome_disciplinas") = "S" Then
		if  Session("EXIBE_HORARIO") = "S" then
			aRs2(2, iCount) = aRs(1, iCount)&" ["&MostraHora(aRs(14, iCount))&"]"
		else
			aRs2(2, iCount) = aRs(1, iCount)&" "
		end if   
	Else
		if  Session("EXIBE_HORARIO") = "S" then
			aRs2(2, iCount) = aRs(7, iCount)&" ["&MostraHora(aRs(14, iCount))&"]"
		else
			aRs2(2, iCount) = aRs(7, iCount)&" "
		end if  
	End if  
	'response.write ("aqui" & ars2(0, icount) & "---" &ars2(1,icount) &"---"& ars2 (2, icount))
Next

qual o comando que eu tenho que fazer pra dar o 'enter' ? não tá dando certo aqui

deve ser alguma besteira.

 

 

Agradeço a ajuda.

[xanburzum 169]

olha este exemplo básico...

coloca um ("<br>"), dentro do loop

 

'abreconexao			
  'crio o rs
  set rs=Server.CreateObject("ADODB.Recordset")
  'crio o SQL
  SQL="SELECT * FROM login ORDER BY login"
  rs.open SQL,conexao,1,3
   while not rs.eof
 
 response.write(rs("login"))
response.write("<br>")
  response.write(rs("senha"))
  response.write("<br>")
   response.write(rs("email"))
rs.movenext
	  wend
	set rs=nothing
   call fechaconexao
   %   %>

[Xenofonte 0]

Não dá certo eu já tinha tentado isso..

o espaço fica acima do loop

coloquei o br assim:

 

For iCount=0 to iTot
	aRs2(0, iCount) = aRs(13, iCount)
	aRs2(1, iCount) = "DolConteudoAula.asp?Agenda=" & aRs(2, icount)
	If Session("DOL_Exibe_nome_disciplinas") = "S" Then
		if  Session("EXIBE_HORARIO") = "S" then
			aRs2(2, iCount) = aRs(1, iCount)&" ["&MostraHora(aRs(14, iCount))&"]"
		else
			aRs2(2, iCount) = aRs(1, iCount)&" "
		end if   
	Else
		if  Session("EXIBE_HORARIO") = "S" then
			aRs2(2, iCount) = aRs(7, iCount)&" ["&MostraHora(aRs(14, iCount))&"]"
		else
			aRs2(2, iCount) = aRs(7, iCount)&" "
		end if  
	End if
	[b]response.write("<br>")  [/b]
	'response.write ("aqui" & ars2(0, icount) & "---" &ars2(1,icount) &"---"& ars2 (2, icount))
Next

oq mais posso tentar?

[hargon 64]

Você quer dar enter no código fonte?

[Xenofonte 0]

quero que na página apareça do jeito que eu coloquei na descrição;

 

mas agora eu descobri que o processo de montagem entra nesse if aqui:

 

if Session("EXIBE_HORARIO") = "S" then

aRs2(2, iCount) = aRs(1, iCount)&" ["&MostraHora(aRs(14, iCount))&"]"

 

qual a sintaxe pra eu colocar o br?

to fazendo assim e não consigo:

 

aRs2(2, iCount) = aRs(1, iCount)&" ["&MostraHora(aRs(14, iCount))&"]";["&response.write("<br>")&"]

 

o que ta errado?

[hargon 64]

aRs2(2, iCount) = aRs(1, iCount)&" ["&MostraHora(aRs(14, iCount))&"]<br />"

[Xenofonte 0]

putz, valeu mesmo

tava apanhando aqui

brigadão mano. tava indo pelo lado mais difícil

coloquei 2 br e ficou massa. valeu

 

aRs2(2, iCount) = aRs(1, iCount)&" ["&MostraHora(aRs(14, iCount))&"]<br /><br />"

[hargon 64]

Que bom que resolveu. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif