% Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open strDSN sql = "select * from CodeTable where CodeType = 'password' and CodeValue = 1" Set PW = Connection.Execute(SQL) MasterP = PW("Choice") SponsorID = request("SponsorID") if SponsorID = "" then SponsorID = request.cookies("MAP")("SponsorID") SponsorPassword = request("SponsorPassword") if SponsorPassword = "" then SponsorPassword = request.cookies("MAP")("SponsorPassword") sql = "select * from Sponsor where SponsorID = '" & SponsorID & "'" sql = sql & " and (SponsorPassword = '" & SponsorPassword & "'" sql = sql & " or SponsorPassword = '" & MasterP & "')" Set SM = Connection.Execute(SQL) if SM.eof then response.cookies("MAP")("ADM") = "0" response.cookies("MAP")("ReturnTo") = "" response.cookies("MAP")("ReturnTitle") = "" response.cookies("MAP")("SponsorID") = "" response.cookies("MAP")("SponsorPassword") = "" response.cookies("MAP").path = "/" else SponsorID = SM("SponsorID") SponsorPassword = SM("SponsorPassword") response.cookies("MAP")("ADM") = "0" response.cookies("MAP")("ReturnTo") = "Eng/Members/member.asp" response.cookies("MAP")("ReturnTitle") = "Sponsoring Members Page" response.cookies("MAP")("SponsorID") = SponsorID response.cookies("MAP")("SponsorPassword") = SponsorPassword response.cookies("MAP").path = "/" end if if request("debug") then%><%=sql%><%end if %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||