radbrytning

Hejsan!! jag håller på med en gästbok!
när användaren skriver tex: 55555555555555555555555555555555555555555555555555555555555555555555555555555555 då flyttas cellerna!
går det och göra så att när man skriver in det där ska det automatiskt skapa en radbrytning dvs efter 50 tecken

så här ser min kod ut:

<%=recset(smiley("text"))%>

kolla på mitt svar, som jag skrev på din fråga i palles forum.
(www.palleman.nu)

/ Mikul

------------------
vad är det för fel mad att vara lat?, tänk om det blev krig och ingen kom dit.

tack mikul men funkar inte :(

Välkommen till wF!

Se om denna tråd kan hjälpa dig:
http://cgi.webforum.nu/wf/Forum11/HTML/008268.html

Mvh,

varför kan man inte göra så här:

<%=Strang(smiley(recset("text")))%>

fattar inte riktigt

Vad händer när du skriver så där? Något felmeddelande?

Hur ser funktionerna Strang och Smiley ut?

------------------
essentitia preter non sans multiplicandum

text = lcase(text)

text = server.HTMLEncode(text)
text = Replace(text,vbCrLf,"<br>")

text =  replace(text,":-)"," <img src=""Bilder\glad.gif"">")

text = TRIM(text) 

Response.Write text

[Redigerat av pellesvenne den 17 jan 2002]

så här ser strang ut:

Function Strang(ByVal OriginalString)
OriginalString = "" & OriginalString

intMaxLength = 66
arrString = Split(OriginalString, " ")

For intIndex = 0 To UBound(arrString)
If Len(arrString(intIndex)) > intMaxLength Then
intSIndex = 0
While intSIndex < (Len(arrString(intIndex)) / intMaxLength)
splittOrd = splittOrd & Mid(arrString(intIndex), (1 + intSIndex * intMaxLength), intMaxLength) & "<br>"
intSIndex = intSIndex + 1
Wend
arrString(intIndex) = splittOrd
End If

strNewString = strNewString & arrString(intIndex) & " "
Next

Strang = strNewString
End Function

Det här alltså koden för funktionen smiley?

text = lcase(text)
text = server.HTMLEncode(text)
text = Replace(text,vbCrLf,"<br>")

text = replace(text,":-)"," <img src=""Bilder\glad.gif"">")

text = TRIM(text) 

Response.Write text

Du får nog skriva om den lite

function smiley(text)
text = lcase(text)
text = server.HTMLEncode(text)
text = Replace(text,vbCrLf,"<br>")

text = replace(text,":-)"," <img src=""Bilder\glad.gif"">")

text = TRIM(text) 
smiley = text
end function

------------------
essentitia preter non sans multiplicandum