Scusate..

Riposto il codice del popup che deve mandare i dati al form:

<%@ language=vbscript %>
<%
set cnn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.RecordSet")
cnn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & application("db")

testo = request.querystring("testo")
testo = testo & "%"

set cmmd = Server.CreateObject("ADODB.Command")
cmmd.ActiveConnection=cnn
cmmd.CommandText = "SELECT * FROM ARTICOLI WHERE Cod_Art LIKE ?;"
cmmd.CommandType = 1
set param1 = cmmd.CreateParameter("testo", 200, 1, len(testo), testo)
cmmd.Parameters.Append param1

set rs = cmmd.execute
set rs2 = Server.CreateObject("ADODB.RecordSet")
%>

<script language=javascript>
function scelta(x)
{
window.returnValue=x;
window.close();
}
</script>

<%
rscodart = rs("Cod_Art")
rsdescrizione = rs("Descrizione")
rspuni = rs("puni")
rett = server.URLEncode(rscodart) & "#!#" & server.URLEncode(rsdescrizione) & "#!#"
%>
<td align=center width="15%" bgcolor="#FFFFFF">
<font size="1" face="Verdana"><%=rscodart%></font></td>
<td align=center width="71%" bgcolor="#FFFFFF">
<font size="1" face="Verdana"><%=rsdescrizione%></font></td>
<td align=center width="9%" bgcolor="#FFFFFF">
<font size="1" face="Verdana"><%=rspuni%></font></td>
<td align=center width="3%" bgcolor="#FFEFD5"><font size="1"><input type="button" value="+" onclick="javascript:scelta('<%=rett%>');"></font></td>
</tr>
<%
rs2.close
rs.movenext
loop
%>

Grazie!!!