<% fp = Server.MapPath("count.txt") Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile(fp) ct = Clng(a.ReadLine) if Session("ct") = "" then Session("ct") = ct ct = ct + 1 a.close Set a = fs.CreateTextFile(fp, True) a.WriteLine(ct) end if a.Close %>

<% fp = Server.MapPath("count.txt") Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile(fp) ct = Clng(a.ReadLine) if Session("ct") = "" then Session("ct") = ct ct = ct + 1 a.close Set a = fs.CreateTextFile(fp, True) a.WriteLine(ct) end if a.Close %>

hlmlogoblue.gif (29326 bytes)
Home Life Ministries

Home Life Ministries
 

Help us to continue and expand this ministry
Donate US$ 1.00-
by clicking the PayPal button

You can also donate US$ 1.00- per month (during one year)
by clicking the PayPal button below

 


If you want to donate a larger amount, click the following button


Thank you.