Andare a capo

[Ezekiel82]

Ciao a tutti ho un problema ...ho inserito dei dati in un database nel campo News(150 caratteri) e voglio vederli su una pagina web..pero ho il problema che mi visualizza i 150 caratteri tutti su una riga senza mai andare a capo e quindi mi va anke a deformare tutta la pagina ....Sapete come posso fare vi invio anke il codice


Codice:
Set Connessione = Server.CreateObject("adodb.connection")
Connessione.Open = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("registrazione2/mdb-database/utenti.mdb")
Sql = "SELECT TOP 1 nome,dataregistrazione FROM tbl_Authors order by dataregistrazione DESC "

Set Esempi1 = Connessione.Execute(Sql)



Do While Not Esempi.Eof %>

<%=Esempi("News")%>
</p>

<% ' Vai al prossimo record
Esempi.MoveNext

Loop

Esempi.Close
Set Esempi = Nothing
Connessione.Close
Set Connessione = Nothing
%>

[maximum]

Nella pagina che esegue l'inserimento della news sul db, prima dell'inserimento medesimo, fai così:

news = trim(request.form("news"))
news = replace(news, vbcrlf, "
")

dove:

- vbcrlf rappresenta l'invio da tastiera.
-
è "a capo" in HTML.

[Ezekiel82]

ma ogni quantoi tot caratteri va a capo???
grazie

[maximum]

Tutte le volte che dai invio da tastiera, ASP manderà a capo il tuo testo.

[Ezekiel82]

Ah ora ho capito....quindi tutte le volte che inserisco dei dati nel campo News con quella procedura ogni volta che do invio mi va a capo...Pero quello che volevo sapere io e se possso fare la stessa cosa quando dal database li volgio estrarre e fare apparire nella pagina web che dopo ogni tot caratteri mi va capo

[albis]

secondo me per fare quello che dici tu
la cosa migliore è mettere il testo della news
in una cella di una table a larghezza fissa
così il testo andrà a capo automaticamente senza troncare le parole

[maximum]

In questo caso, dai un'occhiata a questa funzione:

<%
Function dividiStringa(sStr, iInizio, iProg)

	Dim sTesto 
	Dim lLenght
	Dim sFinal 

	If Len(sStr) > 20 Then
	   If Mid(sStr, 21, 1) = " " Then
		  sFinal = Mid(sStr, 1, 20) & "
"
  	  	  response.write(sFinal)
		  sTesto = Mid(sStr, 22, Len(sStr) - 21)
		  iProg = iProg + 1
		  dividiStringa sTesto, 1, iProg
	   Else
		  lLenght = InStrRev(Mid(sStr, 1, 20), " ")
		  If Not lLenght = 0 Then
			 sFinal = Mid(sStr, 1, lLenght) & "
" 
	  	  	 response.write(sFinal)
			 sTesto = Mid(sStr, lLenght + 1, Len(sStr) - lLenght)
		  Else
			 sFinal = Mid(sStr, 1, 20) & "
" 
  	  	     response.write(sFinal)
			 sTesto = Mid(sStr, 20 + 1, Len(sStr) - 20)
		  End If
		  iProg = iProg + 1
		  dividiStringa sTesto, 1, iProg
	   End If
	ElseIf Len(sStr) <= 20 And Len(sStr) <> 0 Then
		 sFinal = sStr
 	  	 response.write(sFinal)
	End If

End Function

response.write(dividiStringa("Ciao, questa è una prova di come funziona l'algoritmo ricorsivo di spezzatura di stringhe troppo lunghe!",1,1))
%>

[Ezekiel82]

GRAZIE questa è una funzione che sto cercando di fare funzionare ma nn riesco ad implementarla con il codice che ti ho dato sopra...sapresti darmi qualke dritta??

grazie

[maximum]

Prova così:

Function dividiStringa(sStr, iInizio, iProg)

	Dim sTesto 
	Dim lLenght
	Dim sFinal 

	If Len(sStr) > 20 Then
	   If Mid(sStr, 21, 1) = " " Then
		  sFinal = Mid(sStr, 1, 20) & "
"
  	  	  response.write(sFinal)
		  sTesto = Mid(sStr, 22, Len(sStr) - 21)
		  iProg = iProg + 1
		  dividiStringa sTesto, 1, iProg
	   Else
		  lLenght = InStrRev(Mid(sStr, 1, 20), " ")
		  If Not lLenght = 0 Then
			 sFinal = Mid(sStr, 1, lLenght) & "
" 
	  	  	 response.write(sFinal)
			 sTesto = Mid(sStr, lLenght + 1, Len(sStr) - lLenght)
		  Else
			 sFinal = Mid(sStr, 1, 20) & "
" 
  	  	     response.write(sFinal)
			 sTesto = Mid(sStr, 20 + 1, Len(sStr) - 20)
		  End If
		  iProg = iProg + 1
		  dividiStringa sTesto, 1, iProg
	   End If
	ElseIf Len(sStr) <= 20 And Len(sStr) <> 0 Then
		 sFinal = sStr
 	  	 response.write(sFinal)
	End If

End Function

Set Connessione = Server.CreateObject("adodb.connection") 
Connessione.Open = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("registrazione2/mdb-database/utenti.mdb") 
Sql = "SELECT TOP 1 nome,dataregistrazione FROM tbl_Authors order by dataregistrazione DESC " 

Set Esempi1 = Connessione.Execute(Sql) 



Do While Not Esempi.Eof %> 

<%=dividiStringa(Esempi("News"),1,1)%> 
  </p> 

<% ' Vai al prossimo record 
Esempi.MoveNext 

Loop 

Esempi.Close 
Set Esempi = Nothing 
Connessione.Close 
Set Connessione = Nothing 
%>

[Ezekiel82]

Niente da fare ...non ne tiene conto e continua a mettermi i caratteri tutti di fila