Dele tekst

Har selv løst det, men hvis andre skulle bruge det. Så smider jeg koden her, i må selv gætte den.. hehe

        "<table cellpadding=""2"" cellspacing=""0"" height=""310"" width=""400"" border=""0"" style=""table-layout:fixed"">" & vbCrLf &_
            "<tr>" & vbCrLf &_
                "<td class=""head"" height=""30"" valign=""top"">" & RSmain("head") & "</td>" & vbCrLf &_
            "</tr>" & vbCrLf &_
            "<tr>" & vbCrLf
                                       
            Tekst = RSmain("txt")
            Tegn = Len(Tekst)

            If Tegn < 800 Then

                Response.Write "<td class=""txt"" valign=""top"" height=""270"">" & RSmain("txt") & "</td>"
            Else
                ATegn = Fix(Tegn / 2)   
                StrAct = "split"                               
           
                ' Søgning/opdeling
                    TText1 = Instr(ATegn, Tekst, ".")
                    TText2 = Instr(ATegn + text1, Tekst, ".") - text1

                    text1 = Left(Tekst, TText1)
                    text2 = Mid(Tekst, TText1 + 1)
                       
                  ' tjekker om vi er på side2 - dvs. sidste halvdel af teksten
                                                       
                If request.querystring("text2") <> "" Then
                    text_opdelt = text2
                Else
                    text_opdelt = text1
                End If
            End If       
           
            If StrAct = "split" Then
                Response.Write     "<td class=""txt"" valign=""top"" height=""270"">" & text_opdelt & "DELT SLUT</td>"
            End If
            Response.Write "</tr>" &_
                                "<td height=""15 align=""right"" valign=""top"">"

            If Tegn > 800 Then    
                If text_opdelt = text2 Then                        
                    Response.Write "<a href=""view.asp?id=" & StrId & " class=""Page"">&lt;&lt;Forrige side</a>"
                Else
                    Response.Write "<a href=""view.asp?id=" & StrId & "&text2=" & TText1 & """ class=""Page"">N&aelig;ste Side&gt;&gt;</a>"
                End If
            Else
                Response.Write "&nbsp;"                                   
            End If

    Response.Write"</td>" & vbCrLf &_
            "</tr>" & vbCrLf &_
        "</table>" & vbCrLf

...