Operation Integrity

<% If Left(Right(Mid(FormatDatetime(Now(),1),1,Len(FormatDatetime(Now(),1))-6),2),1) = 0 Then Response.Write Mid(FormatDatetime(Now(),1),1,Len(FormatDatetime(Now(),1))-8) & Right(Mid(FormatDatetime(Now(),1),1,Len(FormatDatetime(Now(),1))-6),1) Else Response.Write Mid(FormatDatetime(Now(),1),1,Len(FormatDatetime(Now(),1))-8) & Right(Mid(FormatDatetime(Now(),1),1,Len(FormatDatetime(Now(),1))-6),2) End If %>

<<<click on featured article above>>>

SPOTLIGHT

Read an excerpt from "When Lost Men Come Home, A Partnered Journey to Sexual Integrity" by David Zailer.

Start an Operation Integrity Recovery Group Meeting in your area.

Do you have a problem? Take Patrick Carne's Sexual Addiction Screening Test.

Find out how Operation Integirty does Internet Accountability

ABOUT US | CONTACT US

FOCUS POINT

This month's step

<% Set DataConn = Server.CreateObject("ADODB.Connection") 'ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=D:\webs\operationintegrity.org.db\OPI_DATA.mdb;Mode=Share Deny None;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=4;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;User Id=Admin;PASSWORD=;" ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\webs\ciiweb1\operationintegrity.org.db\OPI_DATA.mdb;" DataConn.ConnectionString = ConnString DataConn.Open tdate = FormatDateTime(Now(),2) strSQL = "SELECT Weekly.StartDate" & vbCrLf strSQL = strSQL & " , Weekly.EndDate" & vbCrLf strSQL = strSQL & " , Weekly.Scripture" & vbCrLf strSQL = strSQL & " , Weekly.Reference" & vbCrLf strSQL = strSQL & " , Weekly.Quote" & vbCrLf strSQL = strSQL & " , Weekly.Attribute" & vbCrLf strSQL = strSQL & " , Weekly.Step" & vbCrLf strSQL = strSQL & " FROM Weekly" & vbCrLf strSQL = strSQL & " WHERE (((Weekly.StartDate)<=#" & tdate & "#) " & vbCrLf strSQL = strSQL & " AND ((Weekly.EndDate)>=#" & tdate & "#));" Set rstWeekly = DataConn.Execute(strSQL) Response.Write rstWeekly("Step") %>

This week's scripture

<% Response.Write rstWeekly("Scripture") %>

<% Response.Write rstWeekly("Reference") %>

This week's quote

<% Response.Write rstWeekly("Quote") %>

<% Response.Write rstWeekly("Attribute") rstWeekly.Close DataConn.Close %>

VOX POPULI

Have you admitted to another person that you struggle with your Sexual Integrity?


	Yes
	No