<%
strVandaan = Session("fromweb")
varUsr_ip = request.servervariables("remote_addr")
strNummer_cookie = Request.Cookies("Fin_cookie")
strDate = FormatDateTime(Now(),1) & " "
strTime = FormatDateTime(Now(),3) & " "
IF strVandaan = "" THEN
strVandaan = "Direct hit!"
END IF
IF strNummer_cookie = "" THEN
strNaam_cookie = "Nieuw komer! "
strCookie_Sub = "NIEUW via: "
strNummer_cookie = 1
Response.Cookies("Fin_cookie").Expires = Now() + 1
Response.Cookies("Fin_cookie") = strNummer_cookie
ELSE
strNummer_cookie = strNummer_cookie + 1
strNaam_cookie = "TERUG #" & strNummer_cookie
strCookie_Sub = strNummer_cookie & "x Terug via: "
Response.Cookies("Fin_cookie").Expires = Now() + 1
Response.Cookies("Fin_cookie") = strNummer_cookie
END IF
crlf = Chr(13) + Chr(10)
strBody1 = "Info website Finis: "
strBody2 = "Visitor from: "
strBody3 = "Cookie : "
strBody4 = "IP-adres : "
strBody5 = "Datum/tijd : "
strSubject = strCookie_Sub + strVandaan
strBody = strBody1 + crlf + crlf + strBody3 + strNaam_cookie + crlf + crlf + strBody5 + strDate + strTime + crlf + crlf + strBody2 + strVandaan + crlf + crlf + strBody4 + varUsr_ip
Dim myCDO
Set myCDO = Server.CreateObject("CDONTS.NewMail")
myCDO.From = "WebLink@Finis.nl"
myCDO.To = "financial@Finis.nl"
myCDO.Cc = ""
myCDO.Subject = strSubject
myCDO.Body = strBody
myCDO.Send
Set myCDO = nothing
%>
Untitled Document
ONIONS
- peeling
- cutting
- slicing
POTATOES
- peeling
- cutting
- profiling
CARROTS
- peeling
- profiling
BELL PEPPERS
- whole
- halving
- quartering
RED BEETS
- peeling
- profiling
Other products
- ask us