50 tegn = ny linie

Prøv med nedenstående !!!

Function ParseString(ByVal String)
Do While intCount <= Len(String)
    strCount = strCount + 1
                If strCount = 50 Then
                    New_String = New_String & "<br>" & LCase(Mid(String, intCount, 1))
            strCount = 0
                Else
                    New_String = New_String & LCase(Mid(String, intCount, 1))
                End If
            End If
        Next
        intCount = intCount + 1
    Loop
    ParseString = New_String
End Function

Response.Write ParseString(tekst)

Error Type:
Microsoft VBScript compilation (0x800A03EA)
Syntax error
/blivpoliti.dk/nyheder.asp, line 101
Function ParseString(ByVal String)

Koden:
<%
Set DataConn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; "
DSN = dsn & "DBQ=" & server.mappath("db/db.mdb")
DataConn.Open DSN
%>


<%
Set news = Server.CreateObject("ADODB.RecordSet")
news.open "Select * From [nyhed] order by id desc;", DataConn
if not news.EOF then
news.MoveFirst
end if
do while not news.EOF

tekst = replace(news("nyhed"), vbcrlf, "<br>")
dato = replace(news("dato"), "datoreplace", "datoreplace")
%>

<b><font face="verdana" size="2"><a name=<%=news("id")%>><%=news("emne")%></a>&nbsp;&nbsp;-&nbsp;&nbsp;<%Response.Write(datoreplace(dato))%>&nbsp;<%=news("tid")%></font></b>
<br>

<font face="verdana" size="2">
<%
Function ParseString(ByVal String)
Do While intCount <= Len(String)
    strCount = strCount + 1
                If strCount = 50 Then
                    New_String = New_String & "<br>" & LCase(Mid(String, intCount, 1))
            strCount = 0
                Else
                    New_String = New_String & LCase(Mid(String, intCount, 1))
                End If
            End If
        Next
        intCount = intCount + 1
    Loop
    ParseString = New_String
End Function
Response.Write ParseString(tekst)
%>
</font>
<br>
<br>

<%
news.MoveNext
loop
news.Close
set news = nothing
Dataconn.Close
%>

Undskyld fejl i koden - prøv denne.

Function ParseString(ByVal String)
Do While intCount <= Len(String)
    strCount = strCount + 1
                If strCount = 50 Then
                    New_String = New_String & "<br>" & LCase(Mid(String, intCount, 1))
            strCount = 0
                Else
                    New_String = New_String & LCase(Mid(String, intCount, 1))
                End If
        Next
        intCount = intCount + 1
    Loop
    ParseString = New_String
End Function

samme stadig
Function ParseString(ByVal String)

<%
Function ParseString(ByVal String)
Do While intCount <= Len(String)
    strCount = strCount + 1
                If strCount = 50 Then
                    New_String = New_String & "<br>" & LCase(Mid(String, intCount, 1))
            strCount = 0
                Else
                    New_String = New_String & LCase(Mid(String, intCount, 1))
                End If
        Next
        intCount = intCount + 1
    Loop
    ParseString = New_String
End Function
Response.Write ParseString(tekst)
%>

Undskyld - prøv lige med denne her. Jeg har lige testet det men dette skulle virke.

Function ParseString(ByVal String)
intCount = 0
Do While intCount <= Len(String)
    strCount = strCount + 1
                If strCount = 50 Then
                    New_String = New_String & "<br>" & LCase(Mid(String, intCount, 1))
            strCount = 0
                Else
                    New_String = New_String & LCase(Mid(String, intCount, 1))
                End If
        Next
        intCount = intCount + 1
    Loop
    ParseString = New_String
End Function

Det skulle lyde: Jeg har "ikke" testet det men dette skulle virke. :-)

hmm virker stadig ikke

Dette virker fordi at jeg har testet dette :-)

Function ParseString(ByVal String)
intCount = 1
Do While intCount <= Len(String)
    strCount = strCount + 1
                If strCount = 50 Then
                    New_String = New_String & "<br>" & Mid(String, intCount, 1)
                  strCount = 0
                Else
                    New_String = New_String & Mid(String, intCount, 1)
                End If
        intCount = intCount + 1
    Loop
    ParseString = New_String
End Function

Prøv at tænk dig lidt om gider du ??

hvad mener du? skal jeg tænke mig om?

Hey - jeg har faktisk samme problem, men det script der kan jeg heller ikke få til at virke.. Jeg har en gæstebog, der ikke skal "rykke ved tabellen", så derfor den limit på 50 char's.

Jeg er total newbie udi ASP-programmering, så hvor skal jeg putte scriptet ind, samt evt. ændringer? Vil godt give nogle points for det - opretter lige et spørgsmål efter denne kommentar. (Ville bare have at 'entracore' kom til at læse det her ;) )

jeg har ikke kunnet få din måde til at virke så jeg har lavet det på en anden måde:

    <table border="0" width="700" cellspacing="0" cellpadding="0"ID="Table5">
      <tr>
        <td width="100%" height="19" colspan="2">
                <table width="100%" border="0" cellspacing="0" cellpadding="5" align="center" ID="Table6"><tr><td>
                    <font face="times new roman" size="3"><%Response.Write(tekst)%></font>
                </td></tr></table>
            </td>
      </tr>
    </table>