Links

Modelspoor / digitaal rijden

<% Dim filesys, linkfile Set filesys = CreateObject("Scripting.FileSystemObject") Set linkfile = filesys.OpenTextFile(Server.MapPath("links.txt"), 1, True) while NOT(linkfile.AtEndOfLine) mystring=linkfile.readLine MyArray = Split(mystring,",") 'Response.Write (mystring & "
" & MyArray(0) & " - " & MyArray(1) & " - " & MyArray(2) & "
") %> <% Wend linkfile.Close %>
<%=MyArray(0)%> <%=MyArray(2)%>  

Handig

Google zoeken  
nu.nl nieuws  

persoonlijk

Sybren Roede