formatere tekst fra db - med linieskift
følgende kode skulle gerne udskrive tekst fra database med en streng på 25 karaktere, men det gør den ikke ????hvorfor ????
nogen der ligger med en kode der laver linieskift ved et mellemrum efter x antal ord ?????
er snart helt grå...
<%
function maxantal(str)
inputStr = str
reDim arr(0)
str = replace(inputStr,"<br>",vbCrLf)
MaxLength = 25
while (LEN(str)>0)
splitIndex = InStrRev(str, vbCrLf, MaxLength)
if splitIndex = 0 then
splitIndex = InStrRev(str, " ", MaxLength)
if splitIndex = 0 then splitIndex = LEN(str)
end if
ReDim Preserve arr(UBOUND(arr) + 1)
arr(UBOUND(arr)) = LEFT(str, splitIndex)
str = MID(str, splitIndex + 1)
wend
outStr = ""
for i = LBound(arr) to UBound(arr)
outStr = outStr & arr(i) & vbCrLf
next
outStr = replace (outStr, vbCrLf, "<br>")
maxantal = outStr
end function
%>
<html>
<head>
<!-- #include file="dataopkald.asp" -->
<%
Conn.Open DSN
strSQL = "Select * From billeder"
Set rs = Conn.Execute(strSQL)
%>
</head>
<body bgcolor="#C0C0C0" leftmargin="0" topmargin="0">
<%
Do
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="txt2" >
<tr>
<td width="5%"> </td>
<td width="23%"> </td>
<td width="67%"><%Response.Write maxantal(rs("tekst")) %>
</td>
<td width="5%"> </td>
</tr>
</table>
<%
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
