Tripura News- Daily Desher Katha - Bengali Newspaper - Agartala,Tripura,India
Bignan Jagat-Daily Desher Katha - Bengali Newspaper - Agartala,Tripura,India
Welcome to Daily Desher Katha

Important Links:
CPIM, All India
CPIM, West Bengal
DYFI, Tripura
Bangla Ganashakti
<% Dim objFSO, objCountFile Dim strCountFileName Dim iCount strCountFileName = Server.MapPath(Request.ServerVariables("SCRIPT_NAME") & ".CNT") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True) If Not objCountFile.AtEndOfStream Then iCount = CLng(objCountFile.ReadAll) Else iCount = 0 End If objCountFile.Close Set objCountFile = Nothing iCount = iCount + 1 Set objCountFile = objFSO.CreateTextFile(strCountFileName, True) objCountFile.Write iCount objCountFile.Close Set objCountFile = Nothing Set objFSO = Nothing Response.Write "Visitor No:" & "" & iCount & "" & " " & "Since " & "September 2007" & "" %>,All Right Reserved
Website Best Viewed: 800X600,IE 5.5. or above
Designed & Hosted by, Webmaster:Abhijit Mitra
<% Dim UserIPAddress UserIPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If UserIPAddress = "" Then UserIPAddress = Request.ServerVariables("REMOTE_ADDR") End If Dim adoCon 'Holds the Database Connection Object Dim rsrepmaster 'Holds the recordset for the records in the database Dim strSQL 'Holds the SQL query for the database Dim userdate userdate=Date() Dim usertime usertime=Time() 'Create an ADO connection odject Set adoCon = Server.CreateObject("ADODB.Connection") 'Set an active connection to the Connection object using a DSN-less connection adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ipd.mdb") 'Create an ADO recordset object Set rsrepmaster = Server.CreateObject("ADODB.Recordset") 'Initialise the strSQL variable with an SQL statement to query the database strSQL = "SELECT * FROM ipd;" 'Set the cursor type we are using so we can navigate through the recordset rsrepmaster.CursorType = 2 'Set the lock type so that the record is locked by ADO when it is updated rsrepmaster.LockType = 3 'Open the recordset with the SQL query rsrepmaster.Open strSQL, adoCon 'Tell the recordset we are adding a new record to it rsrepmaster.AddNew 'Add a new record to the recordset rsrepmaster.Fields("ipadd")= ""& UserIPAddress &"" rsrepmaster.Fields("date1")= ""& userdate &"" rsrepmaster.Fields("time1")= ""& usertime &"" 'Write the updated recordset to the database rsrepmaster.Update 'Reset server objects rsrepmaster.Close Set rsrepmaster = Nothing Set adoCon = Nothing %>