<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim visitor, browser, visdate, vistime
visitor= Request.Servervariables("REMOTE_ADDR")
browser= Request.Servervariables("HTTP_USER_AGENT")
visdate=date()
vistime=time()
SUB sendmail( fromWho, toWho, Subject, Body )
Dim objCDO
Dim iConf
Dim Flds
Const cdoSendUsingPort = 2
Set objCDO = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "mail-fwd"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPconnectiontimeout) = 10
.Update
End With
Set objCDO.Configuration = iConf
objCDO.From = fromWho
objCDO.To = toWho
objCDO.Subject = Subject
objCDO.HTMLBody = Body
objCDO.Send
END SUB
fromWho = "webmaster@peoplefirstcorp.com"
toWho = "jgrounds@bellsouth.net;rcampbell@vannyorktoyota.com"
Subject = "Vann York Toyota - July Internet Sales Event"
Body = "
Visitor IP Address: " &visitor&" Browser: " &browser&"
" &visdate&" : " &vistime&"
This is to see if they are unique visitor's
"
If toWho <> "" THEN
sendMail fromWho, toWho, Subject, Body
'Cleanup
Set ObjCDO = Nothing
Set iConf = Nothing
Set Flds = Nothing
END IF
' Text Hit Counter Example By www.PowerASP.com
' Declare variables
Dim ObjCounterFile, ReadCounterFile, WriteCounterFile
Dim CounterFile
Dim CounterHits
Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject")
CounterFile = "D:\webs\peo1140002\tracking\vy_toyota_campaign_july10.txt"
Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True)
If Not ReadCounterFile.AtEndOfStream Then
CounterHits = Trim(ReadCounterFile.ReadLine)
If CounterHits = "" Then CounterHits = 0
Else
CounterHits = 0
End If
ReadCounterFile.Close
Set ReadCounterFile = Nothing
CounterHits = CounterHits + 1
Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True)
WriteCounterFile.WriteLine(CounterHits)
WriteCounterFile.Close
Set WriteCounterFile = Nothing
Set ObjCounterFile = Nothing
%>
Vann York Toyota - July Internet Sales Event
*Disclaimer: 0% available in lieu of Factory to Dealer Cash or Factory Cash Rebate through Southeast Toyota or SETF Special APR offered on approved credit by SETF. Cannot be combined with other offers. Must complete retail sale and delivery between 07/01/10 - 08/02/10. All prices for "in stock" units only. Pricing does not include applicable sales taxes, title, registration fees or Vann York Toyota's Administrative Fee of $389.95. Additional $150.00 Coupon in lieu of any other coupons and must be presented to Vann York Management upon arrival. COMPLIMENTARY TOYOTA MAINTENANCE PROGRAM - Within six to eight weeks of purchase or lease of a new 2009, 2010 or 2011 Toyota (excludes Scion), customer will receive a coupon booklet for all scheduled maintenance services required under Toyota's maintenance guide for up to two years / 25,000 miles, whichever comes first. The Program excludes wear and tear items (i.e., brake pads, wiper blades, etc.), as well as additional maintenance items for "special operating conditions." Must complete retail sale or lease and take delivery by August 2, 2010. See your Toyota dealer for more details.
