<% dim RSMem, SQLMem, RS_Pics1, RS_Pics2, sqp_Pics1, sqp_Pics2 dim SUID, sfname, slname, snick, spwd, sdbpwd, stemppwd, sreferer, imgSmall, imgCollage dim sadd1, sadd2, scity, sstate, szip, sphone, semail, spic, sbio, smaincontact dim llevel, iRec1, iRec2, i, j, lngUpperBoundTrans1, lngUpperBoundTrans2, lngLowerBoundTrans1, lngLowerBoundTrans2, lngRandomTransInteger1, lngRandomTransInteger2 dim ddateadded dim arrPics1(), arrPics2() Session.Timeout=120 response.Buffer=true 'The following 3 lines of code are used to ensure that this page is not cached on the client. Response.CacheControl="no-cache" Response.AddHeader "Pragma","no-cache" response.Expires=-1 strPage=lcase(Request.ServerVariables("URL")) Set RS_Pics1 = Server.CreateObject("ADODB.Recordset") sql_Pics1="SELECT * FROM PICS WHERE picCategory='collageheader' AND picShow=" & -1 & ";" RS_Pics1.open sql_Pics1, objConn, adOpenStatic, adLockReadOnly iRec1=RS_Pics1.recordcount Set RS_Pics2 = Server.CreateObject("ADODB.Recordset") sql_Pics2="SELECT * FROM PICS WHERE picCategory='smallheader' AND picShow=" & -1 & ";" RS_Pics2.open sql_Pics2, objConn, adOpenStatic, adLockReadOnly iRec2=RS_Pics2.recordcount Randomize() lngUpperBoundTrans1=iRec1 lngLowerBoundTrans1=1 lngRandomTransInteger1 = Int((lngUpperBoundTrans1 - lngLowerBoundTrans1 + 1) * Rnd + lngLowerBoundTrans1) Randomize() lngUpperBoundTrans2=iRec2 lngLowerBoundTrans2=1 lngRandomTransInteger2 = Int((lngUpperBoundTrans2 - lngLowerBoundTrans2 + 1) * Rnd + lngLowerBoundTrans2) numPics=0 ctr=1 scr = "" & vbCrLf ctr=1 scr2 = "" & vbCrLf scr=scr & "}" & vbCrLf & "" & vbCrLf response.write scr & vbcrlf & scr1 & vbcrlf & scr2 RS_Pics1.close set RS_Pics1=nothing RS_Pics2.close set RS_Pics2=nothing sReferer = Request.ServerVariables("HTTP_Referer") if session("UID")="" then sUID="" else sUID=session("UID") Set RSMem = Server.CreateObject("ADODB.Recordset") SQLMem = "SELECT * FROM MEMBERS WHERE memID=" & sUID RSMem.open SQLMem, objConn, adOpenStatic, adLockReadOnly if RSMem.recordcount>0 then sfname=RSMem("memFName") llevel=RSMem("memLevel") else sfname="" end if end if Set RSMem = Server.CreateObject("ADODB.Recordset") SQLMem = "SELECT * FROM SITECONTACT WHERE siteType='Private'" RSMem.open SQLMem, objConn, adOpenStatic, adLockReadOnly smaincontact= RSMem("siteEmail") %> News0109.asp

East Hill Foundation

<%=imgDesc%>

WNY HOME

WNY GRANTS

PAST GRANTS

HISTORY

NEWS & UPDATES

CONTACT

NEXT GEN

<% if session("UID")="" then %> <% else %> <% end if %>

My Info

Messageboard

<% select case llevel case 1 case 2 response.write "LOIs" & _ "

" & _ " The Site Manager" end select %>

January 2009

View the newsletter archives

The next grant application deadline for WNY Grant Applications is Monday, August 3, 2009. Completed grant applications and the required attachments must be postmarked on or before the deadline date. Grant applications may also be delivered to the East Hill Foundation office by 4 p.m. on August 3, 2009.