Si.
Posto anche il codice (asp/javascritp) della listboxtipolist.asp
codice:
<script LANGUAGE="JavaScript">
function addOptionToOpener(Listbox, Text, Value)
{
var oOption = self.opener.document.createElement("option");
Listbox.appendChild(oOption);
oOption.value = Text;
oOption.text = Text;
}
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Ricerca</title>
<script language="javascript">
function checkCommit()
{
document.datiform.vc_flagconf.value='S';
document.datiform.submit();
}
</script>
</script>
</head>
<body bgcolor="#f0f0f0">
<%
vc_user = session("vc_userprop")
Dim strURL
Dim con
Dim rs
Dim strDBPath
Dim sql
vc_userconn =session("vc_userprop")
if vc_userconn ="" then
response.redirect "timeoutt.asp"
end if
vc_flagconf = Request.QueryString("vc_flagconf")
strSearch = Request.QueryString("search")
strSearch = Replace(strSearch, "'", "''")
strSearchcomu = Request.QueryString("searchcomu")
strSearchcomu = Replace(strSearchcomu, "'", "''")
if vc_flagconf <> "S" then
Set rs = Server.CreateObject("ADODB.Recordset")
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open application("ConnDB")
Set con = Server.CreateObject("ADODB.Connection")
con.Open application("ConnDB")
SQL = "SELECT .... "
Set rs = con.Execute(sql)
%>
<form name="datiform" action="<%= strURL %>?vc_flagconf=S" method="get">
<table border="0" width="100%">
<tr>
<td width="20%" class="titololista">Denominazione:</td>
<td width="50%">
<input name="search" class="campinotnull" value="<%= strSearch %>" size="30" />
</td>
</tr>
<tr>
<td width="20%" class="titololista">Comune</td>
<td width="50%"><input name="searchcomu" class="campinotnull" value="<%= strSearchcomu %>" size="30" /></td>
</tr>
<tr>
<td width="100%" colspan="2" align="center">
<input type="submit" value="Ricerca" onClick="Modulo()" class="campiform" onMouseOver="this.className='campiform2'" onmouseOut="this.className='campiform'" />
<input type="submit" onClick="javascript:checkCommit()" value="Conferma" class="campiform">
<input type="hidden" name="vc_flagconf" value="N">
</td>
</tr>
</table>
<%
if not rs.EOF then
%>
<table border="1">
<tr>
<th class=testolabel>Descrizione</th>
<th class=testolabel></th>
</tr>
<%
Do While Not rs.EOF
id = rs("CODI_ENTE")
%>
<tr >
<td valign="top" class=testolista>
<%= rs("DESC_DENO_ENTE") %>
</td>
<td valign="top" class=testolista>
<input type="checkbox" name="record_<%=id%>" value="<%=id%>">
</td>
</tr>
<%
rs.MoveNext
Loop
%>
</table>
<p align="center">
<input type="submit" onClick="javascript:checkCommit()" value="Conferma" class="campiform">
</p>
<%
else
%>
<p class="errori" >
Non risultano dati
</p>
<%
end if
%>
<table>
</form>
<%
else
%>
<form name="datiform" action="<%= strURL %>?vc_flagconf=S" method="get">
<%
strSearch = Replace(strSearch, "''''", "''")
strSearchcomu = Replace(strSearchcomu, "''''", "''")
Set con = Server.CreateObject("ADODB.Connection")
con.Open application("ConnDB")
SQL = "SELECT .... "
vc_listcodicapo=""
vc_listcodidann=""
Set rs = con.Execute(sql)
i=0
if not rs.EOF then
Do While Not rs.EOF
record = request("record_" & rs("CODI_ENTE"))
'Visualizzo i prodotti selezionati
if len(record) <> 0 then
i=i+1
vc_listcodicapo=rs("CODI_ENTE")
vc_listcodidann=rs("DESC_DENO_ENTE")
%>
<script language="JavaScript">
addOptionToOpener(self.opener.document.datiform.CODI_ENTE_LIST, '<%=Replace(vc_listcodidann,"'","\'",1)%>', '<%=vc_listcodicapo%>');
</script>
<%
end if
rs.MoveNext
Loop
end if
%>
<script language="JavaScript">
this.close();
</script>
</form>
<%
end if
%>
</body>
Grazie intanto per la risposta.
Ciao