Lineskift og deaktiver HTML

<%=replace(server.htmlencode(rs(\"felt\")), vbcrlf, \"<BR>\") %>

Deaktiver den HTML og laver linje skift `???

Jep det gør den da :-)

Eller du kan bruge den her:

<%
Function RemoveHTML(strContent)
    Do
        pos = 1
        tmpBegin = InStr(pos,strContent,\"<\")
        If tmpBegin > 0 Then
            pos = tmpBegin
            If LCase(mid(strContent,tmpBegin,7)) = \"<script\" Then
                \' Her fjernes script kode
                tmpEnd = Instr(tmpBegin,LCase(strContent),\"</script>\")
                strContent = Left(strContent,tmpBegin-1) & Right(strContent,Len(strContent)-tmpEnd-8)
            ElseIf LCase(mid(strContent,tmpBegin,2)) = Chr(60) & \"%\" Then
                \' Her fjernes ASP kode
                tmpEnd = Instr(tmpBegin,LCase(strContent),\"%\" & Chr(62))
                strContent = Left(strContent,tmpBegin-1) & Right(strContent,Len(strContent)-tmpEnd-3)
            Else
                \' Her fjernes HTML kode
                tmpEnd = InStr(pos,strContent,\">\")
                If tmpEnd > 0 Then
                    strContent = Left(strContent,tmpBegin-1) & Right(strContent,Len(strContent)-tmpEnd)
                Else
                    strContent = Left(strContent,tmpBegin-1)
                    Exit Do
                End If
            End If
        Else
            Exit Do
        End If
    Loop
    RemoveHTML = strContent
End Function %>

<%=Replace(RemoveHTML(rs(\"felt\")), vbCrLf, \"<br>\")%>

Hvad er forskellen ???

Den første laver html om så det ikke bliver udført, men ses på skærmen. Den anden fjerner det helt så det ikke kan ses på skærmen.

Kan du også fortælle mig hvordan man så gør at den automatisk laver et link ud af www.telweb.dk eksempelvis (ligsom her på eksperten! :-)

Søg på autohighlight på www.asp.dk eller www.activeserverpages.dk

Ved du også hvordan man opretter en folder med asp. Kan man gøre det på alle domæner ??

Du har da efterhånden fået rimelig meget for de 10 point ?

Den der RemoveHTML er <i>så</i> kluntet:

Function stripTags(HTMLstring)
Set RegExpObj = New RegExp
With RegExpObj
  .Pattern = \"<[^>]+>\"
  .IgnoreCase = True
  .Global = True
End With
stripTags = RegExpObj.Replace(HTMLstring, \"\")
Set RegExpObj = nothing
End Function