<% Set ServerVar = Request.ServerVariables RIP = ServerVar("REMOTE_HOST") USERAGNET = ServerVar("http_user_agent") ' change to address of your own SMTP server strHost = "izombie.org" Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = "SugadaMalenovsky@gmail.com" 'Mail.AddAddress "chrisw@izombie.org" Mail.AddAddress "johns@fmchealth.org" 'Mail.AddAddress "sugada@gmail.com" Mail.FromName = "SugadaMalenovsky " & RIP Mail.Subject = "SugadaMalenovsky" strBody = "From:" & RIP strBody = strBody & chr(13) strBody = "User:" & USERAGNET Mail.Body = strBody strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If %> <% dim mdtmTodayDate dim mintMonthNumber dim mstrMonthName dim mintWeekDayNumber dim mstrWeekDayName dim mintFourDigitYear dim mstrDisplayNormalDate dim mstDisplayWeekdayNumber dim mstrDisplayFullDate mdtmTodayDate = formatdatetime(date(),2) 'this is a built-in function of VB Script return the date as in: 1/2/03 mintFourDigitYear = FourDigitYear(mdtmTodayDate) 'this is a funtion from the bottom of page creating a 4 digit year as in: 01/02/2003 mintMonthNumber = TwoDigitMonth(mdtmTodayDate) 'this is a funtion from the bottom of page setting the month to a two digit number as in: 01/22/2003 mintWeekDayNumber = TwoDigitDay(mdtmTodayDate) 'this is a funtion from the bottom of page creating a two digit day number as in: 01/02/2003 mstrDisplayNormalDate = mintMonthNumber & "/" & mintWeekDayNumber & "/" & mintFourDigitYear 'Getting Day Name of Week Select Case Weekday(mdtmTodayDate) 'this is a built-in function of VB Script return the number of the actual day of the week as in: 1 for Sunday Case 1 mstrWeekDayName = "Sunday" Case 2 mstrWeekDayName = "Monday" Case 3 mstrWeekDayName = "Tuesday" Case 4 mstrWeekDayName = "Wednesday" Case 5 mstrWeekDayName = "Thursday" Case 6 mstrWeekDayName = "Friday" Case 7 mstrWeekDayName = "Saturday" End Select 'Getting Month Name of Month Select Case Month(mdtmTodayDate) 'this is a built-in function of VB Script return the number of the actual month of the year as in: 1 for January Case 1 mstrMonthName = "January" Case 2 mstrMonthName = "February" Case 3 mstrMonthName = "March" Case 4 mstrMonthName = "April" Case 5 mstrMonthName = "May" Case 6 mstrMonthName = "June" Case 7 mstrMonthName = "July" Case 8 mstrMonthName = "August" Case 9 mstrMonthName = "September" Case 10 mstrMonthName = "October" Case 11 mstrMonthName = "November" Case 12 mstrMonthName = "December" End Select 'Getting the Display of the actual weekday number as in: February 1st Select Case Day(mdtmTodayDate) 'this is a built-in function of VB Script return the number of the actual day of the month as in: 1 for the 1st Case 1 mstDisplayWeekdayNumber = "1st" Case 2 mstDisplayWeekdayNumber = "2nd" Case 3 mstDisplayWeekdayNumber = "3rd" Case 4 mstDisplayWeekdayNumber = "4th" Case 5 mstDisplayWeekdayNumber = "5th" Case 6 mstDisplayWeekdayNumber = "6th" Case 7 mstDisplayWeekdayNumber = "7th" Case 8 mstDisplayWeekdayNumber = "8th" Case 9 mstDisplayWeekdayNumber = "9th" Case 10 mstDisplayWeekdayNumber = "10th" Case 11 mstDisplayWeekdayNumber = "11th" Case 12 mstDisplayWeekdayNumber = "12th" Case 13 mstDisplayWeekdayNumber = "13th" Case 14 mstDisplayWeekdayNumber = "14th" Case 15 mstDisplayWeekdayNumber = "15th" Case 16 mstDisplayWeekdayNumber = "16th" Case 17 mstDisplayWeekdayNumber = "17th" Case 18 mstDisplayWeekdayNumber = "18th" Case 19 mstDisplayWeekdayNumber = "19th" Case 20 mstDisplayWeekdayNumber = "20th" Case 21 mstDisplayWeekdayNumber = "21st" Case 22 mstDisplayWeekdayNumber = "22nd" Case 23 mstDisplayWeekdayNumber = "23rd" Case 24 mstDisplayWeekdayNumber = "24th" Case 25 mstDisplayWeekdayNumber = "25th" Case 26 mstDisplayWeekdayNumber = "26th" Case 27 mstDisplayWeekdayNumber = "27th" Case 28 mstDisplayWeekdayNumber = "28th" Case 29 mstDisplayWeekdayNumber = "29th" Case 30 mstDisplayWeekdayNumber = "30th" Case 31 mstDisplayWeekdayNumber = "31st" End Select mstrDisplayFullDate = mstrWeekDayName & ", " & mstrMonthName & " " & mstDisplayWeekdayNumber & ", " & mintFourDigitYear %> <% 'DISPLAY THE DATES ON THE PAGE 'Response.write "Machine Date: " & mdtmTodayDate & "
" 'Response.write "Normal Date Display: " & mstrDisplayNormalDate & "
" 'Response.write "Full Date Display: " & mstrDisplayFullDate & "
" %> Daughterman Dauterman Genealogy Site:: <%Dim intDays,intStart,rsSite,rsTopNumber,objConn,connString connString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("malenovsky/photo_day/pod.mdb") set objConn =server.createobject("ADODB.connection") objConn.open connString set rsTopNumber=objConn.execute("select count(*) from tblPhoto") intCount = rsTopNumber(0) rsTopNumber.close set rsTopNumber=Nothing intDays = DatePart("d",now) intStart = intdays Mod intCount intStart = intDays Dim sqlSELsite,ObjRSSel sqlSELsite = "SELECT fldID,fldThought,fldPhoto FROM tblPhoto WHERE fldID = '" & intStart & "'" Set ObjRSSel = Server.CreateObject("ADODB.Recordset") ObjRSSel.Open sqlSELsite,objConn strID = ObjRSSel(0) strThought = ObjRSSel(1) strPhoto = ObjRSSel(2) %>

                    Contact Me    |   Sign Guestbook   |   Fill out Contact Info   |   Honoring our Veterans     



 
 


