<% 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") %> News07/10.asp

East Hill Foundation

<%=imgDesc%>

WNY HOME

WNY GRANTS

PAST GRANTS

HISTORY

NEWS & UPDATES

CONTACT

<% 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 %>

July 2010

View the newsletter archives

In 2010, the East Hill Foundation is focusing on grants that serve basic human needs: food and shelter for the needy.

WNY Grant Applicants: East Hill Foundation's emphasis is on basic human needs, and our Board will be giving much more weight to those types of grants this year. Any 501c3 organization serving WNY may apply, however, please understand that our focus has changed and other types of grants may not be a priority.