<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% On Error Resume Next Response.Expires = -1 Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "cache-control", "no-cache, no-store,must-revalidate, max-age=-1" Response.AddHeader "pragma", "no-store,no-cache" Response.AddHeader "expires", "-1" liysID = Request.Cookies("liysID") welcome = Request.Cookies("welcome") If welcome = "yes" Then WelcomeMessage = "Thank you for submitting your name. An essay project can be submitted to your high school (to your teacher or person designated at your school to receive LIYS projects), or you can submit it directly online by clicking on High School Students at the top of the LIYS webpage, and then Submit My Project. Please be sure to provide your contact information. Only essays can be submitted online. All non-essay projects should be delivered to: LIYS Selection Committee; Provostís Office, Fortunoff Hall, Room 226; Dowling College, 150 Idle Hour Boulevard; Oakdale, NY 11769.


" Response.Cookies("welcome") = "no" welcome = "no" Else WelcomeMessage = "" Response.Cookies("welcome") = "no" welcome = "no" End If 'username = Session("username") username = decode(liysID) Response.Write("") 'Response.End() fileList = "" uploadsFolder = "uploads/" Set rs = openDataBase("db","db/liys.mdb","SELECT * FROM users WHERE username = '" & username & "' ;") If rs.EOF Then Response.Redirect("error.php") Else fname = rs.Fields("first_name").Value lname = rs.Fields("last_name").Value address = rs.Fields("address").Value address2 = rs.Fields("address2").Value If address2 <> "" Then address2 = address2 & "
" End If city = rs.Fields("city").Value astate = rs.Fields("state").Value zip = rs.Fields("zip").Value phone = rs.Fields("phone").Value email = rs.Fields("email").Value teacherName = rs.Fields("teacher_name").Value schoolDistrict = rs.Fields("school_district").Value grade = rs.Fields("grade").Value uname = rs.Fields("username").Value Response.Cookies("folder_username") = uname 'Allan Spielman 1/8/14 session vars do NOT work . needed so the delete and download page can do the Mappath Set fso = Server.CreateObject("Scripting.FileSystemObject") folderPath = Server.MapPath(uploadsFolder & uname) Set userFolder = fso.GetFolder(folderPath) If userFolder.Size <> 0 Then fileList = "" & VBcrlf For Each x In userFolder.Files fileList = fileList & "" & VBcrlf fileList = fileList & "" & VBcrlf fileList = fileList & "" & VBcrlf fileList = fileList & "" & VBcrlf fileList = fileList & "" & VBcrlf Next fileList = fileList & "
" & x.Name & "Delete
" & VBcrlf End If Set userFolder = Nothing Set fso = Nothing End If Set rs = Nothing If fileList = "" Then fileList = "No files found" End If %> My Spot | Long Island Youth Summit
http://www.dowling.edu/
DOWLING.EDU PHOTOS/ARCHIVES   CONTACT   HOLD MY SPOT
HS STUDENTS TEACHERS/PRINCIPALS STEERING COMMITTEE
 
<%=WelcomeMessage%>
 Upload A File Log Out »
<%=UCase(uname)%> - Account Info
Name
<%=fname%> <%=lname%>

Address
<%=address%>
<%=address2%> <%=city%>, <%=astate%> <%=zip%>

Phone Number
<%=phone%>
Email Address
<%=email%>

Teacher's Name
<%=teacherName%>

School District
<%=schoolDistrict%>

Grade Level
<%=grade%>
Uploaded Files
<%=fileList%>