<% //Get the text from the text file dim fso, rs, txxt set fso = server.createobject("scripting.filesystemobject") dim txt(40) Set RS = fso.OpenTextFile(Server.MapPath("vocab.txt"),1) txxt= split(RS.readall,chr(10)) y =ubound(txxt) +1 for x = 0 to ubound(txxt) txt(x)=txxt(x) next //format the text for the page dim vtable,head head = txt(0) vtable ="" for x = 1 to ubound(txxt) vtable= vtable & " "&x&")"&txt(x)&"" next set rs = nothing set fso = nothing %>

Vocabulary
~and~
Spelling

 

<%=vtable%>
<%=head%>
<% server.execute("foot.htm") %>

Home | Class News

vocabulary-spelling | Shining Star | Forms

 Schedule | Contact Information

Third Grade Homepage

 

This page is maintained in accordance with Shenendehowa's web publishing guidelines by Meghan Hall.