Confermo non vedo nulla... mi fa impazzire perchè funziona correttamente su tutti i pc meno che su uno... codice completo:codice:<% strconn = "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("mdb-database/db.mdb") set objconn = server.createobject("ADODB.connection") objconn.open strconn utente = (request.cookies("accesso")("nome")) fld = Request.QueryString("f") ' ottieni la variabile 'f' passata via GET (field name) tbl = Request.QueryString("t") ' ottieni la variabile 't' passata via GET (table name) col = Request.QueryString("c") ' ottieni la variabile 'c' passata via GET (column name) incID = False If col = "Localita" Or col = "Persona" Or col = "Settimana" Then incID = True flMulti = False If col = "Personale" Then flMulti = True %><html> <head> <title>Popup</title> <link rel=stylesheet href=css/applicativi.css> <link rel=stylesheet href=css/menu.css> <link rel="stylesheet" href="css/menu.css"> <script language="javascript" type="text/javascript"> <!-- function setValue(selObj) { // Se la property opener (la finestra che ha aperto il popup) non // è impostata oppure l'option selezionata è la prima, ritorna if (!window.opener || selObj.selectedIndex <= 0) return; <% If flMulti = True Then %> var vl = ""; var opts = selObj.options; for ( n = 0 ; n < opts.length ; n++ ) { if (opts[n].selected) { if (vl.length > 0) vl += ", "; vl += opts[n].value; } } // Copia la stringa multipla nel campo 'fld' del FORM 'Qform' window.opener.document.Qform.<%=fld%>.value = vl; <% Else %> // Copia la stringa nel campo 'fld' del FORM 'Qform' contenuto // nella finestra che ha aperto il popup window.opener.document.Qform.<%=fld%>.value = selObj.value; <% End If %> // Chiudi automaticamente il popup window.close(); } // --> </script> </head> <body> <form name="Qform"> <% If flMulti = True Then %> <select name="<%=fld%>" size="8" multiple> <% Else %> <select name="<%=fld%>" size="1" onchange="setValue(this);"> <% End If %> <option>Selezionare <%=col%></option> <% 'sql = "SELECT *, " & col & " FROM " & tbl & " ORDER BY ID asc" 'If incID = True Then sql = "SELECT * FROM " & tbl & " ORDER BY " & col & " ASC" If flMulti = True Then sql = "SELECT * FROM cat INNER JOIN tUtenti_Unita ON tUtenti_Unita.unita_id = cat.id_uoat WHERE tUtenti_Unita.utente_id = "&utente&" ORDER BY cat.ID asc" If incID = True Then sql = "SELECT * FROM " & tbl & " ORDER BY " & col & " ASC" Else sql = "SELECT *, " & col & " FROM " & tbl & " ORDER BY ID asc" If incID = True Then sql = "SELECT * FROM " & tbl & " ORDER BY " & col & " ASC" End If Response.Write "eccomi...: " & sql & "::fine:: " Response.Flush Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, strconn, 3, 3 rs.MoveFirst Do While Not rs.EOF If incID = True Then %> <option value="<%=rs("ID")%>-<%=rs(col)%>"><%=rs(col)%></option> <% Else %> <option value="<%=rs(col)%>"><%=rs(col)%></option> <% End If rs.MoveNext Loop rs.Close Set rs = Nothing %> </select> <% If flMulti = True Then %> <a href="javascript:void(0);" onclick="setValue(document.Qform.<%=fld%>)"> <input type="image"src="img/conferma_button.gif" border="0" align="middle" name="I3"></a> <% End If %> <a href="javascript:void(0);" onclick="window.close()"> <input type="image"src="img/termina_button.gif" border="0" align="middle" name="I3"></a> </form> </body> </html>

Rispondi quotando