Problema me.Database

**nadia79** · 20-12-2005, 16:29

Ciao a tutti,
sto cercando di adattare questo script, ora per farlo funzionare e integrare bene dovrei cambiare questo:

codice:

function CreaDinamicSelect()

'creazione e apertura della connessione
'set conn=server.createobject("adodb.connection")
'conn.open = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath(me.DataBase)
....

con un qualcosa di più dinamico tipo questo:

codice:

il problema però c'è anche nella pagina prova.asp in quanto la select viene generata in questo modo:

codice:

<%
set dinselectcategorie = new DinamicSelect
dinselectcategorie.DataBase="/freeasp_files/freeasp_database/database.mdb"
				
if len(reg) > 0 then
dinselectcategorie.selected = reg
else
dinselectcategorie.selected = "Scegli una regione"
end if
				
dinselectcategorie.sql = "select distinct pr_regione from sottocategorie"
dinselectcategorie.SelectValue = "pr_regione"
dinselectcategorie.SelectText = "pr_regione"
dinselectcategorie.evento = "onChange='aggiorna_regione();'"
dinselectcategorie.NomeCampo = "categorie"
dinselectcategorie.CreaDinamicSelect()
%>

come posso fare per rendere il tutto "dinamico" solo tramite l'include della connssione? Io ho provato a mettere l'include che richiama la connessione al DB in cima alla pagina prova.asp e subito dopo ho inserito l'inclusione alla classe dinselclass.asp e in ultimo ho cambiato questa riga con questa:

codice:

dinselectcategorie.DataBase="/freeasp_files/freeasp_database/database.mdb"

con 

dinselectcategorie.DataBase= conn 
' connessione aperta nella pagina connessione.asp

Uff però non funziona e mi dà errore nella pagina dinselclass.asp alla riga

codice:

rs.open me.sql, conn_soft, 3, 3

dove sbaglio? :master:

**nadia79** · 21-12-2005, 11:41

Up!

**nadia79** · 21-12-2005, 16:56

Ciao... nessun suggerimento? Come posso fare per togliere la proprietà me.Database? :master:

**nadia79** · 22-12-2005, 15:39

up

**nadia79** · 22-12-2005, 18:50

Uhmm proprio niente niente? Un'indicazione?

**nadia79** · 28-12-2005, 10:17

Up

**nadia79** · 28-12-2005, 11:44

Ciao,
allora dopo tanta fatica sono riuscita ad ottenere un qualche risultato, ho però ancora qualche problema sull'aggiornamento del comune che viene ogni volta reinizializzato alla prima della provincia selezionata, per favore potete dare un'occhiata? Questo è tutto il codice il DB è reperibile al url del primo post.

codice:

<%@LANGUAGE="VBSCRIPT">


<%
reg = request("regioni")
prov = request("provincie")
com = replace(request("comuni"), "'", "&#39")
%>
<html>
<head>
<title>Select dinamiche</title>
<script language="JavaScript">
<!--
function aggiorna_regione(){
	
	document.localita_italiane.provincie.value = "";
	document.localita_italiane.comuni.value = "";
	document.localita_italiane.submit();
	}
	
function aggiorna_provincia(){
	
	document.localita_italiane.comuni.value = "";
	document.localita_italiane.submit();
	}
	
function aggiorna_comune(){

	document.localita_italiane.provincie.value = "";
	document.localita_italiane.submit();
	}
	
function submit_finale(){
	var check;
	check="true";
	if (check=="true") {
	if ((document.localita_italiane.regioni.value=="Scegli una regione")||(document.localita_italiane.provincie.value=="--")||(document.localita_italiane.comuni.value=="Scegli prima una provincia o una regione")) {
				alert("Tutti i campi devono essere selezionati!");
				check="false";				
			}			
	}
	
	if (check=="true") {	

				document.localita_italiane.action="risultato.asp";
				document.localita_italiane.submit();				
	}
}
//-->
</script>
</head>
<body>
<table border="0" cellpadding="0" cellspacing="0" width="100%">

