Inserimento in doppio database

[james81]

ciao
volevo avere qualche delucidaione sul come eseguire un doppio inserimento in due dabase diversi.
Vorrei far si che all'iscrizione di un utente i dati nick, pass ed email vengano inseriti in due database diversi. Preciso che i db si trovano nella medesima cartella, però i campi assumono dati differenti da una tabella all'altra, è possibile farlo?? ed eventualmente come???

[teorema55]

Semplicemente ripetendo la procedura due volte, con due stringhe di connessione e due query differenti.............ovviamente l'utente inserisce i dati una sola volta, ma la pagina che li elabora farà i due inserimenti anzichè uno solo.

[james81]

ho capito, ti premetto che sono nuovo in materia di asp, e già per riuscire a fare la procedura della login è stato complicato (era la prima volta che ne facevo una!)
quelle che ho io (e penso che anche le altre siano csì)praticamente è così impostata
-apro il db,utlizzo un file conn.asp dove ho inserito l'apertura del db
-inizializzo le varibili che mi servono rst("AnatCog") = Request.Form("cognome")
-creo gli imput dove inserire i vai dati del'iscirizione <td width="187"><input name="cognome" type="text" size="20" maxlength="50"></td>
-poi ho il mio Submit che mi invia tutte le mie variabile al databese
- e mi rimanda ad una schermata (sempre nella login) dove mi fà vedere se l'operaione è andata a buon fine e mi fà vedere i dati che ho inserito <td width="180"><input name="cognome" type="text" id="cognome" value="<%=rst("AnatCog")%>" size="20" maxlength="50" readonly></td>.

Ora quello che non ho ben capito, è devo fare una procedura parallela a questa con i dati dell'altro database?..eevetualmente fosse così, il codice che vado ad inserire (apertura secondo db,e tutto il resto) lo devo inserire sottostante a quello che ho fatto, o come?..scusate per le domande però per dato che stò imparando stò cercando di essere il più metodico possibile in maniera da ono creare troppa confusione..gracies

[teorema55]

Perchè non posti per intero il codice della pagina attuale e spieghi quali modifiche vuoi ottenere?

[james81]

<%

If Request.Form("passato") = "1" Then
%>

<%
set rst = Server.CreateObject("ADODB.Recordset")
caratteri = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Randomize ' inizializza il generatore di numeri casuale
Do Until len(password) = 10 ' qui imposti la lunghezza della password
carattere = Int((37 * Rnd) + 1) ' Genera un valore casuale compreso tra 0 e Z.
password = password & Mid(caratteri,carattere,1)
Loop
rst.open "SELECT * FROM Anagrafiche WHERE AnabEli=False", Connection, 2, 2
Do While Not rst.EOF
If Request.Form("n_u") = rst("AnatNU") Then
Response.Write "<p align=center class=testo><font color=red>Nome utente già utilizzato, provare con un altro!</font></p><p align=center class=testo><img src=images/indietro.gif alt='Torna indietro' border=0></p>"
Response.End
End If
rst.MoveNext
Loop
rst.AddNew
rst("AnatCog") = Request.Form("cognome")
rst("AnatNom") = Request.Form("nome")
rst("AnadDNa") = Request.Form("a_nascita") & "/" & Request.Form("m_nascita") & "/" & Request.Form("g_nascita")
rst("AnatEMl") = Trim(Request.Form("mail"))
rst("AnatNU") = Trim(Request.Form("n_u"))
rst("AnatPwd") = password
rst.Update
Response.Write "<p align=center class=testo>Dati inseriti con successo!</p>"
contr = rst("AnacID")
Set objmail = Server.CreateObject("CDO.Message")
objmail.Subject = "Benvenuto " & Request.Form("n_u") & "!"
objmail.From = "sito@xxx.com"
objmail.To = Trim(Request.Form("mail"))
objmail.TextBody = "Ecco i tuoi dati per accedere a www.sito.com. Nickname: " & Trim(Request.Form("n_u")) & ". Password: " & password
objmail.Send
Set objmail=Nothing
rst.Close
rst.Open "SELECT * FROM Anagrafiche WHERE AnacID=" & contr, Connection, 2, 2
%>
<table width="562" border="0" align="center" cellpadding="1" cellspacing="3">
<tr>
<td width="113" bgcolor="#DADAD2" class="testo Stile1"><span class="testo Stile2"><span class="testo">Cognome</span></span></td>
<td width="180"><input name="cognome" type="text" id="cognome" value="<%=rst("AnatCog")%>" size="20" maxlength="50" readonly></td>
<td width="8"></td>
<td width="73" bgcolor="#DADAD2" class="testo Stile1"><span class="testo Stile2"><span class="testo">Nome</span></span></td>
<td width="160"><input name="nome" type="text" id="nome" value="<%=rst("AnatNom")%>" size="20" maxlength="50" readonly></td>
</tr>
<tr>
<td bgcolor="#DADAD2" class="testo Stile1"><span class="testo Stile2"><span class="testo">Data di nascita</span></span></td>
<td><span class="testo">
<input name="g_nascita" type="text" id="g_nascita" value="<%=Left(rst("AnadDNa"), 2)%>" size="2" maxlength="2" readonly>
/
<input name="m_nascita" type="text" id="m_nascita" value="<%=Mid(rst("AnadDNa"), 4, 2)%>" size="2" maxlength="2" readonly>
/
<input name="a_nascita" type="text" id="a_nascita" value="<%=Right(rst("AnadDNa"), 4)%>" size="4" maxlength="4" readonly>
</span></td>
<td></td>
<td bgcolor="#DADAD2" class="testo Stile1"><span class="testo Stile2"><span class="testo">E-mail</span></span></td>
<td><input name="mail" type="text" class="campiformnowidth" id="mail" value="<%=rst("AnatEMl")%>" size="25" maxlength="50" readonly></td>
</tr>
</table>
<%
rst.Close
Set rst = Nothing
Connection.Close
Set Connection = Nothing
Else
%>
<form name="insc" method="post" action="ins_cliente.asp">
<table width="565" border="0" align="center" cellpadding="1" cellspacing="3">
<tr>
<td width="107" class="testo Stile2">Cognome</td>
<td width="187"><input name="cognome" type="text" size="20" maxlength="50"></td>
<td width="5" class="testo"></td>
<td width="71"><span class="testo Stile2">Nome</span></td>
<td width="167"><input name="nome" type="text" size="20" maxlength="50"></td>
</tr>
<tr>
<td class="testo Stile2"><span class="testo">Data di nascita</span></td>
<td class="testo"><input name="g_nascita" type="text" size="2" maxlength="2">
/
<input name="m_nascita" type="text" size="2" maxlength="2">
/
<input name="a_nascita" type="text" size="4" maxlength="4"></td>
<td class="testo"></td>
<td class="testo"><span class="testo Stile2">E-mail</span></td>
<td class="testo"><input name="mail" type="text" size="25" maxlength="50"><input type="hidden" name="passato" value="1"></td>
</tr>
<tr>
<td class="testo Stile2">Nome utente</td>
<td class="testo"><input name="n_u" type="text" size="20" maxlength="50">
</td>
<td class="testo"></td>
<td class="testo"></td>
<td class="testo"></td>
</tr>
<tr>
<td><div align="center">
</div></td>
<td align="right"><input name="Submit" type="image" src="images/salva.gif" onClick="MM_validateForm('cognome','','R','nome',' ','R','g_nascita','','RinRange1:31','m_nascita','' ,'R','a_nascita','','RinRange1900:999999999','mail ','','RisEmail','n_u','','R','pwd','','R','conf_pw d','','R');return document.MM_returnValue" alt="Salva" border=0>

