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