Woodside High School Reunion

Feedback Form

<% ' change to address of your own SMTP server strHost = "smtp.centralhouse.net" If Request("Send") <> "" Then CurFirstName=Request.Form("CurFirstName") CurLastName=Request.Form("CurLastName") CurNickName=Request.Form("CurNickName") StuFirstName=Request.Form("StuFirstName") StuLastName=Request.Form("StuLastName") StuNickName=Request.Form("StuNickName") Address=Request.Form("Address") City=Request.Form("City") State=Request.Form("State") Zip=Request.Form("Zip") DayPhone=Request.Form("DayPhone") EveningPhone=Request.Form("EveningPhone") CellPhone=Request.Form("CellPhone") Email=Request.Form("Email") Status=Request.Form("Status") Occupation=Request.Form("Occupation") Education=Request.Form("Education") PartnerName=Request.Form("PartnerName") PartnerOccupation=Request.Form("PartnerOccupation") Children=Request.Form("Children") Grandchildren=Request.Form("Grandchildren") Upto=Request.Form("Upto") OtherStuff=Request.Form("OtherStuff") Helpus=Request.Form("Helpus") Permission=Request.Form("Permission") If Request.Form("Email")="" Then Email = "hollywilson@woodsidehighreunion.com" End If Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = Email ' From address Mail.FromName = Request("CurFirstName") ' optional Mail.AddAddress Request("To") ' message subject Mail.Subject = Request("Subject") ' message body strBody = "" & CurFirstName & " " & CurLastName & " has submitted feedback from the Woodside High Reunion website." & Chr(13) & Chr(10) & Chr(13) & Chr(10) strBody = strBody & Chr(13) & Chr(10) & Chr(13) & Chr(10) strBody = strBody & "Current First name = "& CurFirstName &"" & Chr(13) & Chr(10) strBody = strBody & "Current Last name = "& CurLastName &"" & Chr(13) & Chr(10) strBody = strBody & "Current Nick Name = "& CurNickName & "" & Chr(13) & Chr(10) & Chr(13) & Chr(10) strBody = strBody & "Student First name = "& StuFirstName &"" & Chr(13) & Chr(10) strBody = strBody & "Student Last name = "& StuLastName &"" & Chr(13) & Chr(10) strBody = strBody & "Student Nick Name = "& StuNickName & "" & Chr(13) & Chr(10) & Chr(13) & Chr(10) strBody = strBody & "Address = "& Address & "" & Chr(13) & Chr(10) strbody = strBody & "City = "& City &"" & Chr(13) & Chr(10) strBody = strBody & "State = "& State &"" & Chr(13) & Chr(10) strBody = strBody & "Zip = "& Zip &"" & Chr(13) & Chr(10) strBody = strBody & "Day Phone = "& DayPhone &"" & Chr(13) & Chr(10) strBody = strBody & "Evening Phone = "& EveningPhone & "" & Chr(13) & Chr(10) strBody = strBody & "Cell Phone = "& CellPhone & "" & Chr(13) & Chr(10) strBody = strBody & "Email Address = "& Email & "" & Chr(13) & Chr(10)& Chr(13) & Chr(10) strBody = strBody & "Marital Status = "& Status & "" & Chr(13) & Chr(10) strBody = strBody & "Occupation = "& Occupation & "" & Chr(13) & Chr(10) strBody = strBody & "Occupation = "& Occupation & "" & Chr(13) & Chr(10) strBody = strBody & "Spouse/Partner Name = "& PartnerName &"" & Chr(13) & Chr(10) strBody = strBody & "Spouse/Partner Occupation = "& PartnerOccupation &"" & Chr(13) & Chr(10) strBody = strBody & "Children = "& Children &"" & Chr(13) & Chr(10) strBody = strBody & "Grandchildren = "& Grandchildren&"" & Chr(13) & Chr(10) strBody = strBody & Chr(13) & Chr(10) & Chr(13) & Chr(10) strBody = strBody & "What I been up to the last 40 years" & Chr(13) & Chr(10) strBody = strBody & ""& Upto & "" & Chr(13) & Chr(10) strBody = strBody & Chr(13) & Chr(10) & Chr(13) & Chr(10) strBody = strBody & "Other stuff I would like to share" & Chr(13) & Chr(10) strBody = strBody & ""& OtherStuff & "" & Chr(13) & Chr(10) strBody = strBody & Chr(13) & Chr(10) & Chr(13) & Chr(10) strBody = strBody & "Who or what I know about other classmates" & Chr(13) & Chr(10) strBody = strBody & ""& Helpus & "" & Chr(13) & Chr(10) & Chr(13) & Chr(10) strBody = strBody & "Permission to post on website = "& Permission & "" & Chr(13) & Chr(10) 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 End If %> AspEmail: Simple.asp <% If strErr <> "" Then %>

Error occurred: <% = strErr %>

<% End If %> <% If bSuccess Then %>

Message sent. Thank you <%=CurFirstName%>,

<% End If %>

Current Name:	First Last Nick
Student Name:	First Last Nick
Contact Information:
Address:
City:
State:
Zip:
Email Address:
Day Phone:
Evening Phone:
Cell Phone:
Information to Share:
Status	Married/Partnered Single I plead the fifth
Occupation:
Education:
Spouse/Partner Name:
Spouse/Partner Occupation:
Children:	Names/Ages
Grandchildren:	Names/Ages

What I've been up to for the last 40 (gasp) years:
Other stuff you'd like to share:
Please help us locate the Class of 1967! Tell us who and what you know.
Do we have your permission to post your responses to the Reunion website?	Yes No

Contact Holly Wilson Bennett or Marci Biagi if you know how
to reach any missing classmates!

woodside high cat
Woodside High School 40th Reunion Web Site
Contributed by Marci Biagi