funktion som splitter en teksstreng op i en steng af den af \"leng\" givne længde <% dim stCount,stext,leng,sString
stCount=1
function splStr(stext,leng) if stCount+leng>=len(stext) then splStr=mid(stext,stCount,(len(stext)-stCount)) stCount=len(stext) else sString=mid(stext,stCount,leng) stCount=stCount+inStrRev(sString,\" \") splStr=left(sString,inStrRev(sString,\" \")-1) end if end function %>
for at tilpasse dit eksempel,
<%tekst=databaseopslag(\"text\")
for a = 1 to 9 %> <%=replace(splStr(tekst,150),vbcrlf,\"<BR>\")%><BR> <%next%>
<%for a = 1 to 9 %> <%=replace(splStr(tekst,300),vbcrlf,\"<BR>\")%><BR> <%next%>
du må selv fedte din tabel ind i scriptet. Håber, at det er det du mener.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.