Member Profile: Michael Freidgeim

        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		x=d.forms[i][n];
	for(i=0;!x&&d.layers&&i		x=findObj(n,d.layers[i].document);
	if(!x && d.getElementById) 
		x=d.getElementById(n); 
	return x;
}
// -->