Guest Message Board

<% 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

Name:

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 %>

Back