splitte nyheds system op

i stedet for bare

" & rs("titel") & "

skal du skrive

" & left(rs("titel"),25) & "..."  & "

Du kan gøre sådan her:

inputStr = "Hej max 20 ord i denne linie, en lille test til at se om det virker håber det vriker bare ldit så jeg kan komme vidre."
wordCount = 0
MAX_WORD_COUNT = 25
newArr = split(inputStr," ",MAX_WORD_COUNT+2)
outputStr = ""
do while (wordCount < UBOUND(newArr)) AND (wordCount < MAX_WORD_COUNT)
  outputStr = outputStr & newArr(wordCount) & " "
  wordCount = wordCount + 1
loop

Response.Write outputStr

det her er min kode lige for tiden
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("nyheder.mdb")
Conn.Open DSN
strSQL = "SELECT top 4 format(dato, 'dd-mm-yy hh:nn') as DatoStr, * FROM nyheder ORDER BY id DESC"
Set rs = Conn.Execute(strSQL)
if rs.eof then
Response.Write "<center>...| Ingen Nyheder |...</center>"
  Else
Do
%>
        <%
           
    besked = rs("besked")
    besked = Replace(besked,":)","<img src=""smiley/icon_smile.gif"">")
    besked = Replace(besked,":D","<img src=""smiley/icon_smile_big.gif"">")
    besked = Replace(besked,"8D","<img src=""smiley/icon_smile_cool.gif"">")
    besked = Replace(besked,":I","<img src=""smiley/icon_smile_blush.gif"">")
    besked = Replace(besked,":P","<img src=""smiley\icon_smile_tongue.gif"">")
    besked = Replace(besked,"}:)","<img src=""smiley/icon_smile_evil.gif"">")
    besked = Replace(besked,";)","<img src=""smiley/icon_smile_wink.gif"">")
    besked = Replace(besked,"B)","<img src=""smiley/icon_smile_blackeye.gif"">")
    besked = Replace(besked,":o)","<img src=""smiley/icon_smile_clown.gif"">")
    besked = Replace(besked,"8","<img src=""smiley/icon_smile_8ball.gif"">") 
    besked = Replace(besked,":(","<img src=""smiley/icon_smile_sad.gif"">")
    besked = Replace(besked,"8)","<img src=""smiley/icon_smile_shy.gif"">")
    besked = Replace(besked,":O","<img src=""smiley/icon_smile_shock.gif"">")
    besked = Replace(besked,":(!","<img src=""smiley/icon_smile_angry.gif"">")
    besked = Replace(besked,"xx(","<img src=""smiley/icon_smile_dead.gif"">")
    besked = Replace(besked,"|)","<img src=""smiley/icon_smile_sleepy.gif"">")
    besked = Replace(besked,":X","<img src=""smiley/icon_smile_kisses.gif"">")
    besked = Replace(besked,"^","<img src=""smiley/icon_smile_approve.gif"">")
    besked = Replace(besked,"V","<img src=""smiley/icon_smile_dissapprove.gif"">")
    besked = Replace(besked,"?","<img src=""smiley/icon_smile_question.gif"">")
    besked = Replace(besked,vbcrlf,"<br>")
    %>
    <center>
<table border="0" cellpadding="0" cellspacing="0" width="400" style="border: 1 solid black"> <tr>
<td WIDTH="271" style="border-bottom: 1 solid black; padding: 3" bgcolor="648eb6"><font color="black"><%=rs("emne")%></font></td><td WIDTH="113" style="border-bottom: 1 solid black; padding: 3" bgcolor="648eb6"><font color="black"><%=rs("DatoStr")%></font></td></tr>
<tr> <td colspan="2"><P><br><%=besked%></P><P>&nbsp;</P><P><font color="black">-&nbsp;</font><a href="mailto:<%=rs("E-mail")%>"><%=rs("navn")%></a></P></td></tr><br> </table>
<br>
<%
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>

det kan ligges i en function:

function klikTil25ord(inputStr)
wordCount = 0
MAX_WORD_COUNT = 25
newArr = split(inputStr," ",MAX_WORD_COUNT+2)
outputStr = ""
do while (wordCount < UBOUND(newArr)) AND (wordCount < MAX_WORD_COUNT)
  outputStr = outputStr & newArr(wordCount) & " "
  wordCount = wordCount + 1
loop
klikTil25ord = outputStr
end function

og så sådan her:

besked = rs("besked")
besked = klikTil25ord(besked)  '<---- du kan indsætte den her
besked = Replace(besked,":)","<img src=""smiley/icon_smile.gif"">")

hvor skal jeg skrive den funktion ?

