blog :: john collette

This коли под наемblog Marc Cuban really sums up knowing one’s self and playing on those strengths.

After a long break from blogging. I’ve decided it’s time to get with the program and share some knowledge with the rest of the world. My inspiration comes from all the other wonderful blog’s I’ve been reading. They have provided me with valuable incite and assistance on the development work I’ve been immersed in. So here we go …

Timothy Ferriss is out of hand. His concepts on Lifestyle Design: Low-information diet, Mini Retirements, Outsourcing life, “Muse” Marketing are fantastic. My only complaint as a business grad & technocrat were the pieces that reminded me of basic b-school textbook stuff. Our ideal lifestyles are to travel & learn in uninterrupted years at time. To get there Tim explains how to select/develop a product then A/B/C test market with a Google adword placement, attractive sales page and a sprinkle of conversion calculations. Blam you have projected profitability and lt-viability. End goal is to sell your product online while building a completely virtual(outsourced) organizational structure or incubate a tele-work situation. I truly enjoyed the famous relevant quote smatterings added to the enjoyment and impact. Overall feelings of enlightenment, enthusiasm and resolve to get that life long travel dream back on track in an manageable express time frame. Check it out this is not your typical BS book. Welcome to the New Rich - JC (NR)

“Whenever you find yourself on the side of the majority, it is time to pause and reflect.” — Mark Twain

“Anyone who lives within their means suffers from a lack of imagination.” — Oscar Wilde, Irish dramatist and novelist

Here are some excerpts from the book:

I never enjoyed answering this cocktail question because it reflects an epidemic I was long part of: job descriptions as self-descriptions. If someone asks me now and is anything but absolutely sincere, I explain my lifestyle of mysterious means simply.

“I’m a drug dealer.”

People don’t want to be millionaires — they want to experience what they believe only millions can buy. Ski chalets, butlers, and exotic travel often enter the picture. Perhaps rubbing cocoa butter on your belly in a hammock while you listen to waves rhythmically lapping against the deck of your thatched-roof bungalow? Sounds nice.

How does a lifelong blue-chip employee escape to travel the world for a month without his boss even noticing? He uses technology to hide the fact.

Gold is getting old. The New Rich (NR) are those who abandon the deferred-life plan and create luxury lifestyles in the present using the currency of the New Rich: time and mobility. This is an art and a science we will refer to as Lifestyle Design (LD).

I’ve spent the last three years traveling among those who live in worlds currently beyond your imagination. Rather than hating reality, I’ll show you how to bend it to your will. It’s easier than it sounds. My journey from grossly overworked and severely underpaid office worker to member of the NR is at once stranger than fiction and — now that I’ve deciphered the code — simple to duplicate. There is a recipe.

http://www.4hourworkweek.com/

I’ve decided to go basic and get rid of all the fancy colors and distractions. In order to simplify. Hope you enjoy the Minimalism

Wow is this old and dusty

Here is the Whole deal:

You pass in the name, email, subject & body

action=test — will alow you too switch to an alernate test config for debuging

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123

 
 
'Option Explicit
On Error Resume Next
 
	Dim strName, strFrom, strSubject, strBody, strAction, SMTPServer, SMTPUser, SMTPpass, mailTo 
 
		strName = ""
		strFrom = ""
		strSubject = "" 
		strBody = "" 
		strAction = ""	
 
	strAction = trim(Request.Querystring("action"))
	strName = trim(Request.Querystring("name"))
	strFrom = trim(Request.Querystring("emailfrom"))
	'strTo = trim(Request.Querystring("emailto"))
	strSubject = trim(Request.Querystring("emailsubject"))
	strBody = trim(Request.Querystring("emailbody"))
 
 
 
if instr(1, strFrom , "@", 1) < 1 or instr(1, strFrom, ".", 1) < 1 or strName = ""   then
 
	'Do some validation error response - dont send email
	'errormessage = "<font color='ff0000' size='3'>Please fill out your name and email address!</font><br><br>"
	Response.Write = "not_valid"
 
else
 
 
	Set cdoConfig = CreateObject("CDO.Configuration")  
 
 
	Const cdoSendUsingPickup = 1 
	Const cdoSendUsingPort = 2 
	Const cdoAnonymous = 0
	' Use basic (clear-text) authentication. 
	Const cdoBasic = 1
	' Use NTLM authentication 
	Const cdoNTLM = 2 'NTLM
 
 
	if strAction = "test" then
 
' test user
 
	 SMTPServer = "mail.yourserver.com" 
	 SMTPUser = "webform@yourserver.com"
	 SMTPpass = "password"
	 mailTo = "user@yourserver.com"
 
 
	else
 
 
	 SMTPServer = "mail.yourserver.com" 
	 SMTPUser = "webform@yourserver.com"
	 SMTPpass = "password"
	 mailTo = "user@yourserver.com"
 
 
	end if
 
 
    With cdoConfig.Fields  
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing")  = cdoSendUsingPickup
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer 
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
		.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = SMTPUser
		.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = SMTPpass
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
        .Update  
    End With  
 
 
 
    Set cdoMessage = CreateObject("CDO.Message")  
 
    With cdoMessage  
        Set .Configuration = cdoConfig  
        .From = SMTPUser 'request.form("youremail")
        .To = mailTo  
        .Subject = "CONTACT YOURDOMAIN.COM" 
 
					message = "Below is the result of your Contact us form, It was submitted on " & formatdatetime(now(),vbLongDate) & " " & vbCrLf & vbCrLf
					message = message & "Name: " & strName & " " & vbCrLf
					message = message & "Email: " & strFrom & " " & vbCrLf
					message = message & "Subject: " & strSubject & " " & vbCrLf
					message = message & "Message: " & strBody & " " & vbCrLf
 
					message = message + "___________________________________________________________" & vbCrLf & vbCrLf
					message = message + "IP Address : " & Request.ServerVariables("Remote_Addr") & vbCrLf
					message = message + "End"
 
 
        .TextBody = message  
        .Send 
    End With 
 
 
 
    Set cdoMessage = Nothing  
    Set cdoConfig = Nothing  
 
 
end if
 
 
 
If err.Number <> 0 Then
  Response.Write "ID = " & "1" & "<p>"
  Response.Write "Number = " & err.Number & "<p>"
  Response.Write "Description = " & err.Description & "<p>"
  Response.Write "Source = " & err.Source
  Response.Write "<BR>"
  err.Clear
else 
 
Response.Write = "OK"
 
End If

I’m at work … and wanted to check it out

Tried windows box first. Cool — but no nice perm-linking. Moved domain to Linux box and this blog is humming sweet features and easy setup. Very intuitive tons of features. I’m impressed so far.

Welcome to WordPress. This is your first post. Edit or delete it, then start blogging!