importere tekstfil til foldemenu

Jeg har noget kode til import af en tekstfil til en webside og ligeledes noget kode til en foldemenu. Nu er det sådan at jeg godt kunne tænke mig at forene disse to koder sådan at jeg får en folde menu med underligge emne importeret fra en tekstfil. Kan dette lade sig gøre.???

---- Kode 1 Import af tekst fil --------

<%
Set fs = CreateObject("Scripting.FileSystemObject")
Set wfile = fs.OpenTextFile(Server.MapPath("myfile.txt"))
do while not wfile.AtEndOfStream
link=wfile.readline
response.write "<a href='" & link & "'>" & link & "<br>"
loop
wfile.close
Set wfile=nothing
Set fs=nothing
%>

------- Folde menu ----------

<html>
<head>
<script>
ids = new Array("menu1", "menu2", "menu3"); //ID'erne på dine foldemenuer. Kan udvides!

function fold(id) {
for (i = 0; i < ids.length; i++) {
el = (document.getElementById) ? document.getElementById(ids[i]) : document.all[ids[i]];
el.style.display = (ids[i] == id) ? ((el.style.display == "none") ? "block" : "none") : "none";
}
}
</script>
</head>
<body>
<a href="#" onClick="if (this.blur) this.blur(); fold('menu1'); return false;">Menu 1</a><br>
<div id="menu1" style="background-color: lightyellow; display: none;">
Bla bla<br>
Bla bla<br>
Bla bla
</div>
<br>
<a href="#" onClick="if (this.blur) this.blur(); fold('menu2'); return false;">Menu 2</a><br>
<div id="menu2" style="background-color: lightgreen; display: none;">
Bla bla<br>
Bla bla<br>
Bla bla
</div>
<br>
<a href="#" onClick="if (this.blur) this.blur(); fold('menu3'); return false;">Menu 3</a><br>
<div id="menu3" style="background-color: lightblue; display: none;">
Bla bla<br>
Bla bla<br>
Bla bla
</div>
</body>
</html>