%@ 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 %>
|
||||||||||||
|
|
|
|||||||||||
| ©2004, Contact List Builder, a Sykaro Inc Company, All Rights Reserved PRIVACY |
||||||||||||