Verus was established by Garry and Gregg Leiss, former managers, assistant managers, subdivision managers, and business development managers at local multi-office independent real estate firms, Gregg and Garry noticed that even these regional independents missed the special features of Carson Valley’s real estate market.

The name Verus spawns from two very deep values. We expressed the need for a name that all of the agents in our office had some “ownership” in, not just an egotistical push for the owners. Secondly, we chose a name that reflected the true intent of our firm – representation of clients in a real, true genuine fashion – no exceptions. Our office is a collection of agents working WITH us not for us.

Verus Realty has now grown to become the largest independent real estate firm in Carson Valley, rapid growth, smart real estate principals, and market timing all contribute to Verus Realty's success.

 

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

Copyright© 2003 Verus Realty, All Rights Reserved.

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