<%@LANGUAGE="VBSCRIPT"%> <% ' FileName="Connection_odbc_conn_dsn.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="true" ' Catalog="" ' Schema="" Dim MM_pp_STRING MM_pp_STRING = "dsn=tracker3;" %> <% Dim Recordset4 Dim Recordset4_numRows Set Recordset4 = Server.CreateObject("ADODB.Recordset") Recordset4.ActiveConnection = MM_pp_STRING Recordset4.Source = "SELECT * FROM bz3" Recordset4.CursorType = 0 Recordset4.CursorLocation = 2 Recordset4.LockType = 1 Recordset4.Open() Recordset4_numRows = 0 %> <% Dim Recordset8 Dim Recordset8_numRows Set Recordset8 = Server.CreateObject("ADODB.Recordset") Recordset8.ActiveConnection = MM_pp_STRING Recordset8.Source = "SELECT * FROM z3" Recordset8.CursorType = 0 Recordset8.CursorLocation = 2 Recordset8.LockType = 1 Recordset8.Open() Recordset8_numRows = 0 %> <% Dim adid, keyid, headline, keyid2, headlineb, keyid3, keyid4 adid = "none" If(Request("adid") <> "") Then adid = Request("adid") End If keyid = "MLM" If(Request("keyid") <> "") Then keyid = Request("keyid") End If If keyid <> "MLM" Then keyid2 = keyid keyid3 = keyid keyid4 = " " & keyid else keyid2 = "MLM" keyid3 = "MLM Success" keyid4 = "" End If If adid = "1" Then headline = "Grow Your " & keyid2 & " Biz!" headlineb = "Have HOT Prospects Calling You
Download FREE Report - " & keyid2 elseIf adid = "2" Then headline = "Your " & keyid3 headlineb = "Grow Your Downline By 20-30 A Week
Download Free Insider Report" else headline = "Real SUCCESS In 2006" headlineb = "“Who Else Wants To Learn How To Turn Their MLM Into A Cash-Generating, SUCCESS?" End If %> <% On Error Resume Next strURL2 = Request.ServerVariables("HTTP_REFERER") 'strURL2 = "http://search.msn.com/results.aspx?q=profit+master&FORM=MSNH&srch_type=0" Function keywords(str) fr = str fr_len = len(fr) str_g = InStr(fr,"google.c") str_y = InStr(fr,"yahoo.c") str_w = InStr(fr,"wanadoo.c") str_m = InStr(fr,"msn.c") str_a = InStr(fr,"aol.c") str_e = InStr(fr,"earthlink.n") if str_g > 0 then tag = "google" if str_y > 0 then tag = "yahoo" if str_w > 0 then tag = "wanadoo" if str_m > 0 then tag = "msn" if str_a > 0 then tag = "aol" if str_e > 0 then tag = "earthlink" mail = InStr(fr,"mail") googlesyndication = InStr(fr,"googlesyndication") diryahoo = InStr(fr,"dir.yahoo") if str_g = 0 AND str_y = 0 AND str_w = 0 AND str_m = 0 AND str_a = 0 AND str_e = 0 then keywords = "Special" end if if str_g > 0 OR str_w > 0 OR str_m > 0 OR str_e > 0 then qs = "q=" if str_y > 0 then qs = "p=" if str_a > 0 then qs = "query=" if str_g > 0 OR str_w > 0 OR str_m > 0 OR str_y > 0 OR str_e > 0 then offset = 1 else offset = 5 end if if (str_g>0 OR str_y>0 OR str_w>0 OR str_m>0 OR str_a>0 OR str_e>0 ) AND mail = 0 And diryahoo = 0 and googlesyndication = 0 then a01 = instr(fr,qs) a02 = instr(fr,"&") a2 = right(fr,(fr_len-a01)-offset) a3 = instr(a2,"&") if a3 > 0 then a4 = len(a2) a5 = left(a2,a3-1) a6 = replace(a5,"+"," ") else a6 = replace(a2,"+"," ") end if a7 = replace(a6,"%20"," ") a8 = replace(a7,"%2e","-") a9 = replace(a8,"%2B","-") a10 = replace(a9,"%2F","/") a11 = replace(a10,"%22","-") keywords = a11 '"" & tag & " - " & end if End Function Function keywords2(str) fr = str fr_len = len(fr) str_g = InStr(fr,"google") str_y = InStr(fr,"yahoo") str_w = InStr(fr,"wanadoo") str_m = InStr(fr,"msn") str_a = InStr(fr,"aol") str_e = InStr(fr,"earthlink.n") if str_g > 0 then tag = "google" if str_y > 0 then tag = "yahoo" if str_w > 0 then tag = "wanadoo" if str_m > 0 then tag = "msn" if str_a > 0 then tag = "aol" if str_e > 0 then tag = "earthlink" if str_g = 0 AND str_y = 0 AND str_w = 0 AND str_m = 0 AND str_a = 0 AND str_e = 0 then keywords2 = "SearchEng" end if mail = InStr(fr,"mail") if (str_g>0 OR str_y>0 OR str_w>0 OR str_m>0 OR str_a>0 OR str_e>0) AND mail = 0 then keywords2 = tag '"" & tag & " - " & end if End Function Dim strInsert, insRequest, page, good, good1 if (keywords(strURL2) <> "Special") Then good1 = "Looking for " + keywords(strURL2) + "?" else good1 = "MLMFirePower" end if if (good1 <> "Looking for ?") Then good = good1 else good = "MLMFirePower" end if page = "Special " + "(" + keyid4 + ")" + "-" + keywords2(strURL2) + "-" + keywords(strURL2) strInsert = "INSERT INTO input(strURL2, other, page) VALUES ('" & strURL2 & "', '" & good & "', '" & page& "')" Set insRequest = Server.CreateObject("ADODB.Command") insRequest.ActiveConnection = "dsn=tracker3;" insRequest.CommandText = strInsert insRequest.Execute On Error Resume Next %> Internet Marketing For MLM
Internet Marketing For MLM

