<% Dim EndDay Dim ThisMonth Dim ThisYear ThisYear=Year(Date) dim oConn2 dim oRS2 dim strSource dim DSNtemp set oConn2=server.CreateObject("ADODB.connection") set oRS2=server.CreateObject("ADODB.recordset") strSource = "DRIVER={Microsoft Access Driver (*.mdb)};" %> Founded in 1982 to provide a variety of fun, growth, and companionship activities for singles in the Richmond Virginia area. It is made up of two parts, Solo and Discovery.
Solo events are group social gatherings, e.g. dining out, movies, game nights, and dance parties, sponsored by individual members.
Discovery meetings include small group discussions followed by a social gathering.
You can see This Month's List of Events, Next Month's List of Events or our Calendar!
Discovery on February 23!
Dinner & a Play on February 9!
Beethoven & the Boys on February 16!
<% Response.Write("
Robin Inn every Thursday ! Our Members Brithday's:
") FUNCTION LastDay(Month,Year) Dim Mnth(13) Mnth(1) =31 Mnth(2) =28 Mnth(3) =31 Mnth(4) =30 Mnth(5) =31 Mnth(6) =30 Mnth(7) =31 Mnth(8) =31 Mnth(9) =30 Mnth(10) =31 Mnth(11) =30 Mnth(12) =31 IF(Month=2) THEN IF(IsDate("2/29/" &Year)) THEN LastDay=29 ELSE LastDay=28 END IF ELSE LastDay=Mnth(Month) END IF END FUNCTION ThisMonth = Month(Date) sql = "SELECT * FROM Membership Where Member = 'Yes' " sql = sql & "AND (BirthMonth='" &ThisMonth &"')" sql = sql & " ORDER BY BirthDay" oRS2.Open sql, oConn2 Discovery = true EndDay =LastDay(ThisMonth,ThisYear) FOR CalDate = 1 to EndDay flag = true Do While (Not oRS2.EOF AND flag) IF (CInt(oRS2("BirthDay"))=CompDay) THEN Heading() IF((oRS2("GroupEmail")="Yes") AND (oRS2("Email") <> "")) THEN Call Birthday(oRS2("UseName") &" " &oRS2("LastName")) ELSE Response.Write("Today is " &oRS2("UseName") &" " &oRS2("LastName") &"'s Birthday. Tell "&oRS2("UseName") &" Happy Birthday.
") END IF oRS2.MoveNext ELSE flag = false END IF LOOP NEXT %>
Updated 1/25/07