<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% On Error Resume Next response.expires = 0 Dim g_db Set g_db = Server.CreateObject("ADODB.Connection") g_openDB("sitedata") Dim rs, sql Set rs = server.CreateObject("ADODB.RecordSet") Dim contentpage contentpage = lcase(trim(request.QueryString("pid"))) 'Capture web visit data If session("log_visit") = "" Then session("log_visit") = "filler" log_visit() End If Function log_visit() On Error Resume Next Dim ip_excl, rtnValue 'List of IP address to exclude from logging process ip_excl = "66.49.58.5,68.12.95.29" rtnValue = g_val_in_list(ip_excl, request.ServerVariables("REMOTE_ADDR")) If Not rtnValue Then sql = "INSERT INTO visit_det (vd_date, vd_time, vd_sessionid, vd_ip_addr) " sql = sql & "VALUES ('" & date() & "','" & time() & "','" & session.SessionID & "','" & request.ServerVariables("REMOTE_ADDR") & "')" set rs = g_db.execute(sql) End If End Function %>

Home Education e-Newsletter Events Map Our pastors Schedule Who we are Worship Click Here to Give Online   Verse of the Day Today's Devotion Our Daily Bread   We are very excited about what God is doing in our church this year. If you are interested in attending a growing church that has dynamic praise and worship, a variety of programs for all ages, as well as a friendly atmosphere, come visit us this Sunday morning. Sunday Service Times Intercessory Prayer .................................................. 09:00 AM Sunday School Classes ............................................. 09:45 AM Worship Celebration .................................................. 10:40 AM   ROL e-Newsletter Sign-up to receive the ROL e-Newsletter by email   6901 NW 150th Street - Oklahoma City, OK 73142 Voice: 405.359.4174 - Fax: 405.359.9490

<% set rs = nothing g_closeDB() set g_DB = nothing %>