<% @Language = "VBScript" %> <% On Error Resume Next myPageName = "Home Page" connection_string = "DRIVER={SQL SERVER};Server=MAHESHJ;UID=sa;DATABASE=employee" Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open connection_string Set RS = Server.CreateObject("ADODB.RecordSet") sqlString = "SELECT ID,pageName,pageCount,dateCreated,dateHit" sqlString = sqlString & " FROM counter sqlString = sqlString & " WHERE pageName = '" & myPageName & "'" RS.Open sqlString,myConn if NOT(Err.Number <> 0) then if RS.EOF or RS.BOF then myCount = 1 myDateHit = Now() sqlString = "INSERT INTO counter" sqlString = sqlString & " (pageName,pageCount,dateCreated,dateHit)" sqlString = sqlString & "SELECT '" & myPageName & "' AS pageName," sqlString = sqlString & " '1' AS pageCount," sqlString = sqlString & " #" & Now() & "# AS dateCreated," sqlString = sqlString & " #" & Now() & "# AS dateHit;" myConn.Execute sqlString else myDateHit = RS("dateHit") myNewCount = RS("myCount") + 1 sqlString = "UPDATE counter" sqlString = sqlString & " SET myCount = " & myNewCount & "," sqlString = sqlString dateHit = #" & Now() & "#" sqlString = sqlString & " WHERE ID = " & RS("ID") myConn.Execute sqlString end if else response.write "There were errors" & vbCr end if %> <% Response.Write myCount & " hits since " & RS("dateCreated") & "." Response.Write " Last Hit on " & myDateHit & "
" & vbCr %>