<%@Language = "VBScript"%>
Homes for Sale and Colorado Real Estate, Colorado Springs Real Estate at its finest.
<%
'////////////////////// BANNER AD Begin
'///////// Add to the DB
vPath = "P:/TempSite/ppr/pptxt/AD.mdb"
vSQLp = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & vPath
Set BD = Server.CreateObject("ADODB.Recordset")
BD.ActiveConnection = vSQLp
BD.CursorLocation = 3
BD.CursorType = 0
BD.LockType = 2
Set AD = Server.CreateObject("ADODB.Recordset")
AD.ActiveConnection = vSQLp
AD.CursorLocation = 3
AD.CursorType = 0
AD.LockType = 2
'//// define page and location for the banner
vZone = "Springs Search"
vPlacement = "side"
'///////////////////// Randomize number from 1 to 100
randomize
Random_percent = int(rnd*100)+1
If Random_percent <= 50 Then PriNum = 1
If Random_percent > 50 AND Random_percent <= 70 Then PriNum = 2
If Random_percent > 70 AND Random_percent <= 85 Then PriNum = 3
If Random_percent > 85 AND Random_percent <= 95 Then PriNum = 4
If Random_percent > 95 AND Random_percent <= 100 Then PriNum = 5
ChkNum = PriNum
For i = 1 to 5
If PriNum > 0 Then
BD.Open "SELECT * FROM tblBanner WHERE Priority = " & cInt(PriNum) & " AND bZone = '" & vZone & "' AND bPlacement = '" & vPlacement & "'" _
& " AND (ImpressionsCurrent <= ImpressionsMax) AND (sDate <= #" & date() & "# AND #" & date() & "# <= eDate)"
Else
OthNum = i
If ChkNum = 2 Then OthNum = 1
If ChkNum = 3 Then
OthNum = 1
ChkThree = 3
End If
If ChkNum = 4 Then
OthNum = 1
ChkFour = 4
End If
If ChkNum = 5 Then
OthNum = 1
ChkFive = 5
End If
If ChkThree = i Then OthNum = 2
If ChkFour = i Then OthNum = 2
If ChkFive = i Then OthNum = 2
BD.Open "SELECT * FROM tblBanner WHERE Priority = " & cInt(OthNum) & " AND bZone = '" & vZone & "' AND bPlacement = '" & vPlacement & "'" _
& " AND (ImpressionsCurrent <= ImpressionsMax) AND (sDate <= #" & date() & "# AND #" & date() & "# <= eDate)"
End If
If Not BD.EOF Then
bCnt = BD.RecordCount
Random_Number = int(rnd*bCnt)+1
Counter = 0
Do Until BD.EOF
Counter = Counter + 1
If Counter = Random_Number Then
ShowBanner = ""
ShowBanner = ShowBanner & ""
AD.Open "SELECT * FROM tblBanner WHERE ID = " & BD("ID") & ""
If Not AD.EOF Then
vImp = AD("ImpressionsCurrent") + 1
AD("ImpressionsCurrent") = vImp
AD.Update
AD.Close
End If
'//// We found a match, might as well exit the loop
Exit Do
End If
BD.MoveNext
Loop
BD.Close
'///// There is something to show exit the for next loop
Exit For
Else
'///// There is nothing to show for current level look at next level
PriNum = 0
If OthNum <> "" Then ChkNum = 0
End If
BD.Close
Next
'////////// show the select banner
Response.Write ShowBanner & " "
'////////////////////// BANNER AD End
%>
prudential professional, REALTORS®
An
independently owned and operated member of the Prudential
Real Estate Affiliates, Inc.
NOTICE:
BY PROCEEDING TO USE THIS SERVICE, YOU ACKNOWLEDGE YOUR
AGREEMENT WITH THE FOLLOWING TERMS AND CONDITIONS. IF YOU
DO NOT AGREE WITH THESE TERMS AND CONDITIONS, THEN DO NOT
USE THIS SERVICE.
Copyright
Notice and Terms and Conditions
Copyright
Notice
Reproduction
of any of this material is strictly prohibited. Permission
to use all documents and related graphics and any other material
from this World Wide Web server is subject to the following
Terms and Conditions.
Terms
and Conditions
Each
document and other material published by prudential professional, REALTORS® on this server may contain other proprietary notices
or describe products, services, processes or technologies
owned by prudential professional, REALTORS® or third parties.
Nothing contained herein shall be construed as granting to
the user a license under any copyright, trademark, or other
intellectual property right of prudential professional, REALTORS® or
any third party, except for the right of use license expressly
set forth below in these terms and conditions.
Trademarks
The
Prudential name and logo is a registered trademark of The
Prudential Insurance Company of America. All other product
and service marks contained herein are the trademarks of
their respective owners.
The
displayed content information provided free of charge or
purchased through this service are provided under a nonexclusive,
non-transferable license for printing and use only by the
individual who signed onto this service, and only for that
individual's personal use. The user is not permitted to commercially
exploit the information or transfer it to any third party.
Any reprinting, sublicensing, copying, modifying, publishing,
assignment, transfer, sales, or other distribution of the
information contained within is strictly prohibited without
the prior written consent of prudential professional, REALTORS®.
The user shall may not copy, reverse engineer, translate,
port, modify or make derivative works of the information,
in whole or in part. The user shall not rent, disclose, publish,
sell, assign, lease, sublicense, market, or transfer the
information or any part thereof or use it in any manner not
expressly authorized by this Agreement. The user shall not
derive or attempt to derive the source code or structure
of all or any portion of the information by reverse engineering,
disassembly, decompilation or any other means. The user shall
not use the information to operate a service bureau or for
any other use involving the processing of data of others.
The user does not receive any, and prudential professional, REALTORS® retains all, ownership rights in the information.
The information is copyrighted and may not be copied, even
if modified or merged with other data or software. The user
shall not alter or remove any copyright notice or proprietary
legend contained in or on the information.
Consent
to Monitoring and Disclosure
prudential professional, REALTORS® is under no obligation to monitor
the information residing on or transmitted to this server.
However, anyone using this server agrees that prudential professional, REALTORS® may monitor the server contents periodically
to (1) comply with any necessary laws, regulations or other
government requests; (2) to operate the server properly or
to protect itself and its users. prudential professional, REALTORS® reserves the right to modify, reject or eliminate
any information residing on or transmitted to its server
that it, in its sole discretion, believes is unacceptable
or in violation of these terms and conditions.
Should
any user of information on this server provide prudential professional, REALTORS® with information including but not
limited to feedback, data, answers, questions, comments,
suggestions, plans, ideas or the like, such information shall
be deemed to be nonconfidential and prudential professional, REALTORS® assumes no obligation to protect such information
from disclosure. The submission of such information to prudential professional, REALTORS® shall in no way prevent the purchase,
manufacture or use of similar products, services, plans and
ideas by prudential professional, REALTORS® for any purpose
whatever and by such submission the user grants to prudential professional, REALTORS® the irrevocable right to reproduce,
use, disclose and distribute the information to others without
restriction or compensation required.
Disclaimer
of Liability
THE
USER OF THIS SYSTEM ASSUMES ALL RESPONSIBILITY AND RISK FOR
THE USE OF THIS SERVER AND THE INTERNET GENERALLY. prudential professional, REALTORS®, ITS AFFILIATES AND DATA SUPPLIERS
DISCLAIM ALL WARRANTIES, REPRESENTATIONS OR ENDORSEMENTS,
EXPRESS OR IMPLIED, WITH REGARD TO THE INFORMATION ACCESSED
FROM, OR VIA, THIS SERVER OR THE INTERNET, INCLUDING, BUT
NOT LIMITED TO, ALL IMPLIED WARRANTIES OF MERCHANTABILITY,
FITNESS FOR A PARTICULAR PURPOSE, OR NONINFRINGEMENT. prudential professional, REALTORS® DOES NOT ASSUME ANY LEGAL LIABILITY
OR RESPONSIBILITY FOR THE ACCURACY, COMPLETENESS, OR USEFULNESS
OF ANY INFORMATION, APPARATUS, PRODUCT OR PROCESS DISCLOSED
ON THE SERVER OR OTHER MATERIAL ACCESSIBLE FROM THE SERVER.
IN NO EVENT SHALL prudential professional, REALTORS® BE LIABLE
FOR ANY COMPENSATORY, SPECIAL, DIRECT, INCIDENTAL, INDIRECT,
CONSEQUENTIAL DAMAGES, EXEMPLARY DAMAGES OR ANY DAMAGES WHATSOEVER
RESULTING FROM LOSS OF USE, DATA, OR PROFITS, WHETHER IN
AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING OUT OF
OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THE INFORMATION
ON THIS SERVER OR THE INTERNET GENERALLY OR ON ANY OTHER
BASIS. IF THIS LIMITATION OF LIABILITY OR THE EXCLUSION OF
WARRANTY SET FORTH HEREIN IS HELD INAPPLICABLE OR UNENFORCEABLE
FOR ANY REASON, THEN prudential professional, REALTORS® MAXIMUM
LIABILITY FOR ANY TYPE OF DAMAGES SHALL BE LIMITED TO U.S.
$100.00.
No
Warranties
Any
prudential professional, REALTORS® material on this server
may include technical inaccuracies or typographical errors.
prudential professional, REALTORS® has the right to make changes
and updates to any information contained within this server
without prior notice.
THE
INFORMATION PROVIDED ON THIS SERVER IS PROVIDED ON AN "AS
IS" AND "AS AVAILABLE" BASIS WITHOUT WARRANTIES
OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING BUT NOT
LIMITED TO WARRANTIES OF TITLE, NONINFRINGEMENT OR IMPLIED
WARRANTIES OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR
PURPOSE, NO ADVICE OR INFORMATION GIVEN BY prudential professional, REALTORS®, ITS AFFILIATES OR THEIR RESPECTIVE EMPLOYEES SHALL
CREATE ANY WARRANTY. NEITHER prudential professional, REALTORS® NOR
ITS AFFILIATES WARRANTS THAT THE INFORMATION ON THIS SERVER
OR ON THE INTERNET GENERALLY WILL BE UNINTERRUPTIBLE OR ERROR
FREE OR THAT ANY INFORMATION, SOFTWARE OR OTHER MATERIAL
ACCESSIBLE FROM THE SERVER IS FREE OF VIRUSES OR OTHER HARMFUL
COMPONENTS. Some states do not allow the exclusion or limitation
of incidental or consequential damages or the limitation
of duration of an implied warranty, so the limitation or
exclusion herein may not apply to you. This warranty shall
not be applicable to the extent that any provision of this
warranty is prohibited by any federal, state or local law
which cannot be preempted. This warranty gives you specific
legal rights, and you may also have other rights which vary
from state to state.
Disclaimer
of Endorsement
Reference
herein to any products, services, processes, hypertext links
to third parties or other information by trade name, trademark,
manufacturer, supplier or otherwise does not necessarily
constitute or imply its endorsement, sponsorship or recommendation
by prudential professional, REALTORS®. Product and service
information are the sole responsibility of each individual
vendor. prudential professional, REALTORS® name and logo and
other trademarks and trade names owned by The Prudential
Insurance Company of America may not be used in any commercial
manner without the prior written consent of prudential professional, REALTORS®. The user is responsible for providing all software
and equipment needed to access this service.
This
is the exclusive Agreement between prudential professional, REALTORS® and the user regarding its subject matter. prudential professional, REALTORS® shall have the right to terminate
user's ability to access this service at any time without
notice. prudential professional, REALTORS® reserves the right
to discontinue or modify any of the information contained
on this service, or the service, at any time. prudential professional, REALTORS® shall have the right to modify these
terms and conditions at any time. The user may not assign
any part of this Agreement without prudential professional, REALTORS'® prior written consent. This Agreement shall be
governed by the internal laws of Colorado. The user shall
pay any taxes on the information or transactions, except
for those based on prudential professional, REALTORS®' annual
net income. If any provision of this Agreement is declared
invalid or unenforceable, the remaining provisions of this
Agreement shall remain in effect. The user agrees to comply
with all applicable laws in using this service or the information
contained herein. No waiver of any obligation or right of
either party shall be effective unless in writing, executed
by the party against whom it is being enforced. Any such
waiver shall not preclude a party from exercising any other
right or later exercising the same right. Any notice under
this Agreement shall be delivered by U.S. certified mail,
return receipt requested, or by overnight courier to prudential professional, REALTORS® at the address below. These terms
and conditions apply on behalf of prudential professional, REALTORS® and all of its affiliates, employees, suppliers,
and distributors.
For
further information relating to the legal issues contained
in these terms and conditions, question or problem reports
regarding this service, contact prudential professional, REALTORS®.
<%
'////////////////////// BANNER AD Begin
'///////// Add to the DB
vPath = "P:/TempSite/ppr/pptxt/AD.mdb"
vSQLp = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & vPath
Set BD = Server.CreateObject("ADODB.Recordset")
BD.ActiveConnection = vSQLp
BD.CursorLocation = 3
BD.CursorType = 0
BD.LockType = 2
Set AD = Server.CreateObject("ADODB.Recordset")
AD.ActiveConnection = vSQLp
AD.CursorLocation = 3
AD.CursorType = 0
AD.LockType = 2
'//// define page and location for the banner
vZone = "Springs Search"
vPlacement = "side"
'///////////////////// Randomize number from 1 to 100
randomize
Random_percent = int(rnd*100)+1
If Random_percent <= 50 Then PriNum = 1
If Random_percent > 50 AND Random_percent <= 70 Then PriNum = 2
If Random_percent > 70 AND Random_percent <= 85 Then PriNum = 3
If Random_percent > 85 AND Random_percent <= 95 Then PriNum = 4
If Random_percent > 95 AND Random_percent <= 100 Then PriNum = 5
ChkNum = PriNum
For i = 1 to 5
If PriNum > 0 Then
BD.Open "SELECT * FROM tblBanner WHERE Priority = " & cInt(PriNum) & " AND bZone = '" & vZone & "' AND bPlacement = '" & vPlacement & "'" _
& " AND (ImpressionsCurrent <= ImpressionsMax) AND (sDate <= #" & date() & "# AND #" & date() & "# <= eDate)"
Else
OthNum = i
If ChkNum = 2 Then OthNum = 1
If ChkNum = 3 Then
OthNum = 1
ChkThree = 3
End If
If ChkNum = 4 Then
OthNum = 1
ChkFour = 4
End If
If ChkNum = 5 Then
OthNum = 1
ChkFive = 5
End If
If ChkThree = i Then OthNum = 2
If ChkFour = i Then OthNum = 2
If ChkFive = i Then OthNum = 2
BD.Open "SELECT * FROM tblBanner WHERE Priority = " & cInt(OthNum) & " AND bZone = '" & vZone & "' AND bPlacement = '" & vPlacement & "'" _
& " AND (ImpressionsCurrent <= ImpressionsMax) AND (sDate <= #" & date() & "# AND #" & date() & "# <= eDate)"
End If
If Not BD.EOF Then
bCnt = BD.RecordCount
Random_Number = int(rnd*bCnt)+1
Counter = 0
Do Until BD.EOF
Counter = Counter + 1
If Counter = Random_Number Then
ShowBanner = "
