questo e' il risultato
http://www.ilsentierone.it/EXCEZIONALE/nuova/AUTO_CASELLA.asp
qui di seguito i file
8il file ../db.asp qui non inserito include i dati di connessione al MYSqL
NON MI FUNZIONA COSI FATTO:
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
nome file :AUTO_CASELLA.asp (iniziale)
<!--#include file="auto_db.asp"-->
<script language="javascript">
var ricerca_pro;
function cerca(tabella)
{
var valorecampo = tabella.value;
// branch for native XMLHttpRequest object
if (window.XMLHttpRequest) {
ricerca_pro = new XMLHttpRequest();
ricerca_pro.onreadystatechange = function(){ricevi(tabella);};
ricerca_pro.open("GET", "auto_cerca.asp?reg="+valorecampo,true);
ricerca_pro.send(null);
// branch for IE/Windows ActiveX version
} else if (window.ActiveXObject) {
ricerca_pro = new ActiveXObject("Microsoft.XMLHTTP");
if (ricerca_pro) {
ricerca_pro.onreadystatechange = function(){ricevi(tabella);};
ricerca_pro.open("GET", "auto_cerca.asp?reg="+valorecampo,true);
ricerca_pro.send();
}
}
}
function ricevi(tabella) {
var idTabella = tabella.id.substr("TAB3LLA".length);
var record = document.getElementById("R3CORD" + idTabella);
record.options.length=0;
for(i=0;i<arrValori.length;i++);
{
record.options[length.option.length]=new Option(arrValori[i].split("|"));
}
}
</script>
<%
Set aquila = Server.CreateObject("ADODB.Connection")
aquila.Open Stringa_MYSQL_db
%>
<form action="<%=Request.ServerVariables("URL")%>" method="post" id="listaADD" name="listaADD">
<%for passaggi = 1 to 9%>
<%
SommaRec=0
SQLBUMBI="SELECT DISTINCT NOME_TABELLA FROM Z_DATI_RECORD_ order by NOME_TABELLA asc"
Set rossi=Server.CreateObject("ADODB.Recordset")
rossi.cursorlocation=3
rossi.Open SQLBUMBI, aquila, 1, 2
TotRec=rossi.RecordCount
Do While (Not rossi.Eof) And (SommaRec < TotRec )
SommaRec=SommaRec + 1
%>
<label>NOME_TABELLA <%=passaggi%><select name="TAB3LLA<%=passaggi%>" ID="TAB3LLA<%=passaggi%>" accesskey="1" tabindex="1" onchange="cerca(this)">
<option selected="selected" value=0>Scegli NOME_TABELLA <%=passaggi%></option>
<%do while not rossi.eof%>
<option value="<%=rossi("NOME_TABELLA")%>"><%=rossi("NOME_TABELLA")%></option>
<%rossi.movenext%>
<%loop%>
</select></label>
<label>NOME_RECORD <%=passaggi%><select name="R3CORD<%=passaggi%>" ID="R3CORD<%=passaggi%>" accesskey="2" tabindex="2"></select></label>
<br><br>
<%
Loop
rossi.Close
Set rossi=Nothing
%><%next%>
<% aquila.Close
Set aquila = Nothing%>
</FORM>
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
nome file :AUTO_CERCA.ASP (secondario)
<!--#include file="AUTO_db.asp"-->
<%
SommaRec=0
'''''''''''SQLBUMBI="SELECT NOME_RECORD FROM Z_DATI_RECORD_ WHERE NOME_TABELLA='" & reg & "' order by NOME_RECORD DESC"
SQLBUMBI="SELECT distinct NOME_RECORD FROM Z_DATI_RECORD_ order by NOME_RECORD DESC"
Set rissa=Server.CreateObject("ADODB.Recordset")
rissa.cursorlocation=3
rissa.Open SQLBUMBI, aquila, 1, 2
TotRec=rissa.RecordCount
Do While (Not rissa.Eof) And (SommaRec < TotRec )
primo = 0
if not rissa.eof then
do while not rissa.eof
if primo = 0 then
primo = 1
array_NOME_RECORD = rissa("NOME_RECORD")
else
array_NOME_RECORD = rissa("NOME_RECORD") & "|" & array_NOME_RECORD
end if
rissa.movenext
loop
end if
w(array_NOME_RECORD)
rissa.Close
Set rissa=Nothing
%>
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
nome file :AUTO_DB.asp (file supporto)
<!--#include file="../db.asp"-->
<%
'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
'---- CursorLocationEnum Values ----
Const adUseServer = 2
Const adUseClient = 3
'---- CommandTypeEnum Values ----
Const adCmdUnknown = &H0008
Const adCmdText = &H0001
Const adCmdTable = &H0002
Const adCmdStoredProc = &H0004
Const adCmdFile = &H0100
Const adCmdTableDirect = &H0200
sub w(sText)
RESPONSE.WRITE sText & vbCrLf
end sub
%>
Modificato da bitmanrc il 19 settembre 2013 16.24 -
Modificato da bitmanrc il 19 settembre 2013 16.52 -
