function chkdate(dtval)
{
	var dtarr = dtval.split("/");
	if (dtarr.length != 3)
		return false;
		
	if (isNaN(dtarr[0]))
		return false;
	if ((dtarr[0] <= 0) || (dtarr[0] > 31))
		return false;
		
	if (isNaN(dtarr[1]))
		return false;
	if ((dtarr[1] <= 0) || (dtarr[1] > 12))
		return false;
		
	if (isNaN(dtarr[2]))
		return false;
	if ((dtarr[2] < 1900) || (dtarr[2] > 9999))
		return false;
		
	return true;
}

function fgetstate(f)
{
	var concode = f.country.value;
	if (concode == '')
		return;
		
	var xmldoc = new ActiveXObject("Microsoft.XMLDOM");
	xmldoc.async = false;
	xmldoc.load("etgetstatelist.asp?concode=" + concode);
					
	while (xmldoc.readyState != 4)
	{
	}
	var rs = xmldoc.getElementsByTagName("state_row");

	for(k=(f.state.options.length-1);k>=1;k--)	f.state.options.remove(k);
	
	for(i=0;i<=rs.length-1;i++)
	{
		var oOption =document.createElement("OPTION");
		f.state.options.add(oOption);
		oOption.value = rs.item(i).childNodes.item(0).text;
		oOption.innerText  = rs.item(i).childNodes.item(1).text;
	}	
}

function fgetcity(f)
{
	var concode = f.country.value;
	var stcode  = f.state.value;
	if ((concode == '') || (stcode == ''))
		return;

	var xmldoc = new ActiveXObject("Microsoft.XMLDOM");	
	xmldoc.async = false;
	xmldoc.load("etgetcitylist.asp?concode=" + concode + "&stcode=" + stcode);
					
	while (xmldoc.readyState != 4)
	{
	}
	var rs = xmldoc.getElementsByTagName("city_row");

	for(k=(f.city.options.length-1);k>=1;k--)	f.city.options.remove(k);
	
	for(i=0;i<=rs.length-1;i++)
	{
		var oOption =document.createElement("OPTION");
		f.city.options.add(oOption);
		oOption.value = rs.item(i).childNodes.item(0).text;
		oOption.innerText  = rs.item(i).childNodes.item(1).text;
	}	
}

function fgetaffl1(f, col1obj, col2obj, col3obj, col4obj, col5obj, col6obj, col7obj)
{
	var coun = col1obj.value;
	if (coun == '')
		return;

	var xmldoc = new ActiveXObject("Microsoft.XMLDOM");	
	xmldoc.async = false;
	xmldoc.load("etgetaffllist.asp?coun=" + coun);
					
	while (xmldoc.readyState != 4)
	{
	}
	var rs = xmldoc.getElementsByTagName("affl_row");

	for(k=(col2obj.options.length-1);k>=1;k--)	col2obj.options.remove(k);
	if (col3obj)
		for(k=(col3obj.options.length-1);k>=1;k--)	col3obj.options.remove(k);
	if (col4obj)
		for(k=(col4obj.options.length-1);k>=1;k--)	col4obj.options.remove(k);
	if (col5obj)
		for(k=(col5obj.options.length-1);k>=1;k--)	col5obj.options.remove(k);
	if (col6obj)
		for(k=(col6obj.options.length-1);k>=1;k--)	col6obj.options.remove(k);
	if (col7obj)
		for(k=(col7obj.options.length-1);k>=1;k--)	col7obj.options.remove(k);
	
	for(i=0;i<=rs.length-1;i++)
	{
		var oOption =document.createElement("OPTION");
		col2obj.options.add(oOption);
		oOption.value = rs.item(i).childNodes.item(0).text;
		oOption.innerText  = rs.item(i).childNodes.item(1).text;

		if (col3obj)
		{
			col3obj.options.add(oOption);
			oOption.value = rs.item(i).childNodes.item(0).text;
			oOption.innerText  = rs.item(i).childNodes.item(1).text;
		}
		if (col4obj)
		{
			col4obj.options.add(oOption);
			oOption.value = rs.item(i).childNodes.item(0).text;
			oOption.innerText  = rs.item(i).childNodes.item(1).text;
		}
		if (col5obj)
		{
			col5obj.options.add(oOption);
			oOption.value = rs.item(i).childNodes.item(0).text;
			oOption.innerText  = rs.item(i).childNodes.item(1).text;
		}
		if (col6obj)
		{
			col6obj.options.add(oOption);
			oOption.value = rs.item(i).childNodes.item(0).text;
			oOption.innerText  = rs.item(i).childNodes.item(1).text;
		}
		if (col7obj)
		{
			col7obj.options.add(oOption);
			oOption.value = rs.item(i).childNodes.item(0).text;
			oOption.innerText  = rs.item(i).childNodes.item(1).text;
		}
	}	
}

