<%@ Language=VBScript %> <% ebookname = "clb_sykaro.exe" 'default ebook name ebookdir = "e:\websites\contactlistbuilder\affiliate\ebook\" 'ebook directory referral = Request("ref") if referral = "" or referral & "TBD" = "TBD" then sponsor = ucase("sykaro") else ' sponsor = ucase(referral) 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 = '" & referral & "'" On error resume next member.open sqltext if err <> 0 then member.Close cn.Close cmd = "clbdownloadlink.asp?ref=sykaro" Response.Redirect(cmd) else if not member.EOF then sponsor = member("userid") refebookname = "clb_" & sponsor & ".exe" filespec = ebookdir & refebookname member.Close cn.Close Dim fso, msg Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(filespec)) Then ebookname = refebookname End If ' Response.Write(ebookname) else member.Close cn.Close cmd = "clbdownloadlink.asp?ref=sykaro" Response.Redirect(cmd) end if end if 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.