<% Option Explicit %> <!--#include file="./includes/utilities.asp"--> <!--#include file="./includes/form_validator_inc.asp"--> <!--#include file="./includes/links.asp"--> <% ' after_login.asp ' Displays new main page after user logs in ' Revision History ' Created 10-20-02 ' 03/26/03 Moved messages to resource table ' 06/09/10 text changes ' 12/09/11 Text changes ' 10/29/14 Prevent direct access error ' Globals Dim msg(50) ' Message translations Dim cols ' col width based on browser type Dim glb_fpp_settings if session("userid") = "" then Response.Redirect ("main.asp") Main() '------------------------------- ' Program Flow: '------------------------------- Sub Main Dim member_type GetMessages() ''NOT USED YET member_type = GetPermissions if member_type = "InexpSearchOnly" then InexpDisplay() elseif member_type = "ExpSearchAndSelect" then Display(member_type) elseif member_type = "ExpSearchAndSelectNoLogin" then Display(member_type) elseif member_type = "ExpSearchOnly" then Display(member_type) else Response.Redirect ("main.asp") end if End Sub '------------------------------- ' Get User permissions ' Find out status, membership, and if donor '------------------------------- Function GetPermissions Dim db, rs, con, strSQL, available, b_available Set db = New GenUtil db.OpenDatabase con Set rs = Server.CreateObject("ADODB.RecordSet") strSQL = "Select status, Member, donor, available, city, email1 from partnership where username = '" & session("userid") & "'" rs.CursorLocation = adUseClient rs.Open strSQL, con, 1 ,3 If not rs.EOF then if rs("status") = "Experienced" then 'was if (rs("Member") > 0 and rs("Member") < 8) or (rs("donor") =1) then if (rs("Member") > 0 and rs("Member") < 8) then GetPermissions = "ExpSearchAndSelect" else ' not members/donors GetPermissions = "ExpSearchOnly" end if elseif rs("status") = "Exp-NoDues" OR rs("status") = "Exp-NoDues-NoMatch" then GetPermissions = "ExpSearchOnly" elseif rs("status") = "Exp-DuesPaid-NoLogin" then GetPermissions = "ExpSearchAndSelectNoLogin" Call ChangeNoLogin(session("userid")) else ' inexperienced GetPermissions = "InexpSearchOnly" end if end if if not isNull(rs("available")) then if rs("available") = 1 then b_available = true else b_available = false end if else b_available = false end if if b_available then available = "I am available for a Partnership" else available = "I am NOT available for a Partnership - <span style=""background-color:yellow;"">this means you cannot be requested or MAKE partnership requests!</span>" end if glb_fpp_settings = "<p style=""line-height:20px;"">Please note, per your FPP records:<br /> " & _ "&nbsp;&nbsp;&nbsp;Your email<strong>: " & rs("email1") & " <span style=""background-color:yellow;"">PLEASE MAKE SURE THIS IS CORRECT!</strong></span><br />" & _ "&nbsp;&nbsp;&nbsp;Your availability setting<strong>: " & available & "</strong><br />" & _ "&nbsp;&nbsp;&nbsp;Your city<strong>: " & rs("city") & "</strong></p><br />" rs.close con.close Set rs = nothing Set db = nothing end Function '------------------------------- ' Change status Exp-DuesPaid-NoLogin to Experienced after login '------------------------------- Function ChangeNoLogin(userid) Dim db, rs, con, strSQL Set db = New GenUtil db.OpenDatabase con Set rs = Server.CreateObject("ADODB.RecordSet") strSQL = "Update partnership set status = 'Experienced' where username = '" & userid & "'" con.execute(strSQL) con.close Set db = nothing Set con = nothing end Function '------------------------------- ' Uses DislayLang to get language specific messages '------------------------------- Sub GetMessages() Dim db Set db = New GenUtil db.GetPageMessages "AfterLogin" Set db = Nothing End Sub '------------------------------- ' Displays information after login '------------------------------- Sub Display(member_type) %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD><TITLE><%=msg(34)%></TITLE> <meta http-equiv="Content-Language" content="en-us"> <meta name="GENERATOR" content="MSHTML 6.00.2719.2200" > <LINK href="./includes/style.css" type=text/css rel=stylesheet> <!--#include file="./includes/header.inc"--> </HEAD> <BODY> <p align=center class="BlueHeading"><%=msg(34)%></FONT></p> <DIV align=center> <table border="1" cellpadding="5" cellspacing="0" width="90%" bgcolor="#fdffec" align="center"> <tr><td class="signup"> <SPAN class=question><%=msg(1)%></SPAN><br> <br> <% if member_type = "ExpSearchAndSelect" then ' WAS Response.Write msg(2) & "<br><br>" Response.Write "As an experienced Focuser, you have full use of the partnership pool to search for and request a Focusing partner (click ""Find a partner"" on the left). You can also edit your own record.<br><br>" elseif member_type = "ExpSearchAndSelectNoLogin" then Response.Write "As an experienced Focuser, you have full use of the partnership pool to search for and request a Focusing partner (click ""Find a partner"" on the left). <br><br>" & _ "<strong>Our records indicate that it has been more then two months since you have logged into the FPP. Please edit your profile (click ""Edit my profile"" on the left) and verify your email address and your availability status. This is VERY important! Otherwise no one can request you as a partner and we will have to delete your record. Thanks!</strong><br><br>" elseif member_type = "ExpSearchOnly" then Response.Write "To use the Partnership Program, you must maintain an ongoing <a target=""_blank"" href=""http://www.focusing.org/eShop/store_membership_benefits.asp"">membership</a> in The Focusing Institute. " & _ "<span style=""background-color:yellow;""><strong>Our records indicate that you are currently not a TFI member. If you feel this is not correct please <a href=""mailto:office@focusing.org"">contact our office</a></strong></span>. " & _ "You will still be able to search the pool (click ""Find a partner"" on the left) but you will not be able to make partnership requests or be selected by others. Your profile will not be displayed by the search function until you become a TFI member.<br><br><br>" ' WAS Response.Write & msg(3) & "&nbsp;&nbsp;</font><br><br>" end if Response.Write glb_fpp_settings %> <span class="signup"> <%'''=msg(4) (We ask that people not share their password with others, but invite friends to fill out a request form.) %> <SPAN class=question><%=msg(5)%></SPAN> <br><br> <span class="signup"> <%=msg(6)%> <br><br> <SPAN class=question>SEARCHING FOR A PARTNER</SPAN> <br><br> <%=msg(7)%> <br><br> 1.&nbsp;<%=msg(8)%><P></P> <p>2.&nbsp;<%=msg(9)%></p> <p>3.&nbsp;<%=msg(10)%></p> <p>4.&nbsp;<%=msg(11)%></p> <p>5.&nbsp;<%=msg(12)%></p> <ul> <li><%=msg(13)%></li> <li><%=msg(14)%></li> <li><%=msg(15)%></li> <li><%=msg(16)%></li> <li><%=msg(17)%></li> </ul> <p>6.&nbsp;<%=msg(18)%></p> <p align="center"><IMG height=268 src="./images/fpp_search_red.jpg" width=360 align=center border=0></p> <p>7.&nbsp;<%=msg(19)%></p> <p>8.&nbsp;<%=msg(20)%><br><br> <SPAN class=question><%=msg(21)%></SPAN> <br> <br> <span class="signup"><%=msg(22)%><br> <br> <%=msg(23)%> <br> <br> <B><%=msg(24)%></B> <br> <br> <SPAN class=question><%=msg(25)%></SPAN> <br> <br> <%=msg(26)%> <br> <br> <SPAN class=question><%=msg(27)%></SPAN> <br> <br> <%'=msg(28)%> For further training, you might mightlike to attend a <a target="_blank" href="http://www.focusing.org/eShop/10Browse.asp?category=Workshop"> Focusing Workshop</a> or arrange for a paid, individual teaching session with a <a target="_blank" href="http://www.focusing.org/trainers_search.asp"> trainer near you</a>. </FONT> <br><br> <SPAN class=question><%=msg(29)%></SPAN> <br><br> <span class="signup"><%=msg(30)%>&nbsp;<A href="mailto:partnership@focusing.org">partnership@focusing.org.</a> <br> <br> <SPAN class=question><%=msg(31)%></SPAN> <br> <br> <span class="signup"><%=msg(32)%></SPAN> <br> <br> <%=msg(33)%> <A href="mailto:lori@focusing.org">Lori@focusing.org</a></font></p> </td></tr></table> <%End Sub Sub InexpDisplay() %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD><TITLE><%=msg(34)%></TITLE> <meta http-equiv="Content-Language" content="en-us"> <meta http-equiv="Content-Type" content="text/html; charset=unicode"> <meta name="GENERATOR" content="MSHTML 6.00.2719.2200" > <LINK href="./includes/style.css" type=text/css rel=stylesheet><!--#include file="./includes/header.inc"--></HEAD> <BODY> <table border="1" cellpadding="5" cellspacing="0" width="90%" bgcolor="#fdffec" align="center"> <tr> <td width="100%" align="left"> <p style="text-align:center;font-weight:bold;">Important Notice Regarding <br>The Focusing Partnership Program (FPP)</p> <p>The FPP is undergoing review by the Focusing Institute. During this review process, the FPP will no longer accept new members. FPP members who have met the program's requirements can continue to login and request partners.</p> <p>Thank-you for your support,<br>The Focusing Institute</p> </td> </tr> </table> <% End Sub Sub OLDInexpDisplay() %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD><TITLE><%=msg(34)%></TITLE> <meta http-equiv="Content-Language" content="en-us"> <meta http-equiv="Content-Type" content="text/html; charset=unicode"> <meta name="GENERATOR" content="MSHTML 6.00.2719.2200" > <LINK href="./includes/style.css" type=text/css rel=stylesheet><!--#include file="./includes/header.inc"--></HEAD> <BODY> <p align=center class="BlueHeading"><%=msg(34)%></FONT></p> <table border="1" cellpadding="5" cellspacing="0" width="90%" bgcolor="#fdffec" align="center"> <tr><td class="signup"> <font face="Arial"> <SPAN class=question><%=msg(35)%></SPAN> <br><br> <%=msg(36)%> <br> <%=msg(37)%> <br> <br> <B><%=msg(38)%> <p><%=msg(39)%> <br> <br> <%=msg(40)%> <br> <br> <%=msg(41)%> <br> <br> <br> <SPAN class=question><%=msg(42)%></SPAN></p> <p> <%=msg(43)%> </p> <p><font face="Arial"> <SPAN class=question><%=msg(44)%></SPAN></font></p> <p> <%=msg(45)%> <br> <br> 1.&nbsp;<%=msg(8)%><P></P> <p>2.&nbsp;<%=msg(9)%></p> <p>3.&nbsp;<%=msg(10)%></p> <p>4.&nbsp;<%=msg(11)%></p> <p>5.&nbsp;<%=msg(12)%></p> <ul> <li><%=msg(13)%></li> <li><%=msg(14)%></li> <li><%=msg(15)%></li> <li><%=msg(16)%></li> <li><%=msg(17)%></li> </ul> <p>6.&nbsp;<%=msg(18)%></p> <p align="center"><font face="Arial">&nbsp; <IMG height=268 src="./images/fpp_search_red.jpg" width=360 align=center border=0></font></p> <p><font face="Arial"> <br> <SPAN class=question><%=msg(29)%></SPAN> <br><br> <span class="signup"><%=msg(30)%>&nbsp;<A href="mailto:partnership@focusing.org">partnership@focusing.org.</a> <br> <br> <SPAN class=question><%=msg(31)%></SPAN><br> <br> <%=msg(32)%> <br> </font><font face="Arial"> <br> <br> <%=msg(33)%> <A href="mailto:lori@focusing.org">Lori@focusing.org</a></font></p> </td></tr></table> <DIV align=center> <%End Sub%> <%ShowLinks()%></DIV> </BODY> </html>