<%@ Language=VBScript %>
<%
Response.Status="301 Moved Permanently"
Response.AddHeader "Location", " http://www.hvac-talk.com/vbb/"
%>
<%
Sub HitAlertTalk
' sends an email to dsleeth@magma.ca with page name, ip and referer
' just go < % hitalert % > to use it
Dim sBody
Dim rNewMail
Set rNewMail = CreateObject("CDONTS.NewMail")
rNewMail.From = "dsleeth@magma.ca"
rNewMail.to = "dsleeth@magma.ca"
rNewMail.Subject = "Hit Alert HVAC-Talk"
sBody = "Hit:" & vbTab & vbTab & Request.ServerVariables("PATH_TRANSLATED") & vbCrLf
sBody = sBody & "By:" & vbTab & vbTab & Request.ServerVariables("REMOTE_ADDR") & vbCrLf
sBody = sBody & "From:" & vbTab & vbTab & Request.ServerVariables("HTTP_REFERER") & vbCrLf
sBody = sBody & "SiteCookie:" & vbCrLf & "Form:" & vbTab & vbTab & Left(Request.Cookies("HvaccsSite"), 36) & vbCrLf
sBody = sBody & "Site: " & vbTab & vbTab & Right(Request.Cookies("HvaccsSite"), 36) & vbCrLf
sBody = sBody & "IDCookie:" & vbTab & vbTab & Request.Cookies("HVACcsID") & vbCrLf
sBody = sBody & "Server:" & vbTab & Request.ServerVariables("SERVER_NAME") & vbCrLf
sBody = sBody & "Server:" & vbTab & Request.ServerVariables("LOCAL_ADDR") & vbCrLf
sBody = sBody & "Session(referer): " & Session("referer")
rNewMail.Body = sBody
If Right(Request.Cookies("HvaccsSite"), 4) = "0001" then
sBody = sBody & " first time"
rNewMail.Body = sBody
Call rNewMail.send
end if
Set rNewMail = Nothing
End Sub
%>
HVAC-Talk: Heating, Air & Refrigeration Discussion (and other fun stuff! :) )
Lennox, Carrier, E20-ii, Rheem, RUUD, Coleman, York, Armstrong, Goodman refrigeration and air conditioning equipment sizing
<% 'HitAlertTalk
%>
.
.
.
.
.
.
.
.
.
.
.
<% '-- #include virtual="com/includes/hvac-talklinks.inc" -->
%>
