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
