Michael Freidgeim - Professional Profile

public static bool Contains(IDataRecord row, string FieldName)<br />
    { <br />
        bool bRet=true;<br />
        try<br />
        {<br />
            row.GetOrdinal(FieldName);<br />
        }<br />
        catch //(Exception exc)<br />
        {<br />
            bRet=false;<br />
        }<br />
        return bRet;<br />
    }

public static string[] ToLower(string[] sArray)<br />
{<br />
    for(int i=0;i<sArray.Length;i++)<br />
    {<br />
        sArray[i]=sArray[i].ToLower();<br />
    }<br />
    return sArray;<br />
}

if(window.__smartNav!=null) //handle smartnavigation<br />
  { window.setTimeout(ComboBox_Init,20);<br />
  }<br />
  else <br />
  { window.attachEvent("onload", ComboBox_Init);<br />
  }

Dim objResponse As HttpWebResponse
Dim objRequest As HttpWebRequest = System.Net.HttpWebRequest.Create(url)
objResponse = objRequest.GetResponse()

Public Shared Function StreamToString(ByVal strm As Stream) As String
    If strm.CanSeek Then strm.Seek(0, SeekOrigin.Begin)
    Dim myReader As New StreamReader(strm)
    Dim sRet As String = myReader.ReadToEnd()
    Return sRet
End Function
Public Shared Function ResourceToString(ByVal ResName As String) As String
    ' Get the current assembly.
    Dim Asm As [Assembly] = [Assembly].GetExecutingAssembly()
    Return ResourceToString(ResName, Asm) 'call overload
End Function
Public Shared Function ResourceToString(ByVal ResName As String, ByVal Asm As [Assembly]) As String
    ' Resources are named using a fully qualified name.
    Dim sName As String = Asm.GetName().Name + "." + ResName
    Dim strm As Stream = Asm.GetManifestResourceStream(sName)
    ' Read the contents of the embedded file.
    If strm Is Nothing Then
        Throw New ApplicationException("Couldn't find embedded resource " & sName)
    End If
    Dim sRet As String = StreamToString(strm)
    Return sRet
End Function
Public Shared Function JScript(ByVal sScript As String)
    Return "<script language='javascript'>" & sScript & "<" & Chr(47) & "script>"
End Function

 'overloaded methods for WebControl and HtmlControl are required because common parent class Control doesn't have Attributes property
 Public Shared Sub DefaultButton(ByVal container As System.Web.UI.HtmlControls.HtmlControl, ByVal objDefaultButton As Control)
     container.Attributes.Add("onkeydown", "DefaultButton('" & objDefaultButton.ClientID & "',event);")
     container.Page.RegisterStartupScript("ForceDefaultToScript", DefaultButtonScript())
 End Sub
 Public Shared Sub DefaultButton(ByVal container As System.Web.UI.WebControls.WebControl, ByVal objDefaultButton As Control)
     container.Attributes.Add("onkeydown", "DefaultButton('" & objDefaultButton.ClientID & "',event);")
     container.Page.RegisterStartupScript("ForceDefaultToScript", DefaultButtonScript())
 End Sub
'call if container has defaultButton but child (eg textarea) doesn't need it.
 Public Shared Sub EscapeDefaultButton(ByRef ctrl As System.Web.UI.WebControls.WebControl)
     'See also DefaultButton
     ctrl.Attributes.Add("onkeydown", "NoDefaultButton(event);")
     ctrl.Page.RegisterStartupScript("ForceDefaultToScript", DefaultButtonScript())
 End Sub
 Private Shared Function DefaultButtonScript()
     'From http://dotnetjunkies.com/WebLog/darrell.norton/archive/2004/03/03/8374.aspx.
     Return JScript(ResourceToString("DefaultButton.js"))
 End Function

<!--
//Not sure that event.returnValue is applicable for Netscape
function DefaultButton(btnID, event){
 btn = findObj(btnID);
 if (document.all){
  if (event.keyCode == 13){
   event.returnValue=false;
   event.cancelBubble = true;
   btn.click();
  }
 }
 else if (document.getElementById){
  if (event.which == 13){
   event.returnValue=false;
   event.cancelBubble = true;
   btn.click();
   btn.focus();
  }
 }
 else if(document.layers){
  if(event.which == 13){
   event.returnValue=false;
   event.cancelBubble = true;
   btn.focus();
   btn.click();
  }
 }
}
//call if container has defaultButton but child (eg textarea) doesn't need it.
//Sets cancelBubble=TRUE, not tested for Netscape
function NoDefaultButton(event){
 if (document.all){
  if (event.keyCode == 13){
     event.cancelBubble = true;
  }
 }
 else if (document.getElementById){
  if (event.which == 13){
   event.cancelBubble = true;
  }
 }
 else if(document.layers){
  if(event.which == 13){
   event.cancelBubble = true;
  }
 }
}
function findObj(n, d) { 
	var p,i,x;  
	if(!d) 
		d=document; 
	if((p=n.indexOf("?"))>0 && parent.frames.length) {
		d=parent.frames[n.substring(p+1)].document; 
		n=n.substring(0,p);
	}
	if(!(x=d[n])&&d.all) 
		x=d.all[n]; 
	for (i=0;!x&&i<d.forms.length;i++) 
		x=d.forms[i][n];
	for(i=0;!x&&d.layers&&i<d.layers.length;i++) 
		x=findObj(n,d.layers[i].document);
	if(!x && d.getElementById) 
		x=d.getElementById(n); 
	return x;
}
// -->