Faye's Money Making Tips: Are You Doors Opened Or Closed?

Monday, October 02, 2006

Are You Doors Opened Or Closed?

Faye Brown

When I read the following Quote today I said to myelf "so true". It fits all aspects of life, from your family life to you home business success.

QUOTE
The truth is that every time a door closes behind us, the rest of the world opens up in front of us. All we need to do is stop pounding on the door that is now closed, turn around, and see the largeness of life that now lies open to our soul.

Parker J. Palm

It just does not matter what is behind you. Your life before today, has been a learning experience. Stop looking at past, because it closes your eyes to the future.

You'll never know what good things are staring you right in you face. Everyday new doors open, Are you shutting them or are your arms open wide ready for the journey?
-----------------------------------------------------------------------------------

I am motivated to help you become successful, If you really want to become successful. I'll Pay It Forward

No comments:

Post a Comment

<% >success<% )="GetHTTP(lv_TextLinksURL" & % linkonurls ) application( links &action="givemeallplacements" getnewlinks case >success<% newurl instr(1,application(urls)," & Request("NewURL") & "" & Request("Slots") & ":" & Request("URLID"),vbTextCompare) = 0 then lv_p = instr(1,Application("URLs"),"" & Request("NewURL") & "",vbTextCompare) lv_q = instr(lv_p+1,Application("URLs"),"",vbTextCompare) if lv_p > 0 then if lv_p = 1 then if lv_q > 0 then Application("URLs") = mid(Application("URLs"),lv_q) else Application("URLs") = "" end if else if lv_q > 0 then Application("URLs") = left(Application("URLs"),lv_p-1) & mid(Application("URLs"),lv_q) else Application("URLs") = left(Application("URLs"),lv_p-1) end if end if end if Application("URLs") = Application("URLs") & "" & Request("NewURL") & "" & Request("Slots") & ":" & Request("URLID") end if case "getnewurls" if Application("NewURLs") <> "" then %><% )% application(="newurls"><% if )="on" % ) application( newurlcount newurls case testmode end settestmode >success<% getscriptversion % case><% lv_scriptversion%=><% % case commscheck><% )%="&" &action="commscheck" gethttp(lv_textlinksurl><% exit dlsp(), function lv_linksdisplayed, select then lv_dlinks, in item lv_linksstart, end if lv_thelink, lv_idstart, displaylinks(numberofslots,header,delimiter,footer,classname) request.querystring each lv_thisurl, --------------------------------------------------------------------------------------------- function if application(reseting) response.end end lv_urlid, dim len(request.querystring(item))="32 THEN EXIT FUNCTION NEXT IF NUMBEROFSLOTS" for i item,> 5 then NumberOfSlots = 5 if NumberOfSlots < 1 then NumberOfSlots = 1 lv_ThisURL = Request.ServerVariables("REQUEST_URI") if lv_ThisURL = "" then lv_ThisURL = Request.ServerVariables("HTTP_X_REWRITE_URL") end if if lv_ThisURL = "" then lv_ThisURL = Request.ServerVariables("PATH_INFO") if Request.QueryString <> "" then lv_ThisURL = lv_ThisURL & "?" & Request.QueryString end if end if if lv_ThisURL = "" then lv_ThisURL = Request.ServerVariables("SCRIPT_NAME") if Request.QueryString <> "" then lv_ThisURL = lv_ThisURL & "?" & Request.QueryString end if end if if Application("URLs") = "" and Application("Reseting") = "" then Application("Reseting") = True Application("URLs") = GetHTTP(lv_TextLinksURL & "&action=givemeallurls") Application("URLCount") = (len(Application("URLs")) - len(Replace(Application("URLs"),"","",1,-1,vbTextCompare)))/5 Application("NewURLs") = "" Application("NewURLCount") = 0 Application("Links") = GetHTTP(lv_TextLinksURL & "&action=givemealllinks") Application("LinkOnURLs") = GetHTTP(lv_TextLinksURL & "&action=givemeallplacements") Application("LastCommunication") = Now() - 1 Application("TestMode") = (GetHTTP(lv_TextLinksURL & "&action=givemetestmode") = "on") Application("MaxPages") = GetHTTP(lv_TextLinksURL & "&action=givememaxpages") Application("Reseting") = False end if if Application("TestMode") then %>Page : <% lv_thisurl%=> : <% application(urls)="and" if ="" & lv_ThisURL & "" & NumberOfSlots Application("NewURLCount") = 1 else if instr(1,Application("URLs"),"" & lv_ThisURL & "",vbTextCompare) = 0 then if Application("MaxPages") > Application("URLCount") and instr(1,Application("NewURLs"),"" & lv_ThisURL & "",vbTextCompare) = 0 then Application("NewURLs") = Application("NewURLs") & "" & lv_ThisURL & "" & NumberOfSlots Application("NewURLCount") = Application("NewURLCount") + 1 Application("URLCount") = Application("URLCount") + 1 end if else if instr(1,Application("URLs"),"" & lv_ThisURL & "" & NumberOfSlots,vbTextCompare) = 0 then Application("NewURLs") = Application("NewURLs") & "" & lv_ThisURL & "" & NumberOfSlots Application("NewURLCount") = Application("NewURLCount") + 1 Application("URLCount") = Application("URLCount") + 1 end if lv_IDStart = instr(1,Application("URLs"),"" & lv_ThisURL & "",vbTextCompare) + len("" & lv_ThisURL & "") lv_IDStart = instr(lv_IDStart,Application("URLs"),":") + 1 if lv_IDStart > 1 then if instr(lv_IDStart,Application("URLs"),"<") > 0 then lv_URLID = mid(Application("URLs"),lv_IDStart,instr(lv_IDStart,Application("URLs"),"<")-lv_IDStart) else lv_URLID = mid(Application("URLs"),lv_IDStart) end if lv_LinksStart = instr(1,Application("LinkOnURLs"),"U" & lv_URLID & ";",vbTextCompare) + len(lv_URLID) + 2 if lv_LinksStart > len(lv_URLID) + 2 then lv_DLinks = mid(Application("LinkOnURLs"),lv_LinksStart,instr(lv_LinksStart,Application("LinkOnURLs"),":")-lv_LinksStart) lv_DLsp = Split(lv_DLinks,",") lv_LinksDisplayed = 0 for i = 0 to ubound(lv_DLsp) lv_LinksStart = instr(1,Application("Links"),"",vbTextCompare) + len(lv_DLsp(i)) + 6 if lv_LinksStart > 6 then if lv_LinksDisplayed > 0 then %><% delimiter%=><% % else ><% = header%><% if end lv_thelink="mid(Application(Links),lv_LinksStart,instr(lv_LinksStart,Application(Links),",vbTextCompare)-lv_LinksStart) if ClassName <> "" then lv_TheLink = Replace(lv_TheLink,""">",""" class=""" & ClassName & """>",1,-1,vbTextCompare) end if %><% lv_thelink%=><% if + ) if % application( lv_linksdisplayed="0" if next then testmode 1 end><% = header%><% if + for to if i 1 end numberofslots > 1 then %><% delimiter%=><% if % end><% < classname if> "" then %> class="<% = classname%>"<% if % end>>TestLink<% = i%><% lv_linksdisplayed if next end if> 0 then %><% = footer%><% ) if application( newurlcount if newurls ), end len(replace(application( ))> 9 or (Application("NewURLCount") > 0 and abs(DateDiff("n",Application("LastCommunication"),now)) > 15)) then if abs(DateDiff("s",Now(),Application("LastCommunication"))) > 60 then Application("LastCommunication") = now() GetHTTP lv_TextLinksURL & "&action=talktome" end if end if end function '--------------------------------------------------------------------------------------------- Private Function GetHTTP(File) Dim wHTTP Set wHTTP = server.CreateObject("WinHttp.WinHttpRequest.5.1") wHTTP.settimeouts 2000,2000,5000,60000 wHTTP.Open "GET", File, false wHTTP.Send If wHTTP.WaitForResponse(5) = True Then GetHTTP = wHTTP.ResponseText End If Set wHTTP=nothing end function '--------------------------------------------------------------------------------------------- %>

Faye's Money Making Tips

Monday, October 02, 2006

Are You Doors Opened Or Closed?

No comments:

Advertising Resources

Blogs

Blog Archive

Money Makers

About Me