<%@ Language=VBScript %>
<%Option Explicit%>
<%
if session("RandomID") & "" <> "" then
	dim SQL, oRs, oConn
	set oConn 	= Server.CreateObject("ADODB.Connection")
	oConn.open Application("ConStr")
	oConn.execute "Delete from OrderTemp where TempUserSession = " & session("RandomID")
	oConn.close	: set oConn = nothing
end if

	response.Cookies("degustibus").expires			= #12/12/2030#
	response.Cookies("degustibus")("UserID")		= ""	
	response.Cookies("degustibus")("UserSurname") 	= ""	
	response.Cookies("degustibus")("UserSex") 		= ""	
	response.Cookies("degustibus")("RandomID") 		= ""	
	Session("UserID")		=	""	
	session("UserSurname") 	=	""	
	session("UserSex")		= 	""	
	session("LastNameOnTop")= 	""	
	session("RandomID")		=	""	


	Response.Redirect "account.asp"
	%>