Lägga till före och efter titel (txt fil)

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath("namn.txt"))
arrNamn = Split(objTS.ReadAll, vbCrLf)
objTS.Close : Set objTS = Nothing
Set objFSO = Nothing

Response.Write("<ul>" & vbCrLf)

For i = 0 To UBound(arrNamn)
  Response.Write("  <li>" & arrNamn(i) & "</li>" & vbCrLf)
Next

Response.Write("</ul>")