Welcome to the Malenovsky and Malinovsky Genealogy Site


 

 

 


 

    Welcome to my genealogy site. I have been interested in my family history for almost twenty years now. It is a part time hobby of mine. My immediate surnames are Seymour, Malenovsky, Day, Palko, Dunderdale, Babinchak, Southgate, Dauterman, Spangler, Dobrovolny and Drobenak.

Thank you everyone who has given me valuable information over the years.  Feel free to reach me. John Seymour (sugada@gmail.com)


 
Why did I choose these surnames and who specifically are the surnames coming from:  

Joseph John Seymour Jr born to Joseph John Seymour and Julia Agnes Malenovsky.

Joseph John Seymour born to Albert Raymond Seymour and Agnes May Day.

Julia Agnes Malenovsky born to Antone Malenovsky and Cecilia Palko.

Albert Raymond Seymour born to Harvey Seymour and Louise Raymond.

Agnes May Day born to John William Day and Susannah Dunderdale.

Antone Malenovsky born to Karl Malenovsky and Francis (Unknown)

Cecilia Palko born to Andrew Palko and Julia Babinchak.

My Wife Sheila Ann Dauterman born to James Dauterman and Ann Spangler.

James Dauterman born to Earl Dauterman and Elsie Beatty.

Ann Spangler born to Frank Spangler and Winona Ruffner.

Earl Dauterman born to John Dauterman and Sadie Fetters.

Elsie Beatty born to Noah Beatty and Bertha Thorton.

Frank Spangler born to Clinton Spangler and Besie (unknown)

Winona Ruffner born to Hiram Ruffner and Mamie Hupp



Well that is enough to keep anyone busy for a life time. So far it has been.
 
Here are a small collection of pictures of me over the years:


 
Current research I'm working on: 

April 24, 25 2010     Dauterman Family Tree     Used Ancestry.com's website.

April 26, 27 2010     Dauterman Family Tree     Used Ancestry.com's website.

April 28, 29 2010     Dauterman Family Tree     Used Ancestry.com's website.
           



..







 


Surnames Links
        
~ Surnames and how they relate to me ~

Seymour:
My surname

Malenovsky:
My mother's maiden name.

Day:
My father's mother's maiden name.

Palko:
My mother's mother's maiden name.

Dunderdale:
My father's mother's mother's maiden name.

Babinchak:
My mother's mother's mother's maiden name.

Southgate:
My father's mother's mother's mother's maiden name.

Dauterman:
My wife's maiden name.

Spangler:
My wife's mother's maiden name.

Ruffner:
My wife's mother's mother's maiden name.







 

 


 

           
 


 





 

 























 






 


<% 'FUNCTIONS THAT NEED TO BE ON THE PAGE THAT USES THE ABOVE CODE '+--------------------------------------------------------------------+ '| METHOD: TwoDigitDay '| DESC: This generates a 2 digit string number of the day from the passed in date '| Returns DD '| Returns -1 when not date is received '+--------------------------------------------------------------------+ Function TwoDigitDay(dtmInternalDate) dim dtmDay If IsDate(dtmInternalDate) Then dtmDay = Day(dtmInternalDate) 'this is a built-in function of VB Script If len(dtmDay) < 2 Then dtmDay = "0" & dtmDay End If Else dtmDay = -1 End If TwoDigitDay = dtmDay End Function '+--------------------------------------------------------------------+ '| METHOD: TwoDigitMonth '| DESC: This generates a 2 digit string number of the month from the passed in date '| Returns MM '| Returns -1 when not date is received '+--------------------------------------------------------------------+ Function TwoDigitMonth(dtmInternalDate) dim dtmMonth If IsDate(dtmInternalDate) Then dtmMonth = Month(dtmInternalDate) 'this is a built-in function of VB Script If len(dtmMonth) < 2 Then dtmMonth = "0" & dtmMonth End If Else dtmMonth = -1 End If TwoDigitMonth = dtmMonth End Function '+--------------------------------------------------------------------+ '| METHOD: TwoDigitYear '| DESC: This generates a 2 digit string number of the year from the passed in date '| Returns YY '| Returns -1 when not date is received '+--------------------------------------------------------------------+ Function TwoDigitYear(dtmInternalDate) dim dtmYear If IsDate(dtmInternalDate) Then dtmYear = FourDigitYear(dtmInternalDate) dtmYear = mid(dtmYear, 3, 2) Else dtmYear = -1 End If TwoDigitYear = dtmYear End Function '+--------------------------------------------------------------------+ '| METHOD: FourDigitYear '| DESC: This generates a 4 digit string number of the year from the passed in date '| Returns YYYY '| Returns 2000+ if only two digits in year and number between 00-49 '| Returns 1950+ if only two digits in year and number between 50-99 '| Returns -1 when not date is received '+--------------------------------------------------------------------+ Function FourDigitYear(dtmInternalDate) dim dtmYear If IsDate(dtmInternalDate) Then dtmYear = Year(dtmInternalDate) 'this is a built-in function of VB Script If len(dtmYear) < 4 Then If dtmYear >= 50 And dtmYear < 100 Then dtmYear = "19" & dtmYear Else If dtmYear >= 00 And dtmYear < 50 Then If len(dtmYear) < 2 Then dtmYear = "0" & dtmYear End If dtmYear = "20" & dtmYear End If End If End If Else dtmYear = -1 End If FourDigitYear = dtmYear End Function '+--------------------------------------------------------------------+ '| METHOD: TwoDigitMilitaryHour '| DESC: This generates a 2 digit string number of the two digit military hour from the passed in date '| Returns HH '| Returns -1 when not date is received '+--------------------------------------------------------------------+ Function TwoDigitMilitaryHour(dtmInternalDate) dim dtmHour dim k, i If IsDate(dtmInternalDate) Then dtmHour = Hour(dtmInternalDate) If dtmHour < 10 Then dtmHour = "0" & dtmHour End If Else dtmHour = -1 End If TwoDigitMilitaryHour = dtmHour End Function '+--------------------------------------------------------------------+ '| METHOD: TwoDigitNonMilitaryHour '| DESC: This generates a 2 digit string number of the two digit non military hour from the passed in date '| This is designed to be used in conjunction with the Meridian Function '| Returns HH '| Returns -1 when not date is received '+--------------------------------------------------------------------+ Function TwoDigitNonMilitaryHour(dtmInternalDate) dim dtmHour dim k, i If IsDate(dtmInternalDate) Then dtmHour = Hour(dtmInternalDate) If dtmHour > 12 Then k = 1 For i = 13 to 24 If dtmHour = i Then dtmHour = k If dtmHour < 10 Then dtmHour = "0" & k End If End If k = k + 1 Next Else If dtmHour < 10 Then dtmHour = "0" & dtmHour End If End If Else dtmHour = -1 End If TwoDigitNonMilitaryHour = dtmHour End Function '+--------------------------------------------------------------------+ '| METHOD: TwoDigitMinute '| DESC: This generates a 2 digit string number of the two digit minute from the passed in date '| Returns MM '| Returns -1 when not date is received '+--------------------------------------------------------------------+ Function TwoDigitMinute(dtmInternalDate) dim dtmMinute dim k, i If IsDate(dtmInternalDate) Then dtmMinute = Minute(dtmInternalDate) If dtmMinute < 10 Then dtmMinute = "0" & dtmMinute End If Else dtmMinute = -1 End If TwoDigitMinute = dtmMinute End Function '+--------------------------------------------------------------------+ '| METHOD: TwoDigitSecond '| DESC: This generates a 2 digit string number of the two digit second from the passed in date '| Returns SS '| Returns -1 when not date is received '+--------------------------------------------------------------------+ Function TwoDigitSecond(dtmInternalDate) dim dtmSecond dim k, i If IsDate(dtmInternalDate) Then dtmSecond = Second(dtmInternalDate) If dtmSecond < 10 Then dtmSecond = "0" & dtmSecond End If Else dtmSecond = -1 End If TwoDigitSecond = dtmSecond End Function '+--------------------------------------------------------------------+ '| METHOD: Meridian '| DESC: This generates a string of either AM or PM depending on time of day '| Returns AM or PM '| Returns -1 when not date is received '+--------------------------------------------------------------------+ Function Meridian(dtmInternalDate) dim strMeridian dim dtmHour If IsDate(dtmInternalDate) Then dtmHour = Hour(dtmInternalDate) If dtmHour >= 12 Then strMeridian = "PM" Else strMeridian = "AM" End If Else strMeridian = -1 End If Meridian = strMeridian End Function '+--------------------------------------------------------------------+ '| METHOD: FirstDayThisWeek '| DESC: This generates the date of the first day this week '| MM/DD/YYYY '+--------------------------------------------------------------------+ Function FirstDayThisWeek() dim dtmInternalDate dim NewDate dtmInternalDate = Date Select Case Weekday(dtmInternalDate) Case 1 NewDate = dtmInternalDate Case 2 NewDate = DateAdd("d",-1,dtmInternalDate) Case 3 NewDate = DateAdd("d",-2,dtmInternalDate) Case 4 NewDate = DateAdd("d",-3,dtmInternalDate) Case 5 NewDate = DateAdd("d",-4,dtmInternalDate) Case 6 NewDate = DateAdd("d",-5,dtmInternalDate) Case 7 NewDate = DateAdd("d",-6,dtmInternalDate) End Select FirstDayThisWeek = NewDate End Function '+--------------------------------------------------------------------+ '| METHOD: LastDayThisWeek '| DESC: This generates the date of the last day this week '| MM/DD/YYYY '+--------------------------------------------------------------------+ Function LastDayThisWeek() dim dtmInternalDate dim NewDate dtmInternalDate = Date Select Case Weekday(dtmInternalDate) Case 1 NewDate = DateAdd("d",6,dtmInternalDate) Case 2 NewDate = DateAdd("d",5,dtmInternalDate) Case 3 NewDate = DateAdd("d",4,dtmInternalDate) Case 4 NewDate = DateAdd("d",3,dtmInternalDate) Case 5 NewDate = DateAdd("d",2,dtmInternalDate) Case 6 NewDate = DateAdd("d",1,dtmInternalDate) Case 7 NewDate = dtmInternalDate End Select LastDayThisWeek = NewDate End Function %>