formdan gelen değer
Kontrol Sorgusu
baglan=bağlantı nesnen

Set kontrol = Server.CreateObject("ADODB.Recordset")
sql = "Select kadi,email from uyeler where kadi='"&kadi&"'"
kontrol.Open sql,baglan,1,3
if kontrol.eof then
işlem
else
email işlemi
end if

Yüzeysel anlatım bu şekilde. nasıl email gönderebileceğin için konu

Biraz üstünde çalış ki sen de yaptığından birşeyler anlayasın.