An MLM FirePower
Exclusive Report

Shameless

Two-Faced

S.O.B.S!

A scathing expose of the home business industry and a MUST-READ for every home-based business entrepreneur who's ever felt ripped-off or scammed...

YOU'LL DISCOVER The 7 Steps To Business Success once and for all!
FINALLY See How To Set and Achieve Every Goal You Ever Dream Up For Yourself. Achieving every goal is much easier than you think - ESPECIALLY if you follow  what's on page 11.
YOU WILL DISCOVER the winning formula for creating massive wealth... time freedom and live the life of a king!
And You will discover the industry-wide conspiracy that's being perpetrated before your very eyes - costing you untold thousands of dollars... AND untold hours of frustration and anguish.

learn more

Act Now - Just use your first name and a valid email and phone number - then click the "Show Me Now!" button on the right to find out more (all information is kept 100% confidential).

Please allow the next page a few seconds to load.

Don't Miss This
Hard-Hitting
Industry Expose!

YES! Please give me a FREE copy of the "Shameless Two-Faced S.O.B.s" report.

Name:

Phone:

E-mail:

Check this box to receive free updates when they become available.

Harun and Josh

PRIVACY: All information is kept strictly confidential and NEVER shared with anyone.

PLEASE DO NOT SHARE THIS SITE With anyone - UNLESS they are somewhere in Your Downline

 

Copyright 2007 Harun Bahri and Josh Beistle -All Rights Reserved

 

"...turned over $15,114.90!!!..."

"Hi Josh and Harun. Just wanting to share more of my excitement since taking on board the incredible training your "Firepower" system offers. I have had a very exciting week with so much happening in my business that my head’s spinning!

  I turned over $15,114.90!!! IN ADDITION TO THIS I HAVE JUST TURNED OVER ANOTHER $8825.47 AND IT’S ONLY THE 6TH DAY OF THE MONTH!!! I AM SOOOO EXCITED!"

- Pauline O’Halloran, Melbourne, Australia. Herbalife Distributor
Valid HTML 4.01 Transitional->We respect YOUR privacy and will NOT rent, trade, or release your information to any third party for any reason. Links