<%

dim ct
dim cs
dim cs2
dim rsSessione

set ct = Server.createobject("adodb.connection")
cs = "provider=MSDASQL;data source=artplus.it;database=artplus.it;user id=artplus_uid;pwd=artplus_pwd;"
cs2 = "DSN=artplus.it;UID=artplus_uid;PWD=artplus_pwd;"
'cs = "provider=MSDASQL;data source=artplus;database=artplus;user id=artplus2;pwd=radinpwd2;"
'cs2 = "DSN=artplus;UID=artplus2;PWD=radinpwd2;"
'cs = "provider=MSDASQL;data source=artplus;database=artplus;user id=artplus2;pwd=333artplus3;"
'cs2 = "DSN=artplus3;UID=artplus3;PWD=333artplus3;"

set rsSessione = Server.createobject("adodb.recordset")

sub OpenDB
	ct.ConnectionTimeout = 120
	ct.Open cs
rsSessione.open "select * from g_session where session = " & session.sessionid,cs,3,3
if not rssessione.eof then
rssessione("data") = now()
rsSessione.update
else
rsSessione.addnew
rsSessione("Session") = session.sessionid
rssessione("data") = now()
rsSessione.update
end if
rsSessione.close
end sub

sub CloseDB
	ct.Close
	set ct = nothing
end sub

%>