problem med teksfelt

Det første kan jeg ikke lige huske, men jeg kan da lige finde det til dig. Men hensyn til linkfunktionen kan du bruge den her:

<%
Function LinkString(strInput)
        arrPattern = Array("([\w\._-]+@[\w\._-]+\.[A-Za-z]{2,4}\S*)", _
        "(http|https|ftp)(:\/\/[\w\._-]+\.[\w\._-]+\S*)", _
        "(^|[^\/])(www[^\.\s]?\.[\w\._-]+\.[A-Za-z]{2,4}\S*)")

        arrReplaceString = Array(" <a href='mailto:$1'>$1</a> ", _
        " <a href='$1$2' target='_blank'>$1$2</a> ", _
        " <a href='http://$2' target='_blank'>$2</a> ")

        Set Rx = New RegExp
        Rx.Global = True
        Rx.IgnoreCase = True

        For intIndex = 0 To UBound(arrPattern)
            Rx.Pattern = arrPattern(intIndex)
            strInput = Rx.Replace(strInput, arrReplaceString(intIndex))
        Next
       
        Set Rx = Nothing

        LinkString = strInput
    End Function
%>

'[ClearHTMLTags]
   
'Coded by Jóhann Haukur Gunnarsson
'joi@innn.is
   
'  Purpose: This function clears all HTML tags from a
'          string using Regular Expressions.
'  Inputs: strHTML;
'            A string to be cleared of HTML TAGS
'    intWorkFlow;
'            An integer that if equals to 0 runs only the RegExp filter
'              .. 1 runs only the HTML source render filter
'              .. 2 runs both the RegExp and the HTML source render
'              .. >2 defaults to 0
'  Returns: A string that has been filtered by the function
   
function ClearHTMLTags(strHTML, intWorkFlow)
  'Variables used in the function
       
  dim regEx, strTagLess
       
  '---------------------------------------
  strTagless = strHTML
  'Move the string into a private variable
  'within the function
  '---------------------------------------

  'regEx initialization
  '---------------------------------------
  set regEx = New RegExp
  'Creates a regexp object       
  regEx.IgnoreCase = True
  'Don't give frat about case sensitivity
  regEx.Global = True
  'Global applicability
  '---------------------------------------

  'Phase I
  '    "bye bye html tags"
  if intWorkFlow <> 1 then
    '---------------------------------------
    regEx.Pattern = "<[^>]*>"
    'this pattern mathces any html tag
    strTagLess = regEx.Replace(strTagLess, "")
    'all html tags are stripped
    '---------------------------------------
  end if
       
  'Phase II
  '    "bye bye rouge leftovers"
  '    "or, I want to render the source"
  '    "as html."

  '---------------------------------------
  'We *might* still have rouge < and >
  'let's be positive that those that remain
  'are changed into html characters
  '---------------------------------------   

  if intWorkFlow > 0 and intWorkFlow < 3 then
    regEx.Pattern = "[<]"
    'matches a single <
    strTagLess = regEx.Replace(strTagLess, "<")

    regEx.Pattern = "[>]"
    'matches a single >
    strTagLess = regEx.Replace(strTagLess, ">")
    '---------------------------------------
  end if
       
  'Clean up
  '---------------------------------------
  set regEx = nothing
  'Destroys the regExp object
  '---------------------------------------   
       
  '---------------------------------------
  ClearHTMLTags = strTagLess
  'The results are passed back
  '---------------------------------------
end function

nu spørger jeg måske dumt, men hvor skal jeg indsætte disse koder ???

funktionen placerer du et sted på din ASP side eller i en include fil.

Sådan her fjerner du alle HTML tags fra en besked i din gæstebog:
dim besked
besked = Request.Form("besked")
'fjern html
besked = ClearHTMLTags(besked,2)

'Udskriver beskeden uden HTML tags
Response.Write(besked)

Mit script indsætter du bare i toppen, hvor du vil have det til at gælde. Hvis det drejer sig om flere sider kunne du evt. lave det i en include fil

hehe, havde ikke set den sidste besked fra askhoej

den der kode til at lave www. om til links hitter ikke helt hos mig, den er indsat nu, men de hentede adresse bliver ikke rigtigt til links ?

heller ikke ved mig

Jeg tror måske at pfp funktion kræver VBScript 5.5 for at virke? men er ikke sikker.

og det vil sige ?? at min udbyder ikke har denne ???

ikke for at jeg bedre kan finde ud af din med de tags &:-D

det skal jeg heller ikke selv kunne sige...det virker ihvertfald hos mig

har fået akshoej's kode til at virke nu, men mangler stadig den p..... www. kode

Hej den www. kode du snakker om. Prøv at downloade dette script til at lave teskst om til links:

http://www.netcoders.dk/sources.asp?mode=view_source&cat_id=9&id=859&tech_id=1


Husk at du skal ført kalde RemoveHTML functionen så den funktion som laver tekst til links. Ellers fjerne RemoveHTML funktionen jo <a href> og </a> fra teksten :)

fandt ud af det gennem pfp og askhoej derfor point til dem &:-D

takker for hjælpen