Currently my tweets look like this:
$859K: 120 LOYOLA AV, Menlo Park 3br, 2ba, 1,740SF Lot=8,851. Commission rebate $17K when you buy this [login to view URL]
10:01 AM Nov 17th from API
Here are some of the changes I would like to make:
1) I would like to utilize the maximum number of allowed characters in each tweet. Unfortunately the street name and number are extremely variable so we had to shorten up the length of ALL tweets to accommodate the longest possible street name and number. This prevents me from displaying more property information. This also prevents me from displaying a complete sentence for my commission rebate offer.
2) I would like my commission rebate sentence to change to: Get a commission rebate of $17k when you buy this
3) If the script needs to truncate the tweet due to a longer address I would like it to cut out: first = Lot=8,851 second = 1,740SF
4) The most important change I need to the script is the prevention of duplicates. Currently the script is running once per day. It gathers the most recent listings and posts them regardless if they were already posted or not. This causes google to see these repetitive tweets as spam so my tweets don't show up in google search results. Hopefully there is some way for the script to be smart enough to know that it already posted a specific property and will not re-post it as a duplicate
This is what I would like my tweets to look like:
120 LOYOLA AV, Menlo Park CA, 94025: $859K, 3br, 2ba, 1,740SF Lot=8,851. Get a commission rebate of $17K when you buy this [login to view URL]
10:01 AM Nov 17th from API
Below is my current script. I would like to keep this script and make the changes above.
dim aCity(25)
dim result(20)
dim result2(20)
dim result3(20)
aCity(1) = "A"
aCity(2) = "A"
aCity(3) = "A"
aCity(4) = "A"
aCity(5) = "A"
aCity(6) = "A"
aCity(7) = "A"
aCity(8) = "A"
aCity(9) = "A"
aCity(10) = "A"
aCity(11) = "A"
aCity(12) = "A"
aCity(13) = "A"
aCity(14) = "A"
aCity(15) = "A"
aCity(16) = "A"
aCity(17) = "A"
aCity(18) = "A"
aCity(19) = "A"
aCity(20) = "A"
aCity(21) = "A"
aCity(22) = "A"
aCity(23) = "A"
aCity(24) = "A"
acity(25) = "A"
dim alogin(25)
alogin(1) ="B"
alogin(2) ="B"
alogin(3) ="B"
alogin(4) ="B"
alogin(5) ="B"
alogin(6) ="B"
alogin(7) ="B"
alogin(8) ="B"
alogin(9) ="B"
alogin(10) ="B"
alogin(11) ="B"
alogin(12) ="B"
alogin(13) ="B"
alogin(14) ="B"
alogin(15) ="B"
alogin(16) ="B"
alogin(17) ="B"
alogin(18) ="B"
alogin(19) ="B"
alogin(20) ="B"
alogin(21) ="B"
alogin(22) ="B"
alogin(23) ="B"
alogin(24)="B"
alogin(25) ="B"
dim apass(25)
apass(1) ="C"
apass(2) ="C"
apass(3) ="C"
apass(4) ="C"
apass(5) ="C"
apass(6) ="C"
apass(7) ="C"
apass(8) ="C"
apass(9) ="C"
apass(10) ="C"
apass(11) ="C"
apass(12) ="C"
apass(13) ="C"
apass(14) ="C"
apass(15) ="C"
apass(16) ="C"
apass(17) ="C"
apass(18) ="C"
apass(19) ="C"
apass(20) ="C"
apass(21) ="C"
apass(22) ="C"
apass(23) ="C"
apass(24) ="C"
apass(25) = "C"
'create and open connection
Dim strConnection
Set oCon = CreateObject("[login to view URL]")
strConnection = "DRIVER={SQL Server}; Server=[login to view URL];" _
& " Database=MLSData; UID=xxx; PWD=xxxxxx;"
set rsa = CreateObject("[login to view URL]")
[login to view URL](strConnection)
set rsa = CreateObject("[login to view URL]")
testdate =dateadd("d", -10, now())
'ATHERTON
for i =0 to 5
for b=1 to 25
' sqllu = "select convert(datetime, ModificationTimestamp), listingID as id from rets_data_all where
convert(datetime, ModificationTimestamp) > '05-01-2009' Order by convert(datetime, ModificationTimestamp) limit 10"
sqllu = "select listingID, structuresize, convert(int,commissionrate) as commissionrate,
convert(datetime,ModificationTimestamp) as ModificationTimestampRF, filteredAddress, lotsizearea, CONVERT(INT, listprice) as
listpriceINT, city, beds, baths from rets_data_all where city='"& aCity(b) & "'and listingstatus_code='Active' and class='1'
and convert(INT, listprice) >'750000' and convert(datetime, ModificationTimestamp) >='"& testdate & "' "
[login to view URL] sqllu, oCon, 1, 1
'[login to view URL] acity(b)
if [login to view URL] = true then
[login to view URL]
else
[login to view URL] +i
address=rsa("filteredAddress")
structuresize=rsa("structuresize")
comrate=rsa("commissionrate")
moddate=rsa("modificationTimestampRF")
listingID=rsa("listingid")
listprice=rsa("listpriceINT")
city=rsa("city")
lotsize=rsa("lotsizearea")
beds=rsa("beds")
baths=rsa("baths")
if len(listprice) < 7 then
moneysymbol="K"
listpriceRF=Left(listprice, 3)
dollarsymbol="$"
else
listpriceRF=(listprice/1000000)
' listpriceRF=FormatCurrency(listpriceRF, 2)
listpriceRF=Left(listpriceRF, 3)
moneysymbol="M"
dollarsymbol="$"
end if
if IsNumeric(lostsize) then
lotsize=Left(lotsize,4)
if len(lotsize)>3 then
comma4=","
sLeft4 =left(lotsize, len(lotsize)-3)
sRight4 = Right(lotsize, 3)
lotsize=sleft4&comma4&sright4
end if
else
lotsize=""
end if
rebate=(.02 *listprice)
rebate=formatNumber(rebate,0)
comma=","
sLeft =left(structuresize, len(structuresize)-3)
sRight = Right(structuresize, 3)
structuresize=sleft&comma&sright
rebate =left(rebate,2)
result(i)=modedate
'[login to view URL]("<br/>("&i&") MOD DATE:"&moddate&" test
date:"&testdate&"listprice:"&dollarsymbol&listpriceRF&moneysymbol&address&","&city&":"&beds&"br,"&baths&"ba,
"&structuresize&" SF Lost="&lotsize&" Get a commission rebate of $"&rebate&"k when you buy this home
[login to view URL]"&listingID)
'[login to view URL]
Set xml = CreateObject("[login to view URL]")
twitter_username = alogin(b) 'change to your twitter username
twitter_password = apass(b) 'change to your twitter password
twitterstring= dollarsymbol&listpriceRF&moneysymbol&": "&address&", "&city&" "&beds&"br, "&baths&"ba,
"&structuresize&"SF Lot="&lotsize&". Commission rebate $"&rebate&"K when you buy this [login to view URL]"&listingID
new_status = twitterstring 'change to your new status
[login to view URL] "POST", "http://" & twitter_username & ":" & twitter_password &
"”AA”[login to view URL]" & new_status, False
[login to view URL] "Content-Type", "content=text/html; charset=iso-8859-1"
[login to view URL]
'[login to view URL]("<br/>"&[login to view URL])
Set xml = Nothing
[login to view URL]
end if
next
next
[login to view URL]