<td></td>
<td>[img]images/cancella.gif[/img]</td>
<td></td>
</tr>
<%
End If
%>


nel file che ho incluso conn.asp è inserito questo:
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.open"provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("\mdb-database\database.mdb") & ";persist security info=false"
%>


ora quello che volevo era riuscire con quest'inserimento,a scirvere su due database il secondo l'ho chiamato blogs,la tabella dove sono contenuti i campi username,password,email si chiama users

[james81]

ho pensato questo non possibile far così?
inserisco i dati nel primo database, creo una variabile per ogni campo che mi serve e gli dò i valori presi dal primo database,e poi prendo i valo ri della variabile e li vado ad inserire nel secondo database, dite che si sia fattibile??? e ventualmente come?

[james81]

up

[optime]

Originariamente inviato da james81
ho pensato questo non possibile far così?
inserisco i dati nel primo database, creo una variabile per ogni campo che mi serve e gli dò i valori presi dal primo database,e poi prendo i valo ri della variabile e li vado ad inserire nel secondo database, dite che si sia fattibile??? e ventualmente come?

ovvero, come complicarsi la vita

1. creazione stringa sql di insert
2. apri conn1
3. conn1.execute stringa sql
4. chiudi conn1
5. apri conn2
6. conn2.execute stringa sql
7. chiudi conn2

that easy!

[james81]

scusa ma sono proprio di coccio non ho ben capito la procedura in questo caso (sql), non è che hai la possibilità di aver un esempio, tieni presente che per scrivere questa login ho letto la guida di html e vari tutorial in giro,quindi come dire l'ho compilata in maniera metodica e motlto schematica, sono ancora un molto novello!

[james81]

allora...ho qualche news!
ho variato il metodo d'inserimento per quanto riguarda la registrazione,ora praticamente ho una pagina nella quale vado ad inserire i miei dati poi quando dò l'INVIO passo ad una seconda pagina nella quale ho la funziona di inviare i dati al database ed far viasualizzare a schermo i dati inseriri.
Ora utilizzo database access e non sql, praticamente alla fine della procedura d'invio al primo database che si chiude con
rs("data") = new2
rs("ora") = new3
rs.Update
rs.MoveFirst
%>

subito sotto reinzio la seconda procedura per l'inserimento nel secondo database
<%
dim objConn
set objConn = server.Createobject("ADODB.Connection")
objConn.open "DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("../blog/mdb-database/blog.mdb")


ma quando provo ad effettuare l'iscrizione mi dà quest'errore:
Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0411)
Nome ridefinito
/sito/login/registra.asp, line 530, column 4
dim objConn
---^

dov'è che può essere l'errore?