function fgetaffl(f, col1obj, col2obj)
{
	var coun = col1obj.value;
	if (coun == '')
		return;

	var xmldoc = new ActiveXObject("Microsoft.XMLDOM");	
	xmldoc.async = false;
	xmldoc.load("etgetaffllist.asp?coun=" + coun);
					
	while (xmldoc.readyState != 4)
	{
	}
	var rs = xmldoc.getElementsByTagName("affl_row");

	for(k=(col2obj.options.length-1);k>=1;k--)	col2obj.options.remove(k);
	
	for(i=0;i<=rs.length-1;i++)
	{
		var oOption =document.createElement("OPTION");
		col2obj.options.add(oOption);
		oOption.value = rs.item(i).childNodes.item(0).text;
		oOption.innerText  = rs.item(i).childNodes.item(1).text;
	}	
}

function fgetcourse(f, col1obj, col2obj)
{
	var affil = col1obj.value;
	if (affil == '')
		return;

	var xmldoc = new ActiveXObject("Microsoft.XMLDOM");	
	xmldoc.async = false;
	xmldoc.load("etgetcourlist.asp?affil=" + affil);
					
	while (xmldoc.readyState != 4)
	{
	}
	var rs = xmldoc.getElementsByTagName("cour_row");

	for(k=(col2obj.options.length-1);k>=1;k--)	col2obj.options.remove(k);
	
	for(i=0;i<=rs.length-1;i++)
	{
		var oOption =document.createElement("OPTION");
		col2obj.options.add(oOption);
		oOption.value = rs.item(i).childNodes.item(0).text;
		oOption.innerText  = rs.item(i).childNodes.item(1).text;
	}	
}

function fgetsubject(f, col1obj, col2obj)
{
	var cour = col1obj.value;
	if (cour == '')
		return;

	var xmldoc = new ActiveXObject("Microsoft.XMLDOM");	
	xmldoc.async = false;
	xmldoc.load("etgetsublist.asp?cour=" + cour);
					
	while (xmldoc.readyState != 4)
	{
	}
	var rs = xmldoc.getElementsByTagName("sub_row");

	for(k=(col2obj.options.length-1);k>=1;k--)	col2obj.options.remove(k);
	
	for(i=0;i<=rs.length-1;i++)
	{
		var oOption =document.createElement("OPTION");
		col2obj.options.add(oOption);
		oOption.value = rs.item(i).childNodes.item(0).text;
		oOption.innerText  = rs.item(i).childNodes.item(1).text;
	}	
}

function fgettopic(f, col1obj, col2obj)
{
	var subj = col1obj.value;
	if (subj == '')
		return;

	var xmldoc = new ActiveXObject("Microsoft.XMLDOM");	
	xmldoc.async = false;
	xmldoc.load("etgettopiclist.asp?subj=" + subj);
					
	while (xmldoc.readyState != 4)
	{
	}
	var rs = xmldoc.getElementsByTagName("topic_row");

	for(k=(col2obj.options.length-1);k>=1;k--)	col2obj.options.remove(k);
	
	for(i=0;i<=rs.length-1;i++)
	{
		var oOption =document.createElement("OPTION");
		col2obj.options.add(oOption);
		oOption.value = rs.item(i).childNodes.item(0).text;
		oOption.innerText  = rs.item(i).childNodes.item(1).text;
	}	
}

function fgetsubtoprate(f, col1obj, col2obj, col3obj, col4obj, col5obj, col6obj, onetoonechk)
{
	/*var flg = f.enrsel.value;
	var affl = col1obj.value;
	var cour = col2obj.value;
	var subj = col3obj.value;
	var top = col4obj.value;
	
	var xmldoc = new ActiveXObject("Microsoft.XMLDOM");	
	xmldoc.async = false;
	xmldoc.load("etgettopicrate.asp?flag=" + flg + "&afflkey=" + affl + "&courkey=" + cour + "&subjkey=" + subj + "&topkey=" + top);
					
	while (xmldoc.readyState != 4)
	{
	}
	var rs = xmldoc.getElementsByTagName("rate_row");

	if (rs.length > 0)
	{
		col5obj.value = rs.item(i).childNodes.item(1).text;
		if (onetoonechk.checked == true)
			col5obj.value = parseInt(col5obj.value) * 1.5;
		col6obj.value = rs.item(i).childNodes.item(0).text;
	}
	
	var p1, p2, p3, p4, p5;
	if (f.payfees1.value == '')
		p1 = 0;
	else
		p1 = parseInt(f.payfees1.value);
		
	if (f.payfees2.value == '')
		p2 = 0;
	else
		p2 = parseInt(f.payfees2.value);
		
	if (f.payfees3.value == '')
		p3 = 0;
	else
		p3 = parseInt(f.payfees3.value);
		
	if (f.payfees4.value == '')
		p4 = 0;
	else
		p4 = parseInt(f.payfees4.value);
		
	if (f.payfees5.value == '')
		p5 = 0;
	else
		p5 = parseInt(f.payfees5.value);
	
	f.totfees.value = p1 + p2 + p3 + p4 + p5;
	*/
}

function emailval(em)
{
	var email = trim(em.value);
	if (email.length > 0) 
	{
	// To check the presence of @ and .
		if ((email.indexOf("@") < 0) || (email.indexOf(".") < 0))
			{
				alert ("Invalid email format")
				em.focus();
				return false;
			} 

	// To check the presence of spl chars, space, .. and so on
		var val;
		val=trim(em.value) ;
		if ((val.indexOf("..") >= 0) || (val.indexOf("'") >= 0) || (val.indexOf("\"") >= 0)||(val.indexOf(",") >= 0) || (val.indexOf("<") >= 0) || (val.indexOf(">") >= 0  || (val.indexOf(" ") >= 0)))
			{
				alert ("Invalid email format")
				em.focus();
				return false;
			}

	// To check the presence of . as last char
		if (val.substring(val.length-1,val.length) == ".")
			{
				alert ("Invalid email format")
				em.focus();
				return false;
			} 

	// To check the presence of @ twice or . not exist
		val1 = val.substring(val.indexOf("@")+1, val.length);
		if ((val1.indexOf("@") >= 0) || (val1.indexOf(".") < 0))
			{
				alert ("Invalid email format")
				em.focus();
				return false;
			} 
			

	// To check the presence of only numbers
		val1 = val.split("@");
		if (( !isNaN(val1[0]) )  || ( !isNaN(val1[1]) ) )
			{
				alert ("Invalid email format")
				em.focus();
				return false;
			}

	// To check the total length ( >1 or <=3) of text after final .
		val1 = val.split(".");
		var pos = val1.length-1;
		if ((val1[pos].length <2) || (val1[pos].length >3))
			{
				alert ("Invalid email format")
				em.focus();
				return false;
			}
	return true;
	}
}

function ltrim(argvalue)
{
  while (1)
  {
    if (argvalue.substring(0, 1) != " ")
      break;
    argvalue = argvalue.substring(1, argvalue.length);
  }
  return argvalue;
}

function rtrim(argvalue)
{
  while (1)
  {
    if (argvalue.substring(argvalue.length - 1, argvalue.length) != " ")
    break;
    argvalue = argvalue.substring(0, argvalue.length - 1);
  }
  return argvalue;
}

function trim(argvalue)
{
  var argvalue = ltrim(argvalue);
  return rtrim(argvalue);
}