<% s_url = Request.ServerVariables("server_name") s_url = lcase(s_url) s_page = Request.ServerVariables("url") s_page = lcase(s_page) b_found = InStr(1,s_url, "playtoevolve",1) if (b_found <> 0) then response.redirect ("https://www.clearsay.net/play-to-evolve.html") end if randomize second(time) i_random_number = int((9999)*Rnd+1) if (5=6) then function getData(s_find_start,s_find_end) if (instr(1,s_content,s_find_start,1)) then i_position_start = instr(1,s_content,s_find_start,1)+len(s_find_start) i_position_end = instr(1,s_content,s_find_end,1) getData = mid(s_content,i_position_start,i_position_end-i_position_start) else getData = "//No data" end if end function url = "https://www.coingecko.com/en/coins/bitcoin" set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") xmlhttp.open "GET", url, false xmlhttp.send "" s_content = xmlhttp.responseText set xmlhttp = nothing 'i_position_html = instr(1,s_content,"",1) s_content = right(s_content,len(s_content)-i_position_html+1) 's_find_start = "" s_find_start = "$" s_find_end = "" 's_find_end = "" s_body = getData(s_find_start,s_find_end) & vbCrLf i_position_decimal = instr(1,s_body,".",1) s_amount = formatcurrency(left(s_body,i_position_decimal+2)) else s_amount = "love" end if %> <%=s_title_page%> at ClearSay.net <%=s_add_to_head%>
produced by OceanMedia.net

HOME
EQ
TRAIN

PREP
VIDEOS
RESOURCES
RELATIONSHIPS
PLAY to EVOLVE
PARENTING
UNSCHOOLING
CONTACT
ClearSay
<% if (session("msg")<>"") then response.write(session("msg")) session("msg")="" end if %>
Scott Swain2115 Rabb Rd, Suite A, Acapulco, TX 78704, 512-497-4841 Send me an email using the form below.
<% b_table=false:i_columns=2:i_no_red=1:s_color_input_field = "rgb(203, 229, 255)" %>
Your Email Address
Your Query

We don't like forms any more than you do. Having our email address on this page would make us a spam magnet.
[ edit this page ]
<% if (session("msg")<>"") then response.write("
") response.write(session("msg")) response.write("
") session("msg")="" end if %>
 Contact Scott Swain for mediation and Emotional Intelligence Tools training for business, love, and parenting.