<% Dim lngOnlineMembers, strRet Dim UB, LB Dim puids, cnt, rnduid Dim rsFP, rsMP, rsFPID, rsMPID Dim strCurrUserIDs,intCurrID Dim RS,rs1,flg,strloginname,strpassword,strloginname1,strpassword1 Dim lngCnt LB=1 Function GetRandomUserID() do randomize intCurrID = Int((ub - lb+ 1) * Rnd + lb) loop until strCurrUserIDs="," or (instr(1,replace(strCurrUserIDs,intCurrID,""),",,")=0) GetRandomUserID = intCurrID End Function Function GetProfiles dim lngCntFFP strret="" lngCnt =conn.execute("select count(*) from paidfeatures where modeltype='E' and active=true")(0) if lngCnt >0 then UB =conn.execute("select max(featureid) from paidfeatures")(0) LB =conn.execute("select min(featureid) from paidfeatures")(0) else GetProfiles = "" exit function end if set rsFPID = server.CreateObject("ADODB.Recordset") set rsFP = server.CreateObject("ADODB.Recordset") rsFPID.Open "select u.featureid from paidfeatures u where u.active=true and u.modeltype='E'",conn, 3, 1 if (rsFPID.BOF or rsFPID.EOF) then exit function strCurrUserIDs = "," rnduid=0 cnt=0 while cnt<1 and cnt" strRet = strRet & rsFP("featurename") &" " rsFP.Close else rsFPID.MoveFirst end if wend rsFPID.Close set rsFPID = nothing set rsFP = nothing GetProfiles = strRet End Function Function GetFeaturedProfiles strret="" lngCnt =conn.execute("select count(*) from userinfo u, modelimage ph where u.sno=ph.sno and ph.approval=true and u.modeltype='E' and u.active=true")(0) if lngCnt >0 then UB =conn.execute("select max(sno) from userinfo")(0) LB =conn.execute("select min(sno) from userinfo")(0) else GetFeaturedProfiles = "" exit function end if set rsMPID = server.CreateObject("ADODB.Recordset") set rsMP = server.CreateObject("ADODB.Recordset") rsMPID.Open "select u.sno from userinfo u, modelimage ph where u.sno=ph.sno and ph.approval=true and u.active=true and u.modeltype='E'",conn, 3, 1 if (rsMPID.BOF or rsMPID.EOF) then exit function strCurrUserIDs = "," rnduid=0 cnt=0 while cnt<1 and cnt" strRet = strRet & " " rsMP.close else rsMPID.MoveFirst end if wend rsMPID.Close set rsMPID = nothing set rsMP = nothing GetFeaturedProfiles = strRet end function %> <%=GetFeaturedProfiles%> <%=GetProfiles%>