Home Finger Lakes School of Acupuncture and Oriental Medicine School of Applied Clinical Nutrition
 
 
Alumni

















 
NYCC Home :: Alumni Web :: Find-A-Friend
Find-A-Friend

Find-A-Friend Request Form

<% If Request.Form("hiddenfield") = "" Then ShowForm Else ProcessForm End If Sub ShowForm %>

Simply complete and submit the form below, letting us know whom you would like to contact. We will do our best to contact this person. Please note that we will give your name, email address, phone, and address to the person you wish to find. If we are unable to find the person, we will contact you to let you know.

Your Information
First Name *
Last Name *
Email Address *
Daytime Phone # *
Address *
Address 2
City *
State *
ZIP *
I hereby give NYCC permission to release the above information to the person listed below
The Friend I Would Like to Find
Friend's Name *
Friend's Name While at NYCC
Graduation Year
<% End Sub %> <% Sub ProcessForm Dim Form_fname Dim Form_lname Dim Form_email Dim Form_homephone Dim Form_address Dim Form_address2 Dim Form_city Dim Form_state Dim Form_zip Dim Form_permission Dim Form_friend_name Dim Form_friend_name_NYCC Dim Form_grad_year Dim Validated Dim JMail Form_fname = Trim(Replace(Request.Form("fname"),"""","""""")) Form_lname = Trim(Replace(Request.Form("lname"),"""","""""")) Form_email = Trim(Replace(Request.Form("email"),"""","""""")) Form_homephone = Trim(Replace(Request.Form("homephone"),"""","""""")) Form_address = Trim(Replace(Request.Form("address"),"""","""""")) Form_address2 = Trim(Replace(Request.Form("address2"),"""","""""")) Form_city = Trim(Replace(Request.Form("city"),"""","""""")) Form_state = Request.Form("state") Form_zip = Trim(Replace(Request.Form("zip"),"""","""""")) Form_permission = Request.Form("permission") Form_friend_name = Trim(Replace(Request.Form("friend_name"),"""","""""")) Form_friend_name_NYCC = Trim(Replace(Request.Form("friend_name_NYCC"),"""","""""")) Form_grad_year = Trim(Replace(Request.Form("grad_year"),"""","""""")) Validated = true If len(Form_fname)<2 Then Validated = false End If If len(Form_lname)<2 Then Validated = false End If If len(Form_email)<2 Then Validated = false End If If len(Form_homephone)<2 Then Validated = false End If If len(Form_address)<2 Then Validated = false End If If len(Form_city)<2 Then Validated = false End If If len(Form_state)<1 Then Validated = false End If If len(Form_zip)<2 Then Validated = false End If If len(Form_friend_name)<2 Then Validated = false End If If NOT Validated Then %>
You have not completed all of the required fields of the form. Please click here to go back, fill in all required fields, and re-submit the form.

The following fields were not completed

<% If len(Form_fname)<2 Then Response.Write "First Name" Response.Write "
" End If If len(Form_lname)<2 Then Response.Write "Last Name" Response.Write "
" End If If len(Form_email)<2 Then Response.Write "Email Address" Response.Write "
" End If If len(Form_homephone)<2 Then Response.Write "Daytime Phone" Response.Write "
" End If If len(Form_address)<2 Then Response.Write "Address" Response.Write "
" End If If len(Form_city)<2 Then Response.Write "City" Response.Write "
" End If If len(Form_state)<2 Then Response.Write "State" Response.Write "
" End If If len(Form_zip)<2 Then Response.Write "ZIP Code" Response.Write "
" End If If len(Form_friend_name)<2 Then Response.Write "Friend's Name" Response.Write "
" End If %>

<% Else %> <% JMail.Subject = "Alumni Find-a-Friend Form Submitted" JMail.Priority = 3 JMail.AddRecipient "sward@nycc.edu" JMail.Body = "Personal Information" & vbCrLf & vbCrLf JMail.appendtext "Name: " & form_fname & " " & form_lname & vbCrLf JMail.appendtext "Email Address: " & form_email & vbCrLf & vbCrLf JMail.appendtext "Daytime Phone: " & form_homephone & vbCrLf & vbCrLf JMail.appendtext "Address:" & vbCrLf & vbCrLf JMail.appendtext form_address & vbCrLf JMail.appendtext form_address2 & vbCrLf JMail.appendtext form_city & ", " & form_state & " " & form_zip & vbCrLf & vbCrLf JMail.appendtext "Permission to Release Info: " & form_permission & vbCrLf & vbCrLf JMail.appendtext "Friend's Name: " & form_friend_name & vbCrLf JMail.appendtext "Friend's Name While at NYCC: " & form_friend_name_NYCC & vbCrLf JMail.appendtext "Friend's Graduation Year: " & form_grad_year & vbCrLf JMail.Execute %>
Thank you for your Find-a-Friend request. If you have any further questions, please contact our Alumni Coordinator, Diane Zink by phone at 1-800-234-6922 ext. 3065 or by email at dzink@nycc.edu
<% End If %>

<% End Sub %>