Web Development

function addSelection()
{
    frm = document.frmAddProduct;

    for(var x = 0; x < frm.list1.length; x++)
    {
        if(frm.list1[x].selected)
        {
            var newOption = document.createElement("option");
            frm.list2.options.add(newOption);
            newOption.text = frm.list1[x].value;
        }
    }
}

var anonIFrame = document.getElementById("parentElementWithKnownId").childElements[3].childElements[0];

<a\s[^>]*?href=['"]([^'">]*?)['"][^>]*?>(.*?)</a>

$2 [$1]

Sub goodMSG(msg)
    Dim badwords
    badwords = Array("arse")

    For i=0 To badwords.length
        ...
    Next
End Sub

<%@ Language=VBScript %>
<%
Function GoodMsg(msg)
	Dim badwords, temp
	badwords = Array("arse", "a***hole")

	' test the text before removing characters.
	For i=0 To UBound(badwords)
		temp = InStr(msg, badwords(i))+1
		If temp > 1 Then
			GoodMsg = False
			Exit Function
		End If	
	Next
	' if we get here all went well
	GoodMsg = True
End Function
' test the messages
Response.Write GoodMsg("Nice arse.")
Response.Write GoodMsg("Nice booty.")
%>