Please contact us at your convenience to speak with one
of our Real Estate professionals.

Thank you again for visiting
Verus Realty!

1615 US HWY 395, Suite A.
Minden, Nevada 89423

Phone: (775) 782-3300
Fax: (775) 782-3020

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

Copyright© 2003 Verus Realty, All Rights Reserved.

<% pID=5 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 '----------------------------------------------------------- %>