Clear contents of a combo in JavaScript
	function ComboClear(ComboName)
	{
	for (var ComboCtr = ComboName.options.length - 1; ComboCtr >= 0; ComboCtr--)
	{
	ComboName.options[ComboCtr] = null;
	}
	ComboName.selectedIndex = -1;
	}

	Add value to a combo dynamically in JavaScript
	function ComboAddElement(ComboName, OptionValue)
	{
	oNewOption = new Option();
	oNewOption.text = OptionValue;
	ComboName.add(oNewOption, 1);
	}

	Retrieve Query String values in JavaScript
	function getFieldValue (strFieldName)
	{
	var strFieldValue;
	var objRegExp = new RegExp(strFieldName + "=([^&]+)","gi");
	if (objRegExp.test(location.search))
	strFieldValue = unescape(RegExp.$1);
	else strFieldValue="";
	return strFieldValue;
	}
	Download the JavaScript QueryString sample

	Block Right Click in JavaScript
	function BlockRightClick()
	{
	if (event.button == 2)
	{
	alert('This functionality is not supported!');
	}
	document.onmousedown = BlockRightClick
	}

	Using Command Objects with Input and Output parameters in VB
	...
	Dim adocomm As New ADODB.Command
	Dim adopara As New ADODB.Parameter
	adocomm.ActiveConnection = MyCon
	adocomm.CommandType = adCmdStoredProc
	adocomm.CommandText = "sp_erase_personalid"
	' Creating and appending the input parameter to the command object
	Set adopara = adocomm.CreateParameter("@Personal_id", adInteger, adParamInput)
	adopara.Value = "17"
	adocomm.Parameters.Append adopara
	' Creating and appending the ouput parameter to the command object
	Set adopara = adocomm.CreateParameter("@output_id", adInteger, adParamOutput)
	adocomm.Parameters.Append adopara
	' Executing the store procedure
	adocomm.Execute
	' Retreiving values from the output parameters
	MsgBox adocomm.Parameters("@output_id").Value
	...

	Using Command Objects with Input and Output parameters in ASP
	...
	Dim L_Ado_Conn ' ADODB.Connection Object
	Dim objCommand
	Dim iUserName
	Dim oAccessType
	'Creating the Connection and RecordSet Objects
	Set L_Ado_Conn = Server.CreateObject("ADODB.Connection")
	Set objCommand = CreateObject("ADODB.Command")
	'Opening the Database connection
	L_Ado_Conn.open Session("connection")
	Set objCommand.ActiveConnection = L_Ado_Conn
	objCommand.CommandType = adCmdStoredProc
	objCommand.CommandText = "sp_get_ValidUser"
	Set iUserName = objCommand.CreateParameter("User", adVarchar, adParamInput, 30)
	Set oAccessType = objCommand.CreateParameter("Access", adVarchar, adParamOutput, 10)
	objCommand.Parameters.Append iUserName
	objCommand.Parameters.Append oAccessType
	objCommand("User").Value = Session("CreatedBy")
	objCommand.Execute
	if isnull(objCommand.Parameters("Access").Value) = true then
	response.redirect("error.asp")
	else
	Session("UserType") = objCommand.Parameters("Access").Value
	End if
	...

	Create runtime Controls in VB
	Private Sub Form_Load()
	Load Timer1(1)
	End Sub

	Adding data to BLOB fields using ADO in VB
	...
	adorecs.Fields("blobfield").AppendChunk (Data)
	...

	Reading data from BLOB fields using ADO in VB
	...
	adorecs.Fields("blobfield").GetChunk (adorecs.Fields("blobfield").ActualSize)
	...

	Cloning a XML Node in VB
	...
	Dim L_XMLNode As IXMLDOMNode
	Dim L_CloneXMLNodeFrom As DOMDocument
	Set L_XMLNode = L_CloneXMLNodeFrom.cloneNode(True)
	...

	Creating an HTML from XML And XSL in VB
	...
	Dim L_XMLDoc As DOMDocument
	Dim L_XSLDoc As DOMDocument
	Dim L_HTMLDoc As DOMDocument
	L_HTMLDoc = L_XMLDoc.transformNode(L_XSLDoc)
	...

	Processing multiple checkboxes in ASP
	...
	Click to download sample code for processing multiple check boxes
	...