% Response.Expires = 15 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "private" If Request.ServerVariables("SERVER_PORT") = 80 Then dim strSecureUrl, key, counter counter = 0 strSecureUrl = "https://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") for each key in Request.Querystring if counter = 0 then strSecureUrl = strSecureUrl & "?" else strSecureUrl = strSecureUrl & "&" end if strSecureUrl = strSecureUrl & key & "=" & Request.Querystring(key) counter = counter + 1 next Response.redirect strSecureUrl End If ''--------------- CREDIT CARD STUFF -----------'' Dim bDebug, DataFromForm Dim typeIndepSecTran, typeMember Dim ix, strTo, strFrom, strSubject, strBody dim M_calcBase, M_dues dim M_exp_month, M_exp_year, M_MgamPerson, M_MgamOrg dim M_payeeFirstName, M_payeeLastName, M_payeeOrganization dim M_PayeeAddress, M_PayeeCity, M_PayeeState, M_PayeeZip bDebug=0 DataFromForm= Request.Form if request.form("bRedrawForm") then typeIndepSecTran = request.form("typeIndepSecTran") iFirstName = request.form("an_fname") iLastName = request.form("an_lname") iTitle = request.form("an_title") iOrgName = request.form("an_organization") iphone = request.form("an_phone") ifax = request.form("an_fax") iEMail = request.form("an_email") istreet = request.form("an_street") izip = request.form("an_zip") icity = request.form("an_city") istate = request.form("an_state") ' typeMember = request.form("typeMember") ' M_dues=request.form("M_dues") M_exp_month=request.form("M_exp_month") M_exp_year=request.form("M_exp_year") M_payeeFirstName=request.form("M_payeeFirstName") M_payeeLastName=request.form("M_payeeLastName") M_payeeOrganization=request.form("M_payeeOrganization") M_PayeeAddress=request.form("M_PayeeAddress") M_PayeeCity=request.form("M_PayeeCity") M_PayeeState=request.form("M_PayeeState") M_PayeeZip=request.form("M_PayeeZip") ' added 2008-apr-18 for member get a member campaign find MGAM refs throughout 'M_MgamPerson=request.form("M_MgamPerson") 'M_MgamOrg=request.form("M_MgamOrg") else ' Independent Sector Transaction Types are: ' registration, new_member, or renewal ' Independent Sector Membership Types are: ' fnd_corp, volOrg_fnd typeIndepSecTran = request.form("typeIndepSecTran") 'typeMember = request.form("typeMember") 'To turn on Debugging!!!! Remove for Production if lcase(Left(Request.ServerVariables ("HTTP_HOST"), 4)) = "test" Then M_payeeOrganization = "bDebug=1" End If end if Function RequestQorF(inVar) Dim inVal inVal = Session(inVar) if inVal = "" Then inVal = Request.Form(inVar) if inVal = "" Then inVal = Request.QueryString(inVar) End If End If RequestQorF = inVal End Function %>
![]() |
||||||
Sponsors/Exhibitors/ ![]() |
NGen: Moving Nonprofit Leaders from Next to Now
EPIP/YNPN Event and NGen Speed Networking Join EPIP Michigan, YNPN Grand Rapids, and NGen IS/CMF Annual Conference participants for an evening of conversations and networking. 5:00 - 7:00 p.m.: For the first time, EPIP Michigan and YNPN Grand Rapids will host a joint event for local emerging nonprofit and philanthropic leaders. 7:30 - 9:00 p.m.: EPIP/YNPN registrants will join IS/CMF conference participants at the NGen Welcome Reception and Speed Networking event. This speed networking event kicks off the NGen: Moving Nonprofit Leaders from Next to Now program at the IS/CMF Annual Conference, November 4-6. Date: Tuesday, November 3 Location: LaSalle/Cadillac in the Detroit Marriott at the Renaissance Center. Registration for both events is $25. If you are registered for the full IS/CMF Annual Conference, attendance at the Welcome Reception and Speed Networking Event from 7:30 – 9:00 p.m. is included in your registration. Please email any questions to ngen@independentsector.org. |
|||||
|
Copyright © 2009 Independent Sector. All Rights Reserved. Privacy Policy. |
||||||