Do-script med Split

Jeg har dette script på min side:

<%
Do
   
      Str = rs("titel")
      arr = Split(str, "; ")
      for i = lbound(arr) to ubound(arr)
        response.write arr(i) & "<br>"
      next

      ' Personens navn
      strtitel = rs("titel")
   
      ' lav et link til person.asp med Id-værdien i URL
      strLink = "<a href='bog.asp?titel=" & rs("titel") & "'>" & strtitel & "</a>"
   
      ' Liste med links
      Response.Write "<li>" & strLink & "</li>"

      rs.MoveNext
    Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>


Det var så menningen at det skulle dele værdierne i "titel" og lave et link troede jeg!

Den deler rigtig nok, men linket kommer neden under med hele værdien fra "titel"

Er der nogen der kan hjælpe?