Hej!
Hur undviker ja att mina besökare förstör designen genom ett gästboksinlägg som ser ut såhär så gör den tabellen längre:

Aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa?

Tacksam för svar

Det finns kanske något i HTML/CSS som anger att rader inte får vara längre än ett visst antal tecken, det vet jag inte, men i ASP kan du om inte annat loopa igenom texten och kontrollera varje ord så att det inte är längre än X tecken. Är det längre så delar du av vid X tecken och lägger in ett radbyte.


/Thomas

Hej,
Hur gör jag det om jag kör just nu med:
<code>
<%= Replace(Rec2("comment"),vbcrlf,"<br>")%>
</code>

Mvh Hassan

Du får lägga in allt i en variabel, sen loopa igenom den tills du kommer till ett mellanrum. Då vet du att allt du har innan mellanrummet är ett ord och då kan du kolla längden på den. Sen skriver du ut ordet (avdelat om det var för långt) och så fortsätter du att kolla resten av texten i variabeln.


/Thomas

Tack Thomas!
Dina svar uppskattas, men jag är ingen asp proffs.
Vore tacksam om jag kunde få lite kod hjälp.

Mvh Hassan

<code>
Comment = Rec2("comment")
Do Until Comment = ""
Word = ""
Do Until Right(Word, 1) = " " Or Right(Word, 2) = vbCrLf Or Comment = ""
Word = Word & Left(Comment, 1)
Comment = Mid(Comment, 2)
Loop
If Len(Word) > 30 Then Word = Left(Word, 30) & vbCrLf & Mid(Word, 31)
Word = Replace(Word, vbCrLf, "<br>")
Response.Write Word
Loop
</code>

Jag har inte testat koden så den fungerar kanske inte, men förhoppningsvis förstår du principen.


/Thomas

jag har testat den, första raden bryts bra, men andra raden förstör designen ändå.

Tacksam för hjäkp

Testa den här koden:
<code>
Comment = Rec2("comment")
Do Until Comment = ""
Word = ""
Do Until Right(Word, 1) = " " Or Right(Word, 2) = vbCrLf Or Comment = ""
Word = Word & Left(Comment, 1)
Comment = Mid(Comment, 2)
Loop
Word2 = ""
Do Until Word = ""
Word2 = Word2 & Left(Word, 30) & "<br>"
Word = Mid(Word, 31)
Loop
Word2 = Replace(Word2, vbCrLf, "<br>")
Response.Write Word2
Loop
</code>


/Thomas

funkade bra å länge de spammar, men skriver de normalt så blir det såhär:

hej
mitt
namn
är
hassan

Tacksam för svar

<code>
Comment = Rec2("comment")
Do Until Comment = ""
Word = ""
Do Until Right(Word, 1) = " " Or Right(Word, 2) = vbCrLf Or Comment = ""
Word = Word & Left(Comment, 1)
Comment = Mid(Comment, 2)
Loop
Word2 = ""
If Len(Word) > 30 Then
Do Until Word = ""
Word2 = Word2 & Left(Word, 30) & "<br>"
Word = Mid(Word, 31)
Loop
Word = Word2
End If
Word = Replace(Word, vbCrLf, "<br>")
Response.Write Word
Loop
</code>

Nu så ska det nog fungera.


/Thomas

tack, det funkade bra!

Sätt tråden som löst då.


/Thomas