<% @LANGUAGE = "VBScript" %> <% Response.Buffer = True %> MarThoma Evangelistic Association <% Dim strconn, mySQL Dim cn, rs, n, m n = 0 m = 0 If Request.Cookies("marthovan") <> "9656469501" then strconn="Provider=Microsoft.Jet.OLEDB.4.0; " & _ "Data Source=" & Server.Mappath("directory/dir1.mdb") 'strconn=strconn & "USER ID=;PASSWORD=;" mySQL="select count(MID) as cmid from sitecounter where MID = " & Month(Date) & " and cyear = " & Year(Date) Set cn = Server.CreateObject("ADODB.Connection") cn.Open strconn Set rs = cn.Execute(mySQL) m = rs.fields("cmid") rs.Close Set rs = nothing If m = 0 then mySQL="sitecounter" set rs = Server.CreateObject("ADODB.Recordset") rs.CursorType = 2 rs.LockType = 3 rs.Open mySQL, cn rs.addnew rs.fields("MID") = Month(Date) rs.fields("cyear") = Year(Date) rs.fields("ccount") = 1 rs.update Response.Cookies("marthovan") = "9656469501" Else mySQL="select ccount from sitecounter where MID = " & Month(Date) & " and cyear = " & Year(Date) Set rs = cn.Execute(mySQL) n = rs.fields("ccount") n = n+1 rs.Close Set rs = nothing mySQL="select ccount from sitecounter where MID = " & Month(Date) & " and cyear = " & Year(Date) set rs = Server.CreateObject("ADODB.Recordset") rs.CursorType = 2 rs.LockType = 3 rs.Open mySQL, cn rs.fields("ccount") = n rs.update Response.Cookies("marthovan") = "9656469501" End If rs.Close Set rs = nothing cn.close Set cn = nothing End If %>

Marthoma Sabha
Suvishesha Sangam
Maramon Convention
Mission Fields
Suvishesha Doothan
Gospel Team
Our Institutions
Resources
Contact Us.
  Ways to Join & Help
The first National indigenous Christian Missionary Organization.
Established in 1888.
87 Mission Units.
Conducts Maramon Convention - The World's biggest Annual Christian Gathering.
Go and Preach the Gospel to all the Nations
...

113th Maramon Convention - 10-17 February-2008

Marthoma Evangelistic Association,
Thiruvalla, Kerala,
India.
Pin :- 689101
Phone :
+ 91 - 0469 - 2630587
Fax :
+ 91 - 0469 -2731699
Email mtea@dataone.in
mtea1@yahoo.com

                                                            Mar Thoma Evangelistic Association.1888 - <%response.write(Year(Date))%> , All Rights Reserved