newbie27
asked on
jQuery Image opacity
Hello Experts,
I am making an icon on the page to look pale by reducing its opacity when the user clicks on it.
something like this
$(this).animate({opacity: "0.3"}, 500);
It is working fine on the event, however it is not retaining its style when I refresh the page.
Can someone please let me know If we can do quick jQuery search if the Id of this icon exist in the menu where it has been added then keep the pale look. Please can someone advice how to check this?
Thanks for your help.
Regards
S
I am making an icon on the page to look pale by reducing its opacity when the user clicks on it.
something like this
$(this).animate({opacity: "0.3"}, 500);
It is working fine on the event, however it is not retaining its style when I refresh the page.
Can someone please let me know If we can do quick jQuery search if the Id of this icon exist in the menu where it has been added then keep the pale look. Please can someone advice how to check this?
Thanks for your help.
Regards
S
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
thanks hielo
ASKER
Hielo,
I think I have managed to do this, please below solution here
https://www.experts-exchange.com/questions/23529998/showing-the-newly-added-in-the-drop-down-list.html
please also see if this makes sense?
thanks
PRIVATE FUNCTION WriteListsDropdown()
Dim bound
sFilename = "test@test.com.xml"
sXMLFile = ADMIN_WWW_FOLDER & "\lists\data\" & sFilename
Set fso = Server.CreateObject("Scrip ting.FileS ystemObjec t")
If fso.FileExists(sXMLFile) Then
Set oFile = fso.OpenTextFile(sXMLFile)
xmlData = oFile.ReadAll
'response.write xmlData
xmlListName = split(XMLField(xmlData, "listname", False), chr(28))
on error resume next
bound = UBound(xmlListName)
For i = 0 To bound
If i = bound Then
WriteListsDropdown = WriteListsDropdown & "<OPTION value=""" & xmlListName(i) & """" & " selected>" & xmlListName(i) & "</OPTION>"
Else
WriteListsDropdown = WriteListsDropdown & "<OPTION value=""" & xmlListName(i) & """" & ">" & xmlListName(i) & "</OPTION>"
End If
Next
End If
If request.cookies("shortlist ") <> "" Then
WriteListsDropdown = WriteListsDropdown & "<OPTION value=""shortlist"">ShortL ist</OPTIO N>"
End If
WriteListsDropdown = WriteListsDropdown & "<OPTION value=""new"">New List...</OPTION>"
END FUNCTION
I think I have managed to do this, please below solution here
https://www.experts-exchange.com/questions/23529998/showing-the-newly-added-in-the-drop-down-list.html
please also see if this makes sense?
thanks
PRIVATE FUNCTION WriteListsDropdown()
Dim bound
sFilename = "test@test.com.xml"
sXMLFile = ADMIN_WWW_FOLDER & "\lists\data\" & sFilename
Set fso = Server.CreateObject("Scrip
If fso.FileExists(sXMLFile) Then
Set oFile = fso.OpenTextFile(sXMLFile)
xmlData = oFile.ReadAll
'response.write xmlData
xmlListName = split(XMLField(xmlData, "listname", False), chr(28))
on error resume next
bound = UBound(xmlListName)
For i = 0 To bound
If i = bound Then
WriteListsDropdown = WriteListsDropdown & "<OPTION value=""" & xmlListName(i) & """" & " selected>" & xmlListName(i) & "</OPTION>"
Else
WriteListsDropdown = WriteListsDropdown & "<OPTION value=""" & xmlListName(i) & """" & ">" & xmlListName(i) & "</OPTION>"
End If
Next
End If
If request.cookies("shortlist
WriteListsDropdown = WriteListsDropdown & "<OPTION value=""shortlist"">ShortL
End If
WriteListsDropdown = WriteListsDropdown & "<OPTION value=""new"">New List...</OPTION>"
END FUNCTION
ASKER
>>I think I have managed to do this, please below solution here
I meant to say, copy the above and paste it here
https://www.experts-exchange.com/questions/23529998/showing-the-newly-added-in-the-drop-down-list.html
I meant to say, copy the above and paste it here
https://www.experts-exchange.com/questions/23529998/showing-the-newly-added-in-the-drop-down-list.html
ASKER
Open in new window