Lakeland College's Sesquicentennial

<% Response.Buffer = True pagetitle="Share Your Story" filename="/story/submit.asp" on error resume next %> Lakeland College's Sesquicentennial - Share Your Story <% Server.ScriptTimeout=60*60 'sixty minutes should be enough for anybody Set objUpload = New clsUpload if true then response.write "We appologize for any inconvenience, but this form is no longer acccepting any new story submissions." elseif objUpload.Fields("submit").value <> "" then missingfields=false if objUpload.Fields("firstname").value="" then response.write "

First Name is a required field, please go back and re-enter it.

" missingfields=true end if if objUpload.Fields("lastname").value="" then response.write "

Last Name is a required field, please go back and re-enter it.

" missingfields=true end if if objUpload.Fields("email").value="" then response.write "

Email Address is a required field, please go back and re-enter it.

" missingfields=true end if if instr(objUpload.Fields("story").value,"www.amiando.com") OR instr(objUpload.Fields("story").value,"foodtube.net") OR instr(objUpload.Fields("story").value,"ximajay.hostaim.com") OR _ ((objUpload.Fields("firstname").value="jonn1" OR objUpload.Fields("firstname").value="jonn2" OR objUpload.Fields("firstname").value="jonn3" OR objUpload.Fields("firstname").value="jonn4" OR objUpload.Fields("lastname").value="jonn1" OR objUpload.Fields("lastname").value="jonn2" OR objUpload.Fields("lastname").value="jonn3" OR objUpload.Fields("lastname").value="jonn4") AND (instr(objUpload.Fields("story").value,"aricept") OR instr(objUpload.Fields("story").value,"aciphex") OR instr(objUpload.Fields("story").value,"accutane") OR instr(objUpload.Fields("story").value,"oxycontin") OR instr(objUpload.Fields("story").value,"gemfibrozil") OR instr(objUpload.Fields("story").value,"fosamax") OR instr(objUpload.Fields("story").value,"nexium") OR instr(objUpload.Fields("story").value,"oxycodone"))) OR _ ubound(split(ucase(objUpload.Fields("story").value), "HTTP")) > 4 then response.write "

Spam is a not allowed, please go back and try again.

" missingfields=true end if if objUpload.Fields("phone").value="" then response.write "

Phone Number is a required field, please go back and re-enter it.

" missingfields=true end if if NOT missingfields then sMsgBody = "" for x=0 to objUpload.Count - 1 sMsgBody = sMsgBody & objUpload(x).Name & " : " & objUpload(x).value & vbcrlf next set rs=server.createobject("ADODB.Recordset") set conn=server.createobject("ADODB.connection") conn.open strCon rs.open "SELECT * FROM [150-share-story]", conn, 3, 3 rs.addnew rs("firstname")=objUpload.Fields("firstname").value rs("lastname")=objUpload.Fields("lastname").value rs("email")=objUpload.Fields("email").value rs("phone")=objUpload.Fields("phone").value rs("gradyear")=objUpload.Fields("gradyear").value rs("hometown")=objUpload.Fields("hometown").value rs("address")=objUpload.Fields("address").value rs("city")=objUpload.Fields("city").value rs("state")=objUpload.Fields("state").value rs("zip")=objUpload.Fields("zip").value rs("comments")=objUpload.Fields("story").value rs("releasepermission")= (objUpload.Fields("authorization").value="YES") rs("OFName1")= objUpload.Fields("file1").FileName rs("OFName2")= objUpload.Fields("file2").FileName rs("OFName3")= objUpload.Fields("file3").FileName rs("OFName4")= objUpload.Fields("file4").FileName rs("OFName5")= objUpload.Fields("file5").FileName rs("datetime")=now() rs.update rs.close rs.open "SELECT @@IDENTITY AS id",conn id=rs("id") rs.close set rs=nothing conn.close set conn=nothing ' response.write "ID:"&id set fso = createobject("scripting.filesystemobject") upload_dir="/story/uploads/" & id if NOT fso.folderexists(server.mappath(upload_dir)) then fso.CreateFolder(server.mappath(upload_dir)) end if ' 'actually save the file(s): for i=1 to 5 if objUpload.Fields("file"&i).FileName<>"" then currfile=objUpload.Fields("file"&i).FileName fileExt=lcase(objUpload.Fields("file"&i).FileExt) if instr(currfile,"..") OR instr(currfile,"/") OR instr(currfile,"\") then response.write "

"&currfile&": invalid filename, can't be uploaded

" elseif fileExt<>"gif" AND fileExt<>"png" AND fileExt<>"jpg" AND fileExt<>"jpeg" AND fileExt<>"bmp" AND fileExt<>"tif" AND fileExt<>"tiff" then response.write "

"&currfile&": invalid file type, you can only upload JPG, PNG, GIF, and TIFF files.

" else objUpload("file"&i).SaveAs(server.mappath(upload_dir&"\file-"&i&"."&fileExt)) response.write "

"&currfile&" uploaded successfully.

" & vbcrlf smsgbody=smsgbody&"file "&currfile&" saved to http://lakeland.edu/story/uploads/"&id&"/file-"&i&"."&fileExt&vbcrlf end if response.flush end if next set fso=nothing ' response.write "

"&smsgbody&"

" set Mail = server.createobject("CDONTS.newmail") with Mail ' .To = email_spoofing_sanitize("retlichc@lakeland.edu") .To = "vihoslb@lakeland.edu" .From = "webmaster@lakeland.edu" .Subject = "Sesquicentennial story submission" .Body = smsgbody .Send() end with set Mail = nothing response.write "

Thank you for sharing your story with us!

" end if else %> Photo collage - 10 people standing on a stairway, graduates walking in line, and the basketball team posing with coach Moose Woltzen.

View submitted stories here

We will soon be celebrating the Sesquicentennial of Lakeland College, and to us, there's no better time to put a spotlight on the achievements and memories of our graduates. The way we see it, your story is the celebration, and we plan to share selected alumni stories as we commemorate our institution's 150 years of impact.

To do this, we need your help. Please take a few minutes to share a few things about your days as a Lakeland student and your personal and professional life since then.

Here's what we're looking for...

What are your favorite campus memories?
What inspired you the most as a student?
What have been your proudest moments since graduating?
Do you have any old Lakeland photos or memorabilia to share?
Where has your professional life taken you?
What community service work have you done?
What impact has your Lakeland education had on your life?

Tell us about the "old" you, the "new" you and anything in between that you'd like to share with us.

*required field

Share Your Story
*First Name:
*Last Name:
*Email:
*Phone:
Class of:
Hometown:
Address:
City:
State:
Zip Code:
Your Story:
Upload your photos here: Please be patient when submitting this form, as uploading photos may take several minutes	Photo 1:
Authorization:	By checking this box, I understand and agree that these items can be used by Lakeland College. Your contact information will not be displayed to the public.

<% end if set objUpload=nothing %>