<%@ Language=VBScript %> <% greeting = "I am" referral = Request("ref") if referral = "" or referral & "TBD" = "TBD" then sponsor = ucase("sykaro") else sponsor = ucase(referral) end if connectionstring = "clb" Set cn = Server.CreateObject("ADODB.Connection") cn.Open connectionstring Set member = Server.CreateObject("ADODB.Recordset") member.ActiveConnection = cn sqltext = "select * from members where userid = '" & sponsor & "'" On error resume next member.open sqltext if err <> 0 then member.Close cn.Close ' Response.Redirect("error.asp?usrmsg=databaseread") sponsor = ucase("sykaro") else if member.EOF then member.Close cn.Close sponsor = ucase("sykaro") else affname = "" & member("firstname") & " " & member("lastname") & "" member.Close cn.Close end if end if If sponsor <> "SYKARO" then greeting = affname & " and I are" end if %> Contact List Builder / Download

 

Contact List Builder
Your Complimentary Download

To download your copy of the Contact List Builder, click the button 'Download the CLB', save to your computer and enjoy.  Please don't forget to download the new Basics for Beginners eCourse, link is just below the ebook download.