den kan du ligge helt i bunden af filen.

ok bare sådan her
<%
function klikTil25ord(inputStr)
wordCount = 0
MAX_WORD_COUNT = 25
newArr = split(inputStr," ",MAX_WORD_COUNT+2)
outputStr = ""
do while (wordCount < UBOUND(newArr)) AND (wordCount < MAX_WORD_COUNT)
  outputStr = outputStr & newArr(wordCount) & " "
  wordCount = wordCount + 1
loop
klikTil25ord = outputStr
end function
%> og så i min <%=besked%> bare sætte kliktil25ord(besked) i stedet for besked eller hva ?

ja..

<%=besked%> ændres til <%=kliktil25ord(besked)%>

ok prøver lige

mmm det virker fint med det 25 ord det er kanon men den viser ik texten når jeg trykker på linket http://zyxep.no-ip.org/

Det er vel på sinde komment.asp den skal læse id=33 og vise nyheden.

ja den er sat til at læse nyheden

virkede den ør???

koden skal se ud i stil med:

strSQL = "SELECT * FROM nyheder WHERE id = " & request.Querystring("id")
Set rs = Conn.Execute(strSQL)

det har virket men hvis jeg sætter den gamle ind virker det ik :(
<%
' Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("nyheder.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
' Her hiver vi indholdet af databasen ud
sql = "SELECT format(dato, 'dd-mm-yy hh:nn') as DatoStr, * From nyheder Where id = " & Request.Querystring("id")
    Set rs =  Con.Execute(Sql)
' Gennemløb Recordset (rs) med en løkke
Do
%><center><table border="0" cellpadding="0" cellspacing="0" width="400" style="border: 1 solid black"> <tr>
<td WIDTH="271" style="border-bottom: 1 solid black; padding: 3" bgcolor="648eb6"><font color="black"><%=rs("emne")%></font></td><td WIDTH="113" style="border-bottom: 1 solid black; padding: 3" bgcolor="648eb6"><font color="black"><%=rs("DatoStr")%></font></td></tr>
<tr> <td colspan="2"><P><%=besked%></P><P>&nbsp;</P><P><font color="black">-&nbsp;</font><a href="mailto:<%=rs("E-mail")%>"><%=rs("navn")%></a></P></td></tr><br> </table></center>
<%
' Gå til næste Record i rs
    rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
Response.Write "<br>"
%>
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
er min komment.asp kode

denne:
<%=besked%>

skal rettes til
<%=rs("besked")%>

Ellers skal du havde alt dette med fot at lave smilyes om til billeder:


besked = rs("besked")
    besked = Replace(besked,":)","<img src=""smiley/icon_smile.gif"">")
    besked = Replace(besked,":D","<img src=""smiley/icon_smile_big.gif"">")
    besked = Replace(besked,"8D","<img src=""smiley/icon_smile_cool.gif"">")
    besked = Replace(besked,":I","<img src=""smiley/icon_smile_blush.gif"">")
    besked = Replace(besked,":P","<img src=""smiley\icon_smile_tongue.gif"">")
    besked = Replace(besked,"}:)","<img src=""smiley/icon_smile_evil.gif"">")
    besked = Replace(besked,";)","<img src=""smiley/icon_smile_wink.gif"">")
    besked = Replace(besked,"B)","<img src=""smiley/icon_smile_blackeye.gif"">")
    besked = Replace(besked,":o)","<img src=""smiley/icon_smile_clown.gif"">")
    besked = Replace(besked,"8","<img src=""smiley/icon_smile_8ball.gif"">") 
    besked = Replace(besked,":(","<img src=""smiley/icon_smile_sad.gif"">")
    besked = Replace(besked,"8)","<img src=""smiley/icon_smile_shy.gif"">")
    besked = Replace(besked,":O","<img src=""smiley/icon_smile_shock.gif"">")
    besked = Replace(besked,":(!","<img src=""smiley/icon_smile_angry.gif"">")
    besked = Replace(besked,"xx(","<img src=""smiley/icon_smile_dead.gif"">")
    besked = Replace(besked,"|)","<img src=""smiley/icon_smile_sleepy.gif"">")
    besked = Replace(besked,":X","<img src=""smiley/icon_smile_kisses.gif"">")
    besked = Replace(besked,"^","<img src=""smiley/icon_smile_approve.gif"">")
    besked = Replace(besked,"V","<img src=""smiley/icon_smile_dissapprove.gif"">")
    besked = Replace(besked,"?","<img src=""smiley/icon_smile_question.gif"">")
    besked = Replace(besked,vbcrlf,"<br>")

smukt thx :D