<!--***************Copy this code to your ASP page (Start)**************--> 
          <script language="VBScript">
Sub guestbook_FSCommand(ByVal command, ByVal args)
	call guestbook_DoFSCommand(command, args)	
end sub 
</script>
          <script language="JavaScript">
var moviename = "guestbook";

function echeck(str) 
{
	var at="@"
	var dot="."
	var lat=str.indexOf(at)
	var lstr=str.length
	var ldot=str.indexOf(dot)
	if (str.indexOf(at)==-1)
	{   alert("Invalid E-mail ID") 
	  return false
	}
	if (str.indexOf(at)==0 || str.indexOf(at)==lstr)
	{   alert("Invalid E-mail ID")  
	 return false
	}
	if (str.indexOf(dot)==-1)
	{alert("Invalid E-mail ID")    
	return false
	}
	if (str.indexOf(dot)<lat)
	{alert("Invalid E-mail ID")    
	return false
	} 
	if (str.indexOf(at,(lat+1))!=-1)
	{alert("Invalid E-mail ID")   
	 return false 
	}
	if (str.indexOf(" ")!=-1)
	{alert("Invalid E-mail ID")    
	return false
	} 
 	if (str.indexOf(dot)==(lat+1))
	{alert("Invalid E-mail ID")    
	return false
	} 
return true
}

function guestbook_DoFSCommand(command, args)
{ 
	if ( command == "alert" )
	{ 
		alert(args)
		return false
	}
	if ( command == "error" )
	{	var emailID=args
		if ((emailID==null)||(emailID==""))
		{alert("Please Enter your Email ID")
		return false
		}
		if (echeck(emailID)==true)
		{movieobject(moviename).Play();
		}
	}
	if ( command == "null" ){
		var strError="You have not entered your: "
		var c=0
		var name="n"
		var email="e"
		if (args.indexOf(name)!=-1){
			strError=strError + "Name"
			c=c+1
		}
		if (args.indexOf(email)!=-1){
			if (c!=0){
				strError=strError + " and "
			}
			strError=strError + "Email Address"
		}
		alert(strError)
		
	}
return true
}

function movieobject(moviename)
{
	if (navigator.appName.indexOf ("Microsoft") !=-1) 
	{
	return window[moviename]
	}

	else
	{
	return document[moviename]
	}
}
</script>
          <!--***************Copy this code to your ASP page (End)**************-->