About Verus | Carson Valley | Agent Connect | Property Search | Contact Us | Home

Copyright© 2003 Verus Realty, All Rights Reserved.

<% pID=1 Dim ConnectString,sMapPath ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" sMapPath = Server.MapPath("\") sMapPath = Mid(sMapPath, 1, InStrRev(sMapPath,"\")-1) & "\db\accessLogs.mdb;" & _ "Persist Security Info=False;" ConnectString = ConnectString & sMapPath '----------------------------------------------------------- ''''''''''''''PULL PAGE VALUES''''''''''''''''''''''''''''''''''' Set oConn = Server.CreateObject("ADODB.Connection") Set oCmd = Server.CreateObject("ADODB.Command") oConn.Open ConnectString SQL = "SELECT * FROM tbl_pages WHERE pID=" & pID Set oCmd.ActiveConnection = oConn oCmd.CommandText = SQL Set oRs = oCmd.Execute if oRs.EOF then else pHits=oRs("pHits") end if oRs.Close : oConn.Close Set oRs=Nothing : Set oConn=Nothing '################################################################# '*** UPDATE Page Count ***' Public daCount daCount=pHits+1 Set oConn = Server.CreateObject("ADODB.Connection") Set oCmd = Server.CreateObject("ADODB.Command") oConn.Open ConnectString SQL = "UPDATE tbl_pages SET pHits = " & daCount & "" SQL = SQL & " WHERE pID = " & pID oConn.Execute(SQL) : oConn.Close : Set oConn=Nothing '----------------------------------------------------------- 'With response ' .write "pHits1=" & pHits & "
" ' .write "pHits2=" & daCount & "
" 'End with '----------------------------------------------------------- %>