<%
	'************************************************************************************
	'*																					*
	'*																					*
	'*																					*
	'************************************************************************************
	Function AccountExists(sEmail, sPassword)
		
		Dim rsStoreData
		
		Set rsStoreData	= CreateObject("ADODB.Recordset")
		
		sSQLText = "SELECT AccountUnq FROM owAccounts WHERE Login = '" & sEmail & "' AND Password = '" & sPassword & "'"
		Call DB_getFromDatabase(sSQLText, rsStoreData, "") 
		If ( rsStoreData.EOF ) Then
			AccountExists = False
		Else
			AccountExists = True
		End If
		Call DB_closeRecordset(rsStoreData)
		
		Set rsStoreData	= Nothing
		
	End Function
	'************************************************************************************
%>