Indhold i memo bliver til links

Således ...

<%
    strStr = \"12:side12.htm,85:side85.htm,1572:side1572.htm\"
    arrEntries = Split(strStr, \",\")
   
    For Index = 0 To UBound(arrEntries)
        strEntry = arrEntries(Index)
        intSemi = InStr(strEntry, \":\")
        strPg = Left(strEntry, intSemi - 1)
        strLnk = right(strEntry, Len(strEntry) - intSemi)
       
        Response.Write \"<a href=\'\" & strLnk & \"\'>\" & strPg & \"</a><br>\"
    Next
%>

Ups .. der manglede lige lidt error checking:

<%
    strStr = \"12:side12.htm,85:side85.htm,1572:side1572.htm\"
    If strStr > \"\" Then
        arrEntries = Split(strStr, \",\")
   
        For Index = 0 To UBound(arrEntries)
            strEntry = arrEntries(Index)
            intSemi = InStr(strEntry, \":\")
           
            If intSemi > 0 Then
                strPg = Left(strEntry, intSemi - 1)
                strLnk = right(strEntry, Len(strEntry) - intSemi)
           
                Response.Write \"<a href=\'\" & strLnk & \"\'>\" & strPg & \"</a><br>\"
            End If
        Next
    End If
%>

tmp = split(memo, \",\")
tmp2 = split(tmp, \":\")

for each item in tmp
response.write \"<A HREF=\" & tmp(1) & \">\" & tmp(0) & \"</a>\"

next

tmp = split(memo, \",\")

for each item in tmp
tmp2 = split(tmp, \":\")
response.write \"<A HREF=\" & tmp(1) & \">\" & tmp(0) & \"</a>\"

next

tmp = split(memo, \",\")

for each item in tmp
tmp2 = split(tmp, \":\")
response.write \"<A HREF=\" & tmp2(1) & \">\" & tmp2(0) & \"</a>\"

next

jeg er ked af det netrac, men denne virker :-)
temp=\"12:side12.htm,85:side85.htm,1572:side1572.htm\"
for each item in split(temp,\",\")
    temp2=split(item,\":\")
    Response.write \"<a href=\'\" & temp2(1) & \"\'>\" & temp2(0) & \"</a><br>\"
next

*suk* gid jeg dog aldrig havde lært QBASIC!! Det er det gamle levn der gør at jeg glemmer at bruge Split hvor den er nyttig ;-)

Doooh....Ja runesoft har ret, det gik vist lidt hurtigt..

Takker mange, mange gange for hjælpen! :-)