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...
 

    Function get_inputtext()
        strLine = document.getElementById("username").value
        test(strLine)
    End Function
 

onClick="get_inputtext()"

    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

onClick="test()"

Error: No está definida StrLine   Mira que te lo dije:

Function test(strLine)
...

' Hacemos que la función pueda recibir UN argumento, a la variable del argumento le doy el nombre "ARGUMENTO" como podría darle cualquier otro nombre.
Function test(ARGUMENTO)
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTextFile = objFSO.OpenTextFile("User.txt", 8, True)
    ' Escribimos en el archivo de texto la variable "ARGUMENTO" que contiene el argumento que le has pasado a la función, es decir, El contenido de "ARGUMENTO" será lo mismo que el contenido de "strLine".
    objTextFile.WriteLine(ARGUMENTO)
    objTextFile.Close
End Function

onClick="test(strLine)"

If ... Then
     For ...
         Orden
         Otra orden
     Loop
End If