<%@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 - October - Used Car 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_oct10_used.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 - October Internet Sales Event
*Disclaimer: 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. Trade payoffs may increase actual amount financed depending upon the value of vehicle involved in as a trade. Programs end 10/31/2010. Special APR rate applies to select Toyota Certified Used Vehicles on approved credit through SETF. Minimum FICO Beacon Score must be 720.
