richiamare dati da diversi DB

[kaps]

Salve a tutti, ho un problema con ASP nel richiamare un dato da un DB già aperto per selezionare la lettura in un altro DB dei soli record di tabella con quel dato, in tutti i modi in cui ho provato mi visualizza errore.... dove sbaglio? Posto il codice qui di seguito!...

Grazie anticipatamente, Marco!

<% 
Dim Conne 
Set Conne = Server.CreateObject("ADODB.Connection") 
Conne.Open"Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath("riferimenti.mdb") 

Dim Rs 
Set Rs = Server.CreateObject("ADODB.Recordset") 
Rs.Open "SELECT * from dati", Conne, 3, 3 
%> 
<table border="1" cellspacing="1" width="100%"> 
<tr> 
<td bgcolor="#000080"><H1>News Letter A.N.P.AS.
 
Regione <%=Rs("Regione")%></H1></td> 
</tr> 
</table> 
<hr> 
<table width="100%" border="1"> 
<tr valign="top"> 
<% 
Dim Connec 
Set Connec = Server.CreateObject("ADODB.Connection") 
Connec.Open"Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath("ppaa.mdb") 

reg = Rs("Regione") 
Dim Rse 
Set Rse = Server.CreateObject("ADODB.Recordset") 
Rse.Open "SELECT * from ppaa where Regione="&reg, Connec, 3, 3 
%> 
<td align="center"> 
<form enctype="text/plain" method="post" action="mailto:<% Do While Not Rse.EOF %><%=Rse("EMail")%>; <% Rse.MoveNext 
loop %>?subject=Sala Operativa Regionale di Protezione Civile A.N.P.AS. <%=Rs("Regione")%>&cc=<%=Rs("EMail")%>" onSubmit="return checksubmit(this)"> 
<% 
Rse.Close 
Set Rse = Nothing 
Connec.Close 
Set Connec = Nothing 
%> 
.....

[Roby_72]

L'errore quale sarebbe?
Ricorda cmq di chiudere le connessioni come qualsiasi altro oggetto quando non più necessari.

Roby

[teorema55]

A condizione che l'istruzione mailto: ecc. ecc. supporti indirizzi multipli separati da ";" e premesso che non ho mai usato questa sintassi.......non vedo errori, lo script mi sembra anzi ben congegnato.

Solo.....usando un form anziché un link (come faccio io) per il mailto, penso che dovresti prevedere un bottone per l'inoltro: dov'è?

[kaps]

reg = Rs("Regione") 
Dim Rse 
Set Rse = Server.CreateObject("ADODB.Recordset") 
Rse.Open "SELECT * from ppaa where Regione="& reg, Connec, 3, 3 
%>

L'errore è qua dentro, l'oggetto reg = Rs("Regione")
non viene richiamato nella quarta riga dopo Regione="

... non so propio come fare a risolvere la questione

PS: la connessione è chiusa poco sotto la parte che ho tagliato

[kaps]

Originariamente inviato da teorema55
A condizione che l'istruzione mailto: ecc. ecc. supporti indirizzi multipli separati da ";" e premesso che non ho mai usato questa sintassi.......non vedo errori, lo script mi sembra anzi ben congegnato.

Solo.....usando un form anziché un link (come faccio io) per il mailto, penso che dovresti prevedere un bottone per l'inoltro: dov'è?

La funzione mailto va alla perfezione e supporta il ";"... il bottone è molto al disotto e l'ho tagliata poichè non fondamentale per l'esposizione del mio problema... quello che non va è, come ho esposto meglio nel nuovo post, che non mi carica la variabile Rs("Regione") al termine della stringha di connessione al DB ppaa
...

[teorema55]

Fai

Rse.Open "SELECT * from ppaa where Regione= ' " & reg & " ' ", Connec, 3, 3

(senza gli spazi)

[kaps]

Cavolo che cretinata che era!!
pensa che ci ho perso mezza giornata....

Grazie di vero cuore!
Marco

[teorema55]

Capita spesso e volentieri, sono contento che abbia risolto.

Marco anch'io.

[kaps]

Senti, già che vedo che sei gentilissimo posso aprofittare ancora di te per un altro quesito arcano che mi rovina la giornata?

Dovrei con questo codice inserire un codice html in un DB solo se un checkbox viene spuntato, altrimenti si inserisce un altro valore da un'altra input... purtroppo però non mi scrive nulla... perchè??

Dim objRs
Set objRs = Server.CreateObject("ADODB.Recordset")
objRs.Open "select * from sit_generale where ID =" & ID, objConn, 3, 3
If Request.Form("em_chiusa") = 0 Then
objRs("DATA") = request.form ("DATA")
Else
objRs("DATA") =  ("<script language="JavaScript" type="text/javascript">dataora = new Date(); document.write(dataora.getDate(),"/", dataora.getMonth()+1,"/", dataora.getYear());</script>")
End If
objRs("COD_OP") = request.form ("COD_OP")
objRs("LUOGO") = request.form ("LUOGO")
objRs("DESCR_SIT") = request.form ("DESCR_SIT")
objRs.Update

objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing

grazie e scusa se aprofitto!!
marco

[teorema55]

Di solito, in questi casi, inserisco l'istruzione

response.write(Request.Form("em_chiusa")):response .end

nel file che elabora il form, compilo la checkbox e invio. In questo modo posso controllare a video qual'è il valore passato dal form e regolarmi di conseguenza.