Online DB Administration

<!-- b.func.asp             - copyright (c) 2001-2002 by Bj�rnar Henden http://www.bhenden.org/ -->
<script language=javascript runat=server>
function Out(s) {
	Response.Write(s);
}

function DebugOut(s) {
	Response.Write("<div style=\"background-color:#FFC0C0; border: 1px solid black; padding: 4px; margin:2px\">" + s + "</div>");
}

function GetFormValue(varname,vardef) {
	if(Request.Form(varname).Count==1)
		return Request.Form(varname).Item;
	else
		return vardef;
}

function PutFormValue(varname,varvalue) {
	Out("<input type=\"hidden\" name=\"" + varname + "\" value=\"" + varvalue + "\"/>\n");
}

function IsNull(v) {
	return ""+v == "null";
}

function GetAllowNullsEnum(i) {
	switch(i) {
	case adIndexNullsAllow:		return "Allow";
	case adIndexNullsDisallow:	return "Disallow";
	case adIndexNullsIgnore:	return "Ignore";
	case adIndexNullsIgnoreAny:	return "IgnoreAny";
	default: return ""+i;
	}
}

function GetKeyTypeEnum(i) {
	switch(i) {
	case adKeyPrimary:		return "Primary";
	case adKeyForeign:		return "Foreign";
	case adKeyUnique:		return "Unique";
	default: return ""+i;
	}
}

function GetRuleEnum(i) {
	switch(i) {
	case adRICascade:		return "Cascade";
	case adRINone:			return "None";
	case adRISetDefault:	return "SetDefault";
	case adRISetNull:		return "SetNull";
	default: return ""+i;
	}
}

function GetPropertyAttributesEnum(value) {
	var s = "";

	if(value & adPropNotSupported)	s += "NotSupported, ";
	if(value & adPropRequired)		s += "Required, ";
	if(value & adPropOptional)		s += "Optional, ";
	if(value & adPropRead)			s += "Read, ";
	if(value & adPropWrite)			s += "Write, ";

	if(s!="") s = s.slice(0,s.length-2);
	return s;
}

</script>

<script language=vbscript runat=server>
' I'll have to admit that VBScript is useful for something :)
function jsFormatDateTime(dato,fmt)
	'SetLocale(0)
	if IsNull(dato) then
		jsFormatDateTime = "&nbsp;"
	else
		jsFormatDateTime = FormatDateTime(CDate(dato),fmt)
	end if
end function
</script>