Io ho provato con questo codice:

<% Dim num
num=1
Function Accoda()
If(document.CreateElement AND document.getElementById AND document.getElementsByTagName) Then

'Crea variabili
Dim rigo
Set rigo=document.createElement("TR")

Dim colonna1
Set colonna1=document.createElement("TD")

Dim colonna2
Set colonna2=document.createElement("TD")

Dim colonna3
Set colonna3=document.createElement("TD")

Dim inp1
Set inp1=document.createElement("INPUT")
with inp1
.name="txtCod"+num
.type="text"

Dim inp2
Set inp2=document.createElement("INPUT")
with inp2
.name="txtQuant"+num
.type="text"

Dim bottone
Set bottone=document.createElement("INPUT")
with bottone
.type="button"
.value="-"


'appendi al relativo padre
colonna1.appendChild inp1
colonna2.appendChild inp2
colonna3.appendChild button
rigo.appendChild colonna1
rigo.appendChild colonna2
rigo.appendChild colonna3

num=num+1
End If
End Function
%>
<TABLE ALIGN=center WIDTH = 400 EIGHT = 150 BORDER=0>
<TD><input type="button" value="aggiungi" onclick="accoda()" /></TD></TR>
</TABLE>

....MA MI DA QUESTO ERRORE:

Errore di compilazione di Microsoft VBScript error '800a0405'

Previsto 'With'

/esame/Acquisizione.asp, riga 110

End If