<form name="localita_italiane" method="post">

	<tr>
		<td align="right">
		Lista dinamica regioni
		</td>
		<td align="left">
			<%
			Dim rsRegioni
			Dim SQLRegioni
			SQLRegioni = "select distinct pr_regione from provincie"
			Set rsRegioni = Server.CreateObject("ADODB.Recordset")
			rsRegioni.Open SQLRegioni, conn_soft
			%>
            <select name="regioni" class="footer_blu_sx" id="regioni" onChange="aggiorna_regione();">
            <%
			Do until rsRegioni.EOF 
			Response.Write("<option value=" & rsRegioni("pr_regione"))
			If rsRegioni("pr_regione") = reg Then
			Response.Write(" selected") 
			end if 
			Response.Write (">" & rsRegioni("pr_regione") & "</option>")
			rsRegioni.Movenext
			Loop
			%>
            </select>
		</td>
	</tr>
	<tr><td colspan="2">

</td></tr>	
	<tr>
		<td align="right">
		Lista dinamica provincie
		</td>
		<td align="left">
			<%
			Dim rsProvincie
			Dim SQLProvincie
			
			If Len(reg) > 0 Then
				If Len(com) > 0 Then
					SQLProvincie = "select * from provincie inner join comuni on provincie.pr_sigla=comuni.loc_prov where loc_desc='"&com&"' and pr_regione = '"&reg&"'"	
					Else
						SQLProvincie = "select * from provincie where pr_regione='"&reg&"'"
					End if
				Else
					SQLProvincie = "select * from provincie where pr_sigla='--'"
			End if

			Set rsProvincie = Server.CreateObject("ADODB.Recordset")
			rsProvincie.Open SQLProvincie, conn_soft
			%>
            <select name="provincie" class="footer_blu_sx" id="provincie" onChange="aggiorna_provincia();">
            <%
			Do until rsProvincie.EOF 
			Response.Write("<option value=" & rsProvincie("pr_sigla"))
			If rsProvincie("pr_sigla") = prov Then
			Response.Write(" selected") 
			End if 
			Response.Write (">" & rsProvincie("pr_desc") & "</option>")
			rsProvincie.Movenext
			Loop
			%>
            </select>
		</td>
	</tr>
	<tr><td colspan="2">

</td></tr>
	<tr>
		<td align="right">
		Lista dinamica comuni
		</td>
		<td align="left">
			<%
			Dim rsComuni
			Dim SQLComuni
			
			If Len(reg) > 0 Then
				If reg = "Scegli una regione" Then
					SQLComuni = "select loc_desc, loc_prov from comuni where loc_prov = '--' order by loc_desc"	
					Else 
						If Not (prov = "--" Or prov = "") Then
							SQLComuni = "select loc_desc, loc_prov from comuni where loc_prov = '"&prov&"'"
							Else
								SQLComuni = "select loc_desc, loc_prov from comuni where loc_prov in (select pr_sigla from provincie where pr_regione='"&reg&"') order by loc_desc"
						End if
				End if
				Else 'al primo caricamento di pagina
					SQLComuni = "select loc_desc, loc_prov from comuni where loc_prov = '--' order by loc_desc" 
			End if

			Set rsComuni = Server.CreateObject("ADODB.Recordset")
			rsComuni.Open SQLComuni, conn_soft
			%>
			<% Response.Write(reg) %>
            <select name="comuni" class="footer_blu_sx" id="comuni" onChange="aggiorna_comune();">
            <%
			Do until rsComuni.EOF 
			Response.Write("<option value=" & rsComuni("loc_desc"))
			if rsComuni("loc_desc") = com Then
			Response.Write(" selected") 
			End if 
			Response.Write (">" & rsComuni("loc_desc") & "</option>")
			rsComuni.Movenext
			Loop
			%>
            </select>		
		</td>
		
	</tr>
	<tr><td colspan="2">

</td></tr>
	<tr><td colspan="2">

</td></tr>
	<tr>
		<td colspan="2" align="center">		
				<input type="button" value="Conferma" onClick="javascript: submit_finale();"/> 
				
		</td>
	</tr>
</form>
</table>
</body>
</html>

**nadia79** · 03-01-2006, 16:38

up

Discussione: Problema me.Database

Strumenti discussione

Ricerca discussione

Visualizza

Problema me.Database

Permessi di invio