Hjælp til linkmaker
Er der nogen der kan hjælpe med at få koblet nedenstående linkmaker sammen med mit nyhedsscript.Koden til linkmaker:
<%
Function LinkTekst(Tekst)
LinkTekst = \"\"
A_Start = 1
if InStr(Tekst, \"http://\") then
do until A_Start >= len(Tekst)
LinkChr = InStr(A_Start, Tekst, \"http://\")
NextSpace = InStr(LinkChr, Tekst, \" \")
if NextSpace = 0 then NextSpace = Len(Tekst) + 1
URL = Mid(Tekst, LinkChr, NextSpace - LinkChr)
LinkTekst = LinkTekst & Mid(Tekst, A_Start, LinkChr - A_Start)
LinkTekst = LinkTekst & \"<A Href=\" & Chr(34) & URL & Chr(34) & \">\" & URL & \"</A>\"
if Int(LinkChr) = Int(InStrRev(Tekst, \"http://\")) then
LinkTekst = LinkTekst & Mid(Tekst, NextSpace, Len(Tekst) - A_Start)
A_Start = Len(Tekst)
else
A_Start = NextSpace
end if
loop
else
LinkTekst = Tekst
end if
End Function
%>
Teksten indskrives her:
<% = LinkTekst(\"Min tekst\") %>
Problemet opstår, når det skal kobles sammen med funktionen der henter teksten i nyhedssystemet
hvor teksten hentes således:
<%=Min tekst%>
Venligst
