<%
Option Explicit
Dim DSNName, Conn, RS, sql1
Dim myMail

	DSNName = "DRIVER=Microsoft Access Driver (*.mdb);DBQ="
	DSNName = DSNName & Server.MapPath("mydata.mdb")		'##### Change this line to the location of your database #####
	DSNName = DSNName & ";PWD=" & "mypass"					'##### Change this line to the password of your database #####
	
	Set Conn = Server.CreateObject("ADODB.Connection")		'creating Connection and Recordset objects
	Set RS = Server.CreateObject("ADODB.RecordSet")
	
	sql1 = "Select * From your_table WHERE set conditions"	'You need to set some conditions for your WHERE clause. It is a prerequisite to know SQL before getting started, fortunately SQL isn't terribly difficult to learn.
	Conn.Open DSNName
	RS.Open sql1, Conn, 1, 1		'The "1, 1" means that we'll be opening the database in read-only mode,
									'without making any modications to it.

		if not rs.eof then			'EOF means "end of file", which happens if the SQL statement returns no results.
									'We only enter the body of the IF if we find records that meet the defined conditions.

			'We've found a record that matches criteria, so lets send and email
			Set myMail=CreateObject("CDO.Message")		'Creating a mail object
			myMail.Subject="Condition has been met"		'These are just generic fields, you should probably
			myMail.From="mymail@mydomain.com"			'	replace them with more useful information.
			myMail.To="someone@somedomain.com"
			myMail.TextBody="Dear Sir or Madam, please pick up your part."
			myMail.Send
			set myMail=nothing
		end if
	RS.Close
	Conn.Close
	
	set rs = nothing			'Make sure to clean up your variables and uninitializes objects
	set conn = nothing
%>

		if not rs.eof then			'EOF means "end of file", which happens if the SQL statement returns no results.
									'We only enter the body of the IF if we find records that meet the defined conditions.

			Dim clientName
			clientName = RS("ClientName")
			
			'We've found a record that matches criteria, so lets send and email
			Set myMail=CreateObject("CDO.Message")		'Creating a mail object
			myMail.Subject="Condition has been met"		'These are just generic fields, you should probably
			myMail.From="mymail@mydomain.com"			'	replace them with more useful information.
			myMail.To="someone@somedomain.com"
			myMail.TextBody="Dear " & ClientName & ", please pick up your part."
			myMail.Send
			set myMail=nothing
		end if