<% Dim selectSQL Dim insertSQL Dim updateSQL Dim deleteSQL boolNoYes = Array("No","Yes") boolChecked = Array("","Checked") boolNoChecked = Array("Checked","") boolUserType = Array("User","Admin") boolOfficeType = Array("view","edit") serviceCat = Array("","p","s") months = Array("00","January","February","March","April","May","June","July","August","September","October","November","December") days = Array("00","01","02","03","04","05","06","07","08","09","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29","30","31") hours = Array("(am) 12","(am) 1","(am) 2","(am) 3","(am) 4","(am) 5","(am) 6","(am) 7","(am) 8","(am) 9","(am) 10","(am) 11","(pm) 12","(pm) 1","(pm) 2","(pm) 3","(pm) 4","(pm) 5","(pm) 6","(pm) 7","(pm) 8","(pm) 9","(pm) 10","(pm) 11") minutes = Array("00","01","02","03","04","05","06","07","08","09","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29","30","31","32","33","34","35","36","37","38","39","40","41","42","43","44","45","46","47","48","49","50","51","52","53","54","55","56","57","58","59") letters = Array("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z") todayDate = Split(FormatDateTime(Now(),2),"/") if todayDate(0) < 10 then todayDate(0) = "0" & todayDate(0) end if if todayDate(1) < 10 then todayDate(1) = "0" & todayDate(1) end if thisDate = todayDate(2) & "-" & todayDate(0) & "-" & todayDate(1) temp = (DateAdd("d",-1,Now())) yesterday = Split(FormatDateTime(temp,2),"/") if yesterday(0) < 10 then yesterday(0) = "0" & yesterday(0) end if if yesterday(1) < 10 then yesterday(1) = "0" & yesterday(1) end if yesterDate = yesterday(2) & "-" & yesterday(0) & "-" & yesterday(1) set db = server.createobject("ADODB.Connection") db.open "Provider=sqloledb;Data Source=p3swhsql-v11.shr.phx3.secureserver.net;Initial Catalog=ithacarealtors;User ID=ithacarealtors;Password=Hank10!;" set rs = server.createobject("ADODB.RecordSet") rs.ActiveConnection = db scriptname = Request.ServerVariables("SCRIPT_NAME") %> Ithaca Board of REALTORS® - Site Map

Site Map

Property Search

Our Members

Real Estate Resources

Working with a REALTOR®

Contact Us

<% checkTime = DateAdd("h",3,Time()) if checkTime > "5:10:00 PM" and checkTime < "8:00:00 PM" and InStr(CStr(checkTime),"PM") > 1 then selectSQL = "select * from inspectionemail where ie_lastemail = '" & thisDate & "'" rs.Open selectSQL if not rs.EOF then updateSQL = "update inspectionemail set ie_lastemail = ''" db.Execute updateSQL %> <% end if rs.Close end if db.Close %>