Welcome to the Mosaic Outdoor Mountain Club
 |
Mosaic Outdoor Mountain Club (MOMC) provides group
outdoor experiences, fosters the development of outdoor
knowledge and provides a social environment for sharing
those experiences.
We encourage Jewish singles and couples to join our ranks
in order to seek out other like-minded, outdoor oriented
Jewish adults.
|
| Next Upcoming Event |
| |
<%
Set conn = Server.CreateObject("ADODB.Connection")
if conn.state=0 then
conn.connectionstring = "provider=Microsoft.Jet.OLEDB.4.0"
conn.open server.mappath("/colorado/coloradomomc.mdb")
end if
startdate = dateserial(year(now),month(now),day(now))
set rs = conn.execute("select * from events where date >= #" & startdate & "# order by date,title")
if rs.fields("title") = "Holiday" then rs.movenext
if rs.fields("title") = "Holiday" then rs.movenext
if not rs.eof then
dt = rs.fields("date").value
dt2 = rs.fields("date2").value
if dt= dt2 then
dt3 = sdate(dt)
else
dt3 = sdate(dt) & "-" & sdate(dt2)
end if
%>
<%=dt3 %> -
<%=rs.fields("title").value %> -
<%=hidemail(rs.fields("content").value) %>
|
|
| Click Here to see more events... |
<%
end if
rs.close
conn.close
function sdate(dt)
m = monthname(month(dt),False)
d = day(dt)
y = year(dt)
w = weekdayname(weekday(dt),False,1)
select case d
case 1 : x="st"
case 2 : x="nd"
case 3 : x="rd"
case 21 : x="st"
case 22 : x="nd"
case 23 : x="rd"
case 31 : x="st"
case else : x="th"
end select
sdate = w & ", " & m & " " & d & x
end function
function hidemail(s)
sl = split(s," ")
for each n in sl
if instr(n,"@") > 0 then
a = split(n,"@")
a1 = str2unicode(a(0)) 'Username
a2 = str2unicode(a(1)) 'Domain
out = out & "