2 insert into... è possibile??

[max1975_na]

ciao a tutti..
vorrei sapere se e possibbile effettuare 2 insert into logicamente in 2 tabelle distinte!

attualmente io ho questa situazione che per altro funziona perfettamente:

<% 
set conn=server.createobject("ADODB.connection")
%>

<% 	SQL= "INSERT INTO Tabella1(IP,O_IP1,O_IP2,O_DOMINIO)
values ('"& ip &"','"& wip1 &"','"& wip2 &"'," & wO_DOMINIO & "')"
	
on error resume next
Set rs = conn.Execute(SQL)

if err <> 0 then
		response.write "CI SONO STATI DEGLI ERRORI.

"
		response.write "Errore: " & err.description	& "
"
		response.write "sql: " & sql	& "
"
		response.write "<input type=button value='Ritorna al modulo immissione dati' onclick='history.back()'>"
		response.end
else
response.write "tutto ok"
end if
%>

se adesso alcuni di questi campi es. (IP,O_IP1,O_IP2) vorrei inserirli anche nella Tabella2 come dovrei procedere? io ho provato cosi.. ma mi inserisce 2 volte lo stesso record nella Tabella1

<% 
set conn=server.createobject("ADODB.connection")
%>

<% 	SQL= "INSERT INTO Tabella1(IP,O_IP1,O_IP2,O_DOMINIO)
values ('"& ip &"','"& wip1 &"','"& wip2 &"'," & wO_DOMINIO & "')"
	
on error resume next
Set rs = conn.Execute(SQL)

if err <> 0 then
		response.write "CI SONO STATI DEGLI ERRORI.

"
		response.write "Errore: " & err.description	& "
"
		response.write "sql: " & sql	& "
"
		response.write "<input type=button value='Ritorna al modulo immissione dati' onclick='history.back()'>"
		response.end
else
response.write "tutto ok"
end if

SQL2= "INSERT INTO Tabella2(NomeDominio) values ('" & wO_DOMINIO & "')"
	
on error resume next
Set rs2 = conn.Execute(SQL)

if err <> 0 then
		response.write "CI SONO STATI DEGLI ERRORI.

"
		response.write "Errore: " & err.description	& "
"
		response.write "sql: " & sql	& "
"
		response.write "<input type=button value='Ritorna al modulo immissione dati' onclick='history.back()'>"
		response.end
else
response.write "tutto ok2"
end if

%>

Spero di essere stato chiaro nella spiegazione...
Qualche consiglio?

[Roby_72]

1) Usa questa dichiarazione:

conn.Execute(SQL)

al posto di questa:

Set rs = conn.Execute(SQL)

2) Nella seconda query hai cambiato il nome in SQL2 quindi,

conn.Execute(SQL2)

Roby

[max1975_na]

grazie!...

secondo te, perche non riesco a scrivere l'ultimo campo nella seconda tabella??

<%
SQLUtenti_domini = "insert into Utenti_domini(NomeDominio,DataRegistrazione,DataScadenza,Prezzo,CodUtente)values('"& wO_DOMINIO &"','"& data &"','"& data+365 &"','"& wsomma &"',"& wcod_utente  &")"
		
on error resume next
Set rs1 = conn.Execute(SQLUtenti_domini)
		rs1.close
		set rs1 = nothing
		
		connUtenti_domini.Close 
		set connUtenti_domini = Nothing	
%>

Il campo id che voglio passargli e quello associato al cliente gia registrato al sito
1) il campo nel database e numerico e quindi nella stringa ho anche levato gli apici
2) con un response.write visualizzo il cod_utente a video (141)

[max1975_na]

ecco l'errore a video:
Errore: [Microsoft][Driver ODBC Microsoft Access] Il numero dei valori nella query non corrisponde a quello dei campi di destinazione.
sql:

fa che il campo IdUtente non e scrivibile perche serve a recuperare solo il valore assegnato al momento della registrazione dell'utente?

[Roby_72]

SQLUtenti_domini = "insert into Utenti_domini(NomeDominio,DataRegistrazione,DataScadenza,Prezzo,CodUtente)values('"& wO_DOMINIO &"','"& data &"','"& data+365 &"','"& wsomma &"',"& wcod_utente  &")"
		
response.write(SQLUtenti_domini)
response.end

Cosa leggi a video???

Non commettere l'errore di prima. Ti ho già detto come si esegue una query di INSERT.

Roby