Where can I find such a script?  I am thinking it would be custom.  Can anyone direct me in the right direction to accomplish this?

broken script removed by self

Ok... I musta done something wrong... I copied the

'******************************************
'*** Birthday addon ****
'******************************************

%><!--#include virtual="/bdayemail.asp"--><%

Ooops should have mentioned that...

No I did not.

I will be posting a new version in a few minutes... there are so many changes that it's better to start from scratch. You'll have the same file, just a new version of it. :)

It turns out that I had not included the sendmail functions or anything. MyBad.

Okay... I'm sorry that I deleted that other post now. Phooey.

Here's the code you are waiting for, simply replace the code in the include file with this...

<%

DIM bdsql ' string variable for birthday sql
DIM bdstr ' string variable for birthday string
DIM needtosend ' I needed to make a bln so I could close the rs

If Application(strAppPrefix & "Bdaysent") = Date Then  

 	' this means it's already run and there's nothing to do.
 
Else
%><!--#include file="functions/functions_send_mail.asp" --><%
	' the database is already open in the common.asp so we have no need to open it.

	'first things first, let's check the private messenger for the entry for today.


bdsql = 	"SELECT " & strDbTable & "PMMessage.PM_Tittle, " & strDbTable & "PMMessage.PM_Message_date "&_
	"FROM " & strDbTable & "PMMessage "&_
	"WHERE (PM_Tittle = '2073991i') AND CAST(FLOOR(CAST(PM_Message_date AS FLOAT))AS DATETIME) = '"&date()&"'"


	'Query the database (looking for our PM flag)

	rsCommon.Open bdsql, adoCon

      If rsCommon.EOF Then ' empty recordset, so I need to process further.
      	needtosend = true
      Else
      	needtosend = false
      End if 

	rsCommon.close ' I'm gonna need that in my functions

    If needtosend then
      
      Call SendBirthdayEmail()
      Call SendBirthdayPM()
      Call WriteBirthdayToApplication()
    
    Else
    
       ' There is no PM on record so we need to go ahead and process the birthdays.
      
      Call WriteBirthdayToApplication() 
    
    end if

end if

DIM bdayarray, numberofmessagessent, i, stringHappyBirthday, p

Function SendBirthdayEmail()


' 1st, we need to get a list of all people with birthdays today... ya think?

bdsql = 	"SELECT " & strDbTable & "Author.Real_name, " & strDbTable & "Author.Author_email " &_
	"FROM " & strDbTable & "Author "&_
	"WHERE (DATEPART(d, dob) = "&DATEPART("D",date())&" AND DATEPART(m, dob) = "&DATEPART("M",date())&")"

 rsCommon.Open bdsql, adoCon

  If rsCommon.EOF Then
  	' there are no birthdays
  
  	rsCommon.close
  	exit function
  Else
  
  	' let's make an array since we want to close the rs ASAP.
  	
  	bdayarray = rsCommon.GetRows
  	rsCommon.close
  
  	numberofmessagessent = 0 ' mostly for classy email
  
  	For i = 0 to uBound(bdayarray,2)
  	
  	'This is your happy birthday message sent in plain text. 
  	 stringHappyBirthday =  "Dear "&decodeString(bdayarray(0,i))&","&VbLF&VbLf&_
  			      "The members, moderators and managers of "&strMainForumName&_
  			      " would like to wish you a happy birthday."
  
  	    Call SendMail(stringHappyBirthday,decodeString(bdayarray(0,i)),decodeString(bdayarray(1,i)),strMainForumName,strForumEmailAddress,"Happy Birthday from "&strMainForumName, strMailComponent, false)
  		
  	  numberofmessagessent = numberofmessagessent+1 ' you'll see why in a second.
  
  	Next
  	
  		' this is one of those exception anal things I do.
  		if numberofmessagessent > 1 then
  			p = "'s were"
  		Else
  			p = " was"
  		End If	
  
  	' Now send an email to the forum address just so we know we sent and to whom
  
  
  
  	stringHappyBirthday = 	"You will be happy to know that "&numberofmessagessent&_
  				" happy birthday E-Mail"&p&" sent today @ "&Now()&" (Server Time)."
  
  
  
  	stringHappyBirthday = stringHappyBirthday &VbLF&VbLf&" Messege"&p&" sent to:"&VbLF&VbLf
  
  	For i = 0 to uBound(bdayarray,2)
  
  		stringHappyBirthday = stringHappyBirthday & decodeString(bdayarray(0,i)) &VbLF 
  
  	Next
  	
  	' This will send an email to the admin listing the "real names" of everyone sent an email.
  	' I may change it to user names.
  	Call SendMail(stringHappyBirthday,strMainForumName,strForumEmailAddress,strMainForumName,strForumEmailAddress,"Happy Birthday email sent", strMailComponent, false)
  end if



End Function


' This is how I solved the issue of duplicate email and not wanting
' to create another table or modify an existing one.
' All it does is send a private message to the master admin account
' so we can look for it later. 
' Frankly, this part is untested because I've not processed the email or this function yet.
' I'd be interested in your results.
' And yes, this is boRg's code all the way down to the spelling.

Function SendBirthdayPM()

       strSQL = "SELECT" & strDBTop1 & " " & strDbTable & "PMMessage.* " & _
		"FROM " & strDbTable & "PMMessage" & strRowLock & ";"

	With rsCommon

		'Set the Lock Type for the records so that the record set is only locked when it is updated
		.LockType = 3

		'Open the recordset
		.Open strSQL, adoCon

		'Check to make sure the message is not already sent to the user


		'Save the pm


			'Add new record to recordset
			.AddNew
			
			.Fields("Author_ID") = 1 ' this should be changed to the specific user
			.Fields("From_ID") = 1
			.Fields("PM_Tittle") = "2073991i"
			.Fields("PM_Message") = "birthday sent"
			.Fields("PM_Message_date") = now()
			.Fields("Email_notify") = strDBFalse
			.Update

			


		'Clean up
		.Close
	End With


End Function

Function WriteBirthdayToApplication()

	Application.Lock

	'Update the application level variable
	Application(strAppPrefix & "Bdaysent") = Date

	'Unlock the application
	Application.UnLock

end Function
%>

Microsoft VBScript compilation error '800a03ee'

Expected ')'

/bdayemail.asp, line 118

Call SendMail(SendMail stringHappyBirthday,strMainForumName,strForumEmailAddress,strMainForumName,strForumEmailAddress,"Happy Birthday email sent", strMailComponent, false)
-----------------------^

I think he was saying he was wondering as well whether or not I got it working.

Slight miscommunication...

Ah yes... if you created the user after the script ran, then it's too late. I was thinking about that too but the solution is complicated in that you would have to intercept new user registrations to see if it happens to be their birthday. Also, if a user logs on and changes (or adds) their birthday after the script runs, they won't get one either.

THANKS!