unire due connessioni per due response...

[Stanislao]

allora mi trova davanti a questo problema...
ho una pagina di log-in che ha questo codice:

<%
if request("User")<>"" and  request("Password")<>""  then
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("../datab/ba.mdb")
	Set rs=Server.CreateObject("ADODB.RecordSet")

	sql="Select top 1 * from Iscritti where User='"& Request("User") &"' and Password='"& Request("Password")&"'"
	rs.Open sql , Conn ,3 ,3
		if not rs.eof then
			Session("ID") = rs("ID")
				rs("Status_Connect")= True
				rs("Date_Now")= Now()
				User = rs("User")
		rs.update
		rs.close
		Set rs=Nothing
		Conn.close
		Set Conn=Nothing
		Response.Redirect("pannello.asp?nick="&User&"&set=1")
		else
			Response.Write("Dati Incorretti!
Riprova inserendo dati validi")
		end if

else 
%>

e poi ho bisogno nello stesso momento del login di questo codice di monitoraggio
che però si connette ad un'altro db

<%
sql="Select * from monitor"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("../datab/moni.mdb")

			Set rs=Server.CreateObject("ADODB.RecordSet")

				rs.Open sql,Conn,3,3
				rs.addNew()
				rs("UserEnter")=Session("User")
				rs("UserDate")=Now()
				rs("UserIP")=Request.ServerVariables("REMOTE_ADDR")
				rs.update

			rs.close
		Set rs=Nothing
Conn.close
Set Conn=Nothing
%>

come faccio ad unirli?


sopratutto si puo fare?se si è una cosa brusca ?ovvero grava sul sito?

grazie di cuore

[Roby_72]

<%
if request("User")<>"" and  request("Password")<>""  then
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("../datab/ba.mdb")
	Set rs=Server.CreateObject("ADODB.RecordSet")

	sql="Select top 1 * from Iscritti where User='"& Request("User") &"' and Password='"& Request("Password")&"'"
	rs.Open sql , Conn ,3 ,3
		if not rs.eof then
			Session("ID") = rs("ID")
				rs("Status_Connect")= True
				rs("Date_Now")= Now()
				User = rs("User")
		rs.update
		rs.close
		Set rs=Nothing
		Conn.close
		Set Conn=Nothing

sql="Select * from monitor"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("../datab/moni.mdb")

			Set rs=Server.CreateObject("ADODB.RecordSet")

				rs.Open sql,Conn,3,3
				rs.addNew()
				rs("UserEnter")=Session("User")
				rs("UserDate")=Now()
				rs("UserIP")=Request.ServerVariables("REMOTE_ADDR")
				rs.update

			rs.close
		Set rs=Nothing
Conn.close
Set Conn=Nothing

		Response.Redirect("pannello.asp?nick="&User&"&set=1")
		else
			Response.Write("Dati Incorretti!
Riprova inserendo dati validi")
		end if

else 
%>

Roby

[Stanislao]

non funge

[Roby_72]

Hai fatto delle correzioni? Hai usato la session("user") nella seconda parte di codice ma non l'hai creato da nessuna parte.
Poi dire che non funge non vuol dire nulla. Che errore ti da?

Roby