<%@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;"
Subject = "Vann York Nissan - July 2010 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\VYN_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 Nissan - July 2010 Internet Sales Event
Factory Cash Rebate in lieu of 0% financing and special lease programs and cannot be used in conjunction with each other. Financing is subject to NMAC Tier 0 through Tier 2 credit approval. Down payment may be required. **Cash back when you purchase from new dealer stock. See dealer for details. Offers end August 2, 2010. Prices do not include state or local goverment taxes tags, registration or fees, or High Point Nissan's Administration fee of $389.10.
