%@ Language=VBScript %> <% 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") sykaromem = "sykaro" else if member.EOF then member.Close cn.Close sponsor = ucase("I") sykaromem = "sykaro" else sykaromem = member("sykarolive") affname = member("firstname") & " " & member("lastname") member.Close cn.Close end if end if %>
|
|
September 27, 2003 |
|
| Click the link below to download your complimentary copy of the Contact List Builder.
Contact List Builder Links: What People are Saying:
Trust me, your marketing contacts will benefit...I like the way you go into great detail about how to do every little step involved with setting up an auto responder system. Much too often, experienced marketers forget that some people don't know how to do this ;-) Even though I am familiar with most of the techniques in your book, it served as a great reminder of the importance of personal contact and I can tell from our own correspondence that you actually practice what you preach. ...and will thank you for giving it to them!Bram Smith, Founder |
|
| ©2003, Contact List Builder, a Sykaro Inc Company, All Rights Reserved |
|