LinkString problemer

<%
dim data = LinkString(info)
data = Replace(RS("info"), vbCrLf, "<br>" )
Response.write(data)
%>

<%
dim data = LinkString(info)
data = Replace(data , vbCrLf, "<br>" )
Response.write(data)
%>



sorry

skal denne:

<%
dim data = LinkString(info)
data = Replace(data , vbCrLf, "<br>" )
Response.write(data)
%>

placeres i body i stedet for denne:

<%LinkString=Replace(RS("info"), vbCrLf, "<br>" )%> ?

//cdc

ja..

så kommer denne:

dim data = LinkString(info)
---------^

<%
dim data
data = LinkString(info)
data = Replace(data , vbCrLf, "<br>" )
Response.write(data)
%>

sorry:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/visa.asp, line 307

dim data = LinkString(info)
---------^

det er fordi jeg ikke må oprette en variabel og assigne den på samme tid..

se indlæg 11:33:20

så kommer der ingen fejl og ej heller text. jeg bruger denne linkstring function:

Function LinkString(strInput)
Set objRegExpHTTP1 = New RegExp
Set objRegExpHTTP2 = New RegExp
Set objRegExpEMail = New RegExp

objRegExpHTTP1.Pattern = "(http|ftp)(:\/\/[\w\._-]+\.[\w\._-]+\S*)"
objRegExpHTTP2.Pattern = "(^|[^\/])(www[^\.\s]?\.[\w\._-]+\.[A-Za-z]{2,3}[\w\S]*)"
objRegExpEMail.Pattern = "([\w\._-]+@[\w\._-]+\.[A-Za-z]{2,3}\S*)"

objRegExpHTTP1.Global = True
objRegExpHTTP2.Global = True
objRegExpEMail.Global = True

objRegExpHTTP1.IgnoreCase = True
objRegExpHTTP2.IgnoreCase = True
objRegExpEMail.IgnoreCase = True

strOutput = objRegExpEMail.Replace(strInput, " <a href='mailto:$1'>$1</a> ")
strOutput = objRegExpHTTP1.Replace(strOutput, " <a href='$1$2' target='_blank'>$1$2</a> ")
strOutput = objRegExpHTTP2.Replace(strOutput, " $1<a href='http://$2' target='_blank'>$2</a> ")

'Dette er til fordi tegn som står uden mellemrum til linket kommer med som en del af linket..
objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])('>)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2")
objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])(' target=)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2")
objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])(</a>)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2$1")

Set objRegExpHTTP2 = Nothing
set objRegExpHTTP1 = Nothing
Set objRegExpEMail = Nothing

LinkString = strOutput
End Function
%>

kan du så ikke bruge din oprindelige kode linje og bare rette din funktion til at være



Function LinkString(strInput)

strInput = Replace(strInput, vbCrLf, "<br>" )

Set objRegExpHTTP1 = New RegExp
Set objRegExpHTTP2 = New RegExp
Set objRegExpEMail = New RegExp

objRegExpHTTP1.Pattern = "(http|ftp)(:\/\/[\w\._-]+\.[\w\._-]+\S*)"
objRegExpHTTP2.Pattern = "(^|[^\/])(www[^\.\s]?\.[\w\._-]+\.[A-Za-z]{2,3}[\w\S]*)"
objRegExpEMail.Pattern = "([\w\._-]+@[\w\._-]+\.[A-Za-z]{2,3}\S*)"

objRegExpHTTP1.Global = True
objRegExpHTTP2.Global = True
objRegExpEMail.Global = True

objRegExpHTTP1.IgnoreCase = True
objRegExpHTTP2.IgnoreCase = True
objRegExpEMail.IgnoreCase = True

strOutput = objRegExpEMail.Replace(strInput, " <a href='mailto:$1'>$1</a> ")
strOutput = objRegExpHTTP1.Replace(strOutput, " <a href='$1$2' target='_blank'>$1$2</a> ")
strOutput = objRegExpHTTP2.Replace(strOutput, " $1<a href='http://$2' target='_blank'>$2</a> ")

'Dette er til fordi tegn som står uden mellemrum til linket kommer med som en del af linket..
objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])('>)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2")
objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])(' target=)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2")
objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])(</a>)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2$1")

Set objRegExpHTTP2 = Nothing
set objRegExpHTTP1 = Nothing
Set objRegExpEMail = Nothing

LinkString = strOutput
End Function
%>

hvilken oprindelige kode linje ?

den her

<%=LinkString(info)%>


og så den funktion du lige har fået..

hvis ikke det virker

så brug din egen funktion igen og denne linje til at udskrive..


<%= LinkString(Replace(RS("info"), vbCrLf, "<br>" ))%>

dog mener jeg replace skal skrives sådan her

<%= LinkString(Replace(RS("info"), "vbCrLf", "<br>" ))%>

Hold hovedet koldt:D

min gamle funktion med denne: <%= LinkString(Replace(RS("info"), vbCrLf, "<br>" ))%> virker. Tak for det kalp, smider du lige et svar :o)

//cdc

:D