%@ 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") 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 %>
| |
CLB RegistrationOnce your payment has been confirmed with PayPal you will be redirected to the registration form. Your accuracy is appreciated!
|
| ©2003, Contact List Builder, a Sykaro Inc Company, All Rights Reserved PRIVACY |
|