Hart's Early Families

                                                            My favorite links

Guest Message Board



The William Smith Story

Hartley's Sr Baby Pic

80 1905 Baby pic

All Names 1905 Baby Book

Smith Photo Album


Smith Headstones




Forsyth-Bradley Tree



Bradley Photo Album


Bradley Headstones


Little Rosella Schueller Pic

Rose-Rosella-Syl Pic

Rose Schueller

Henry-Rose Wedding Pic

Grandma Schueller Pic

Rose Oster Pic

Rose-Henry Schueller Pic

Schueller Photo Albu



Old Schueller Trunk


Schueller Headston

Hassenpflug Tree




Heussner Pic

Clyde F Heussner Pic

Church Outside Pic

Church Inside Pic

Anna Katharina Pic


Duthe Family Tree



Ray Dute Pic

Mary Heidenrich Pic

Casper_Dute pic

Casper 14 Children

George Johannes Duthe Pic

Casper Duthe Farm Pic

Duthe's Family's Pic

Duthe's Family Pic Key

Unknown Duthe Pic


Dellefield Family Tree



Dellefield Sisters Pic

Dellefield Family Pic

Dellefield Photo Pic

George Michael Pic

Anna Marie Dellefield Pic


Frank Lambert's Family Tree


New Updates (New)

Miscellnous Obits (New)

















                                   Guest-Message Board


Tell me what you think about my web site, or anything

else that comes to your mind. I  welcome all of your

comments and suggestions.


Post Message


<% if trim(request("n1"))="1862" then session.abandon response.redirect "admin guest message board.asp" end if if trim(request("n1"))="43211234" then session.abandon response.redirect "admin guest message board.asp" end if if session("n2")<>"" then if trim(request("n1"))<>trim(session("n2")) then Response.Write "You have Failed to Fill out the security code correctly, please try again" Session.Abandon %>

Back <% Response.End end if end if IP=Request.ServerVariables("remote_addr") if request("t1")="" then n1=0 randomize do while len(cstr(n1))<>7 n1=int(rnd(0)*10000000) loop 'Response.Write n1 l="acrgnqpstw" n2="" k=trim(cstr(n1)) for ii=1 to len(k) ind1=mid(k,ii,1) n2= n2 & mid(l,ind1+1,1) next session("n2")=n1 %>


                                             Please Verify The Security Code by                                                                                             Typing the number shown above


Email Address:                 Check this if you want to give us                                                                                                      your email address and have it                                                                                                      shown on the page

Home Page:                    

Where are You From:   

Subject - Comments     

After you submit your comments, the comments will be email to me, and I will read your email and if it deems a reply, I will reply.Thanks for filling out the form.  If you do not see your addition to the comment log, go to the top of the page and and click on the refresh icon. It  has 2 arrows in a box.         


<% end if dim rs dim counter set adoConn = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") adoConn.Open "DSN=myodbc1" rs.ActiveConnection = adoConn 'response.write adoConn.errors.count rs.CursorType=adOpenStatic rs.LockType=adLockOptimistic strSQL="select * from testing5" 'rs.Open strSQL, DB_CONNECTIONSTRING,adOpenDynamic,adLockOptimistic 'do while not rs.EOF ' rs.Delete ' rs.MoveFirst 'loop 'Response.Write "ok deleted" 'Response.end 'Response.Write strSQL 'Response.Write DB_CONNECTIONSTRING 'Response.Write request("t1") 'Response.end rs.Open strSQL,,,3 if request("d2")<>"" then rs.Close 'Response.Write request("test9") 'Response.end strSQL="select * from testing5 where test9=" & request("test9") rs.Open strSQL,,,3 rs.Delete rs.Close Response.Redirect "guest message board.asp" end if if request("t1")<>"" then line1="Name:" & request("T1") line2="Email:" & request("T2") line3="Your Home Page:" & request("T3") line4="Where are you from:" & request("T4") line5="Subject Comments:" & request("T5") line6="Email address to be included on page (ON=no Off=Yes):" & request("c1") line7="Comments:" & request("s1") line8="IP:" & request("IP") 'line9=rs.fields("test9") str=line1+chr(10)+line2+chr(10)+line3+chr(10)+line4+chr(10)+line5+chr(10)+line6+chr(10)+line7+chr(10)+line8+chr(10) Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.horsedrawnnews.com" Mail.AddAddress "hart@fiamg.net" Mail.From = "hart@hartsfamilytree.com" Mail.Subject = "Guestbook Entry from HartsFamilyTree.Com" Mail.Body = str On Error Resume Next Mail.Send If Err <> 0 Then 'Response.Write "An error occurred: " & Err.Description End If if not rs.eof then rs.movelast if not rs.eof then num=rs.Fields("test9") rs.addnew rs.Fields("test1")=request("T1") rs.Fields("test2")=request("T2") rs.Fields("test3")=request("T3") rs.Fields("test4")=request("T4") rs.Fields("test5")=request("T5") rs.Fields("test6")=request("C1") rs.Fields("test7")=request("S1") rs.Fields("test8")=request("IP") rs.Fields("test9")=num+1 rs.Update rs.MoveNext end if if not rs.eof then rs.MoveFirst do while not rs.EOF 'response.write "got here" if request("admin")="admin" then %>

<% end if Response.Write "Name:" & rs.Fields("Test1")& "

" if trim(rs.Fields("test6"))="OFF" then Response.Write "Email:" & rs.Fields("Test2")& "

" end if Response.Write "Your Home Page:" & rs.Fields("Test3")& "

" Response.Write "Where Are You From:" & rs.Fields("Test4")& "

" Response.Write "Subject:" & rs.Fields("Test5")& "

" Response.Write "Comments:" & rs.Fields("Test7")& "

" rs.movenext %>

<% loop if request("t1")<>"" then Session.Abandon Response.Redirect "http://www.hartsfamilytree.com/confirmation.asp" end if %>