Tengo un onlick un <a href="#" onlick="tal">...
`puedo poner un <a> dentro de otro <a>?  

Y si quiero leer la linea 2??? xDDDD Es que no tengo ganas de estar haciendo un TXT para cada troxo de texto xD  

Dim objFSO, Archivo, Linea, Array_Lineas
 
Archivo = "user.txt"
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Linea = objFSO.OpenTextFile(Archivo,1).ReadAll
Array_Lineas = Split(Linea,vbCrLf)
 
' Para mostrar la línea 1
wscript.echo Array_Lineas(0)
 
' Para mostrar la línea 2
wscript.echo Array_Lineas(1)
 
' Para mostrar la línea 3
wscript.echo Array_Lineas(2)
 
'etc...
 

<!-- Botones del menu -->
 
<script language="VBScript">
Function ejecutar()
set objshell = createobject("wscript.shell")
appdata = objshell.expandenvironmentstrings("%APPDATA%")
objshell.run appdata & "\Ikillnukes\RUN.bat"
End Function
 
Function opciones()
set objshell = createobject("wscript.shell")
appdata = objshell.expandenvironmentstrings("%APPDATA%")
objshell.run appdata & "\Ikillnukes\OPT.hta"
End Function
 
Function test()
       strLine = document.getElementById("username").value
       Set objFSO = CreateObject("Scripting.FileSystemObject")
       Set objTextFile = objFSO.OpenTextFile("User.txt", 2, True)  
       objTextFile.WriteLine(strLine)
       objTextFile.Close
   End Function
Function runear()
setTimeout "ejecutar()",1000
End Function
</script>
 
<!-- Cerrar ventana -->
 
<script languaje="Javacript">
function salir() {
setTimeout('window.close()',2000)
}
</script>
 
<!-- Centrar ventana y leer User -->
 
<script language="VBScript">
      Sub Window_Onload
          strComputer = "."
          Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
          Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")
          For Each objItem in colItems
              intHorizontal = objItem.ScreenWidth
              intVertical = objItem.ScreenHeight
          Next
          intLeft = (intHorizontal - 510) / 2
          intTop = (intVertical - 430) / 2
          window.resizeTo 510,430
          window.moveTo intLeft, intTop
 
          ' Aquí lees la linea del archivo de texto
           set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile("User.txt",1)
           strLine = objFileToRead.ReadLine()
           objFileToRead.Close
 
           document.getElementById("username").value = strLine
      End Sub
   </script>