%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% referral = Request("ref") if referral = "" or referral & "TBD" = "TBD" then sponsor = ucase("sykaro") else sponsor = ucase(referral) end if cval = cint(Request("cval")) 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 cfirst = "" clast = "" cemail = "" caffid = "" crefby = sponsor bname = "" burl = "" bcopy = "Place your ad copy here" vfirst = Request.QueryString("cfirst") vlast = Request.QueryString("clast") vemail = Request.QueryString("cemail") vaffid = Request.QueryString("caffid") vrefby = Request.QueryString("crefby") vname = Request.QueryString("bname") vurl = Request.QueryString("burl") vcopy = Request.QueryString("bcopy") if vfirst then cfirst = vfirst if vlast then clast = vlast if vemail then cemail = vemail if vaffid then caffid = vaffid if vrefby then crefby = vrefby if vname then bname = vname if vurl then burl = vurl if vcopy then bcopy = vcopy %>
| Customized eBook Registration | |
|
© Contact List
Builder, a Sykaro Inc Creation, All Rights Reserved |