Warning: include(includes/left.php): Failed to open stream: No such file or directory in /home/not/public_html/jayalakshmi/folder-a-d-fini-1/dating/memmyactivity.php on line 172

Warning: include(): Failed opening 'includes/left.php' for inclusion (include_path='.:/opt/cpanel/ea-php81/root/usr/share/pear') in /home/not/public_html/jayalakshmi/folder-a-d-fini-1/dating/memmyactivity.php on line 172
<% 'This function returns "checked" if strArgCSV has the strArgID in it... 'strArgID - A single Key Value 'strArgCSV - List of Key Values to search for the presence of strArgID Function GetChecked(strArgID,strArgCSV) dim strTCSV strTCSV = "," & strArgCSV & "," if instr(1,strTCSV,strArgID) then if instr(1,replace(strTCSV,strArgID,""),",,") then GetChecked = "checked" else GetChecked = "" end if end if End Function 'save the member activities if request.QueryString("Mode")="Save" then fyf() Dim Form Set Form =New ASPForm Server.ScriptTimeout = 5000 Form.sizelimit = &HA00000 if Form.state = 0 then Dim RS,strdimg,rstmp,File,Fso,strurl Dim hairchk,eyechk set Rs=server.CreateObject("ADODB.recordset") maxID=cn.execute("select max(User_ID_PK) from tbl_user")(0) userid=Session("UserID") set RS=server.createobject("ADODB.recordset") RS.open "select * from Tbl_Profiles where User_ID_FK="&userid,Cn,3,2 if Rs.eof <> true then if cint(Form.item("hidactive")) >1 then for i=1 to Form.item("Activitieschkbox").count str=str & (Form.item("Activitieschkbox")(i)& ",") next Rs("Activities") =left(str,(len(str) -1)) else Rs("Activities") =Form.item("Activitieschkbox") end if if Form.item("hidentertainment") >1 then for i=1 to Form.item("entertainmentchkbox").count str1=str1 & (Form.item("entertainmentchkbox")(i)& ",") next Rs("Entertainment") =left(str1,(len(str1) -1)) else Rs("Entertainment") =Form.item("entertainmentchkbox") end if if Form.item("hidsports") > 1 then for i=1 to Form.item("Sportshkbox").count str2=str2 & (Form.item("Sportshkbox")(i)& ",") next Rs("Sports") =left(str2,(len(str2) -1)) else Rs("Sports") =Form.item("Sportshkbox") end if if Form.item("hidhobbies") >1 then for i=1 to Form.item("hobbieschkbox").count str3=str3 & (Form.item("hobbieschkbox")(i)& ",") next Rs("Hobbies") =left(str3,(len(str3) -1)) else Rs("Hobbies") =Form.item("hobbieschkbox") end if Rs("showprofile") = true ' Rs("PhotoActive") = true Rs.Update if Form.item("txtimage1") <>"" then set RS1=server.createobject("ADODB.recordset") sql="select * from tbl_userphotos where priority=1 and User_ID_FK="&userid Rs1.open Sql,Cn,3,2 if Rs1.eof = true then RS1.addnew For Each File In Form.Files.Items if len(File.FileName)>0 then if File.Name="txtimage1" then strdimg = GetUniqueFileName(File.FileName, DestinationPath) File.SaveAs DestinationPath & "\" & strdimg end if end if next if strdimg <> "" then Rs1.fields("photo")=strdimg Rs1.fields("User_ID_FK")=session("UserID") Rs1.fields("Priority")=1 Rs1.fields("Approval")="A" end if Rs1.update cn.execute "update Tbl_profiles set PhotoActive=true where User_ID_FK="&Session("UserID") end if end if if Form.item("txthidid") <> "" then response.Redirect "memberhome.php?mode=f" else session("Msg") ="Activities & Hobbies updated successfully" response.Redirect("memmyactivity.php") end if elseif (Rs.EOF or rs.bof) then set Rs=server.CreateObject("ADODB.recordset") Rs.open "Select * from Tbl_Profiles",Cn,3,2 Rs.addnew Rs("User_ID_FK")= userid if cint(Form.item("hidactive")) >1 then for i=1 to Form.item("Activitieschkbox").count str=str & (Form.item("Activitieschkbox")(i)& ",") next Rs("Activities") =left(str,(len(str) -1)) else Rs("Activities") =Form.item("Activitieschkbox") end if if Form.item("hidentertainment") >1 then for i=1 to Form.item("entertainmentchkbox").count str1=str1 & (Form.item("entertainmentchkbox")(i)& ",") next Rs("Entertainment") =left(str1,(len(str1) -1)) else Rs("Entertainment") =Form.item("entertainmentchkbox") end if if Form.item("hidsports") > 1 then for i=1 to Form.item("Sportshkbox").count str2=str2 & (Form.item("Sportshkbox")(i)& ",") next Rs("Sports") =left(str2,(len(str2) -1)) else Rs("Sports") =Form.item("Sportshkbox") end if if Form.item("hidhobbies") >1 then for i=1 to Form.item("hobbieschkbox").count str3=str3 & (Form.item("hobbieschkbox")(i)& ",") next Rs("Hobbies") =left(str3,(len(str3) -1)) else Rs("Hobbies") =Form.item("hobbieschkbox") end if Rs("showprofile") = true ' Rs("PhotoActive") = true Rs.Update if Form.item("txtimage1") <>"" then ' Save the Photo set RS1=server.createobject("ADODB.recordset") sql="select * from tbl_userphotos where priority=1 and User_ID_FK="&userid Rs1.open Sql,Cn,3,2 if Rs1.eof <> true then else RS1.addnew For Each File In Form.Files.Items if len(File.FileName)>0 then if File.Name="txtimage1" then strdimg = GetUniqueFileName(File.FileName, DestinationPath) File.SaveAs DestinationPath & "\" & strdimg end if end if next if strdimg <> "" then Rs1.fields("photo")=strdimg Rs1.fields("User_ID_FK")=session("UserID") Rs1.fields("Priority")=1 Rs1.fields("Approval")="A" end if Rs1.update cn.execute "update Tbl_profiles set PhotoActive=true where User_ID_FK="&Session("UserID")& " " end if session("Msg") ="Activities & Hobbies updated successfully" response.Write( Form.item("txthidid")) Session("IsMemberLoggedIn") = true if Form.item("txthidid") <> "" then session("RegInProgress") = "n" response.Redirect "memberhome.php?mode=f" else response.Redirect "memmyactivity.php" end if end if end if end if end if ?>

Fatal error: Uncaught Error: Call to undefined function top() in /home/not/public_html/jayalakshmi/folder-a-d-fini-1/dating/memmyactivity.php:381 Stack trace: #0 {main} thrown in /home/not/public_html/jayalakshmi/folder-a-d-fini-1/dating/memmyactivity.php on line 381