Kan man med asp bryta efter ett antal tecken om medlemmen inte har radbrutit i sin presentation, blir lite väl fult och jobbigt med en presentation där man får scrolla sidleds för att läsa. Visar presentationen i en vanlig <td>
<table width="550">
<tr>
<td width="550" nowrap >
<%IF userPres <> "" Then
response.write makepres(sPres)
ELSE%>
<span class="presentation">
<%=user%> har inte angett någon information om sig själv än
<%END IF%>
</td>
</tr>
</table>
Function splitta(ord)
splittrad = split(ord, " ")
for i = 0 To uBound(splittrad)
if len(splittrad(i)) > 40 then
tmpTEXT = tmpTEXT & " " & left(splittrad(i), 20)
tmpTEXT = tmpTEXT & " " & right(splittrad(i), len(splittrad(i))-20)
else
tmpTEXT = tmpTEXT & " " & splittrad(i)
end if
next
newTEXT = replace(tmpTEXT,vbcrlf,"<br>")
response.write(newTEXT)
End Function
<%IF userPres <> "" Then
response.write splitta(makepres(sPres))
ELSE%>
<span class="presentation">
<%=user%> har inte angett någon information om sig själv än
<%END IF%>
Function splitta(ord)
Set z = new Regexp
with z
.Pattern = "(\w{10})"
.Global = true
end with
Set y = new Regexp
with y
.Pattern = "\n"
.Global = true
end with
ord = z.Replace(ord, "$1 ")
ord = y.Replace(ord, "<br />")
End Function
Function splitta(ord)
Set z = new Regexp
with z
.Pattern = "(\w{10})"
.Global = true
end with
Set y = new Regexp
with y
.Pattern = "\n"
.Global = true
end with
ord = z.Replace(ord, "$1 ")
ord = y.Replace(ord, "<br />")
End Function
Function splitta(ord)
Set z = new Regexp
with z
.Pattern = "(\w{10})"
.Global = true
end with
Set y = new Regexp
with y
.Pattern = "\n"
.Global = true
end with
ord = z.Replace(ord, "$1 ")
ord = y.Replace(ord, "<br />")
[b]response.write(ord)[/b]
End Function
Ursakta om jag later otrevlig, men en gnutta eget tankande vore inte fel...
