// Sets a cookie
  function setCookie(name, value) {
    if (value != null && value != "") document.cookie=name + "=" + escape(value);    
  }

  // Gets a cookie
  function getCookie(sName) {
    var aCookie = document.cookie.split(";");
    for (var i=0; i < aCookie.length; i++) {
      var aCrumb = aCookie[i].split("=");
  	  if (sName == aCrumb[0]) return unescape(aCrumb[1]);
	}
	return null;
  }
 
  function setCookieProperties(sDomain, sPath, iNoOfDaysValid) {
    var sTemp="; ";
	if (sDomain != null && sDomain != "") sTemp += "domain=" + sDomain + "; "
	if (sPath != null && sPath != "") sTemp += "path=" + sPath + "; "	
    var today = new Date();
    var expiry = new Date(today.getTime() + iNoOfDaysValid * 86400000);
	sTemp += expiry.toGMTString() 
    return(sTemp);
  };
   
  function doBlend(sName, iType) {
	var sVState= ["visible","hidden"];
	document.images.item(sName).filters.item(0).Apply();
	document.images.item(sName).style.visibility=sVState[iType];
	document.images.item(sName).filters.item(0).Play();
  }	    
   
  // Untested
  function sGetInfos(sFriendly, iBusiness) {

  if (iBusiness) {  
    var sRequests= ["vCard.FirstName", "vCard.LastName", "vCard.Gender", "vCard.Business.Phone", 
                    "vCard.Company", "vCard.Business.StreetAddress", "vCard.Business.Zipcode",
                    "vCard.Business.City", "vCard.Business.Country", "vCard.Email"];
  } else {			
    var sRequests= ["vCard.FirstName", "vCard.LastName", "vCard.Gender", "vCard.Home.Phone", 
                    "vCard.Company", "vCard.Home.StreetAddress", "vCard.Home.Zipcode",
                    "vCard.Home.City", "vCard.Home.Country", "vCard.Email"];
  }
  var sResponses= new Array(sRequests.length);	// Antworten für Forms 
			
  for (var i=0; i<sRequests.length; i++) navigator.userProfile.addReadRequest(sRequests[i]);
  navigator.userProfile.doReadRequest(6, sFriendly); // Used for prod. info
  for (i=0;i<sRequests.length;i++) sResponses[i]= navigator.userProfile.getAttribute(sRequests[i]); 
  navigator.userProfile.clearRequest();

  
  switch (sResponses[2]) {   
    case "M": sResponses[2]= "Herr"; break;
    case "F": sResponses[2]= "Frau"; break;
    default : sResponses[2]=  "";	
  }; // end gender
  return sResponses;
  };

  function doGetAddress(iOption, objFormName) {
    var sR1= sGetInfos("Amber Computing",window.confirm("Geschäftsadresse eintragen?"));
	var sTemp= sR1[2] + " " + sR1[0] + " " + sR1[1];
	
	if (sR1[4].length>0) {sTemp = sTemp + " / " + sR1[4]}; 
	objFormName.aNAME.value= sTemp;
	objFormName.aSTRASSE.value= sR1[5];
	if (objFormName.aPLZ) {objFormName.aPLZ.value= sR1[6]};
	if (objFormName.aORT) {objFormName.aORT.value= sR1[7]};
	if (objFormName.aPLZORT) {objFormName.aPLZORT.value= sR1[6] + " " + sR1[7]};
	objFormName.aTELEFON.value= sR1[3];
	objFormName.aLAND.value= sR1[8];
	objFormName.email.value= sR1[9];
  };