<% function rep(str) rep = replace (str,"'","'",1) end function function newline(st) if st <> "" then newline = replace(st,"
",vbCrLf) else newline = st end if end function function repline(nst) repline = replace(nst,vbCrLf,"
") end function %> <% catID = Trim(Request("id")) hid = Cint(Trim(Request("hid"))) sql = "select id,name,cat_text,sch_Date,sch_text from cat where id=" & catID & "or parentID in("&catID& ")" ' Response.write sql Set RS = CON.execute(sql) %> :: Inner Vision Worldwide ::
<% Select case Cint(hid) case 1 strVal = "src=../images/services_banner.gif border='0'" CASE 2 strVal = "src=../images/workshop_banner.gif border='0'" CASE 3 strHeading = Ucase(Trim(rs(1))) 'Response.write "strHeading" & strHeading IF strComp(strHeading,"A PRAYER FOR YOU",1) = 0 Then strVal = "src=../images/a_prayer_banner.gif border='0'" ElseIF strComp(strHeading,"RE-FRAMING THE ISSUE",1) = 0 Then strVal = "src=../images/enrichment_banner.gif border='0'" ElseIF strComp(strHeading,"WRITTEN MEDITATION",1) = 0 Then strVal = "src=../images/written_meditation_h1.gif border='0'" ElseIF strComp(strHeading,"THIS IS YOUR TIME",1) = 0 Then strVal = "src=../images/enrichment_banner.gif border='0'" ElseIF strComp(strHeading,"HOW TO CHANGE YOUR MIND",1) = 0 Then strVal = "src=../images/enrichment_banner.gif border='0'" ElseIF strComp(strHeading,"SELF APPRECIATION EXERCISES",1) = 0 Then strVal = "src=../images/self_appreciation_h.gif border='0'" ElseIF strComp(strHeading,"FORGIVENESS",1) = 0 Then strVal = "src=../images/forgiveness_h.gif border='0'" End If CASE 4 strVal = "src=../images/spiritual_life_h.gif border='0'" End Select 'Response.write "strSrc" & strSrc %>
>
<% while not rs.EOF strSrc="" Select case Ucase(Trim(rs(1))) case "GATHERING OF MEN" strSrc = "src=../images/gathering_men_h.gif border='0'" CASE "FIRST SUNDAY GATHERING" strSrc = "src=../images/first_sunday_h.gif border='0'" CASE "FULL MOON MEDITATIONS" strSrc = "src=../images/full_moon_h.gif border='0'" CASE "SPIRITUAL LIFE MAINTENANCES" strSrc = "src=../images/spiritual_life_h.gif border='0'" CASE "DON'T GIVE IT AWAY" strSrc = "src=../images/don't_give_h.gif border='0'" CASE "SPRIT OF A MAN" strSrc = "src=../images/spirit_of_a_man.gif border='0'" CASE "WONDER WOMEN WEEKEND" strSrc = "src=../images/wonder_woman_h.gif border='0'" case "A PRAYER FOR YOU" strSrc = "src=../images/be_limitless.gif border='0'" case "RE-FRAMING THE ISSUE" strSrc = "src=../images/re_framing_h.gif border='0'" case "THIS IS YOUR TIME" strSrc = "src=../images/this_time_h.gif border='0'" case "HOW TO CHANGE YOUR MIND" strSrc = "src=../images/how_change_h.gif border='0'" End Select %> <%IF TRim(Rs(4))<> "" or TRim(Rs(3))<> "" Then %> <% End IF RS.movenext wend RS.close Set RS = Nothing %>
<%IF strSrc <> "" Then %> > <%Else %> <%=Trim(RS(1))%> <%End If%>


<%=repline(Trim(rs(2)))%>

<%=TRim(Rs(3))%>
<%IF TRim(Rs(4))<> "" Then%>
  • <%=Trim(Rs(4))%>
<%End If%>
Location:
We are in the process of relocating.  Please  mail all correspondence to:

 

Inner Visions Institute
PO Box 8517

Silver Spring, MD 20907

 

Email: ivisd@innervisionsworldwide.com

 

Phone: 1-301-419-8085   Fax: 1-301-808-4646