<!-- #include file="adovbs.inc"-->
<%
	Dim objConn
	Set objConn = Server.CreateObject("ADODB.Connection")
	
	objConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(".\db") & ".\umcdb.mdb")	
	'objConn.Open("dsn=tantraco-tantra")
%>
<%
	If Len(Session("UserID"))>0 then
	
objConn.Execute("Delete * from tblActiveUser where Author_ID="&Cint(Session("UserID")))
		
	end if
		Session.Abandon

	Response.Redirect "index.asp?error=2"
	
%>