CodeKeep ASP.NET Feed

Upload Control

Thu, 18 Oct 2012 14:36:32 GMT

Description: Upload Control allows changing BROWSE... text and other customization.

Link: http://www.codekeep.net/snippets/24070dd7-2c4d-4388-aa40-57d4639a0108.aspx

/* THE CONTROL */
<%@ Control Language="VB" AutoEventWireup="false" CodeFile="GTfileUpload.ascx.vb" Inherits="Controls_GTfileUpload" %>
<asp:TextBox ID="txtFile" runat="server"/>
<asp:Button ID="btn" runat="server" Text="Browse" onclientclick="javascript:browseFile()" />
<asp:FileUpload ID="fudFile" Style="display:none" runat="server" />

/* THE CONTROL - CODE BEHIND */
Imports System.Data
Imports System.IO
Imports Dictionary ' This is a CUSTOM CLASS we have for converting words to other languages.
Partial Class Controls_GTfileUpload
    Inherits System.Web.UI.UserControl
' Code compiled and arranged by David Speight.
    ' Store property values.
    Private _enabled As Boolean
    Private _Language As String
    Private _ControlPrefix As String = "GTfileUpload$"
    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        ' Use this control along with the function PostFile located in App_Code\Common\File.vb
        If (Page.IsStartupScriptRegistered("onLoad") = False) Then
            ' Be sure to SET the ControlPrefix value for this to work. VIEW SOURCE on the page you are loading to get the actual value .NET is using.
            Me.Page.RegisterStartupScript("onLoad", "<script language='javascript'>function browseFile() {document.getElementById('" & _ControlPrefix & "fudFile').click();}function setFile() {document.getElementById('" & _ControlPrefix & "txtFile').value = document.getElementById('" & _ControlPrefix & "fudFile').value;};</script>")
            ' Add the OnChange event to the hidden FileUpload control.
            fudFile.Attributes.Add("onchange", (_ControlPrefix & "txtFile.value = this.value;"))
        End If
    End Sub
#Region "Properties for: Controls"
    Public Property PostedFile() As String
        Get
            Return txtFile.Text.Trim()
        End Get
        Set(value As String)
            txtFile.Text = value
        End Set
    End Property
#End Region
#Region "Properties for Enabled & Visible"
    Public Property Enabled() As Boolean
        Get
            Return (_enabled)
        End Get
        Set(ByVal value As Boolean)
            _enabled = value
            txtFile.Enabled = value
            btn.Enabled = value
        End Set
    End Property
    Public Property ControlPrefix() As String
        Get
            Return (_ControlPrefix)
        End Get
        Set(ByVal value As String)
            _ControlPrefix = value
        End Set
    End Property
#End Region
#Region "Properties for Layout"
    Public Sub WidthSet(ByVal Width As Integer)
        txtFile.Width = Width
    End Sub
    Public Sub SetColorText(ByVal Color As Drawing.Color)
        txtFile.ForeColor = Color
    End Sub
    Public Sub SetColorBackground(ByVal Color As Drawing.Color)
        txtFile.BackColor = Color
    End Sub
    Public Sub SetColorButton(ByVal Color As Drawing.Color)
        btn.BackColor = Color
    End Sub
#End Region
#Region "Actons and Formatting"
    Public Sub LanguageSet(ByVal Language As String)
        Dim objDictionary As New Dictionary
        btn.Text = objDictionary.WordPhraseConvert(btn.Text, Language) & " ..."
    End Sub
#End Region
End Class

/* CUSTOM CLASS FILES TO BE USED WITH CONTROL */

Imports Microsoft.VisualBasic
Imports System
Imports System.IO
Imports System.IO.File
Imports System.Data
Imports System.Data.SqlClient

Public Class Files
 Public Function PostFile(ByVal TargetFileName As String, ByVal TargetPath As String, ByVal SourceFileName As String, ByVal SourcePath As String) As Boolean
        ' Add file Name to path, for instances where file+path may have been split up.
        SourcePath += SourceFileName
        TargetPath += TargetFileName
        If Not TargetFileName.Contains(".") Then
            ' Get File Extension.
            Dim ExtensionIndex As Integer = SourcePath.LastIndexOf(".")
            Dim FileExtension As String = ""
            Try
                FileExtension = Right(SourcePath, ExtensionIndex)
            Catch ex As Exception
                ' Do Nothing.
            End Try
            TargetPath += FileExtension
        End If
        ' Copy file.
        If File.Exists(SourcePath) Then
            File.Copy(SourcePath, TargetPath, True)
        End If
        ' Verifiy file copied.
        If File.Exists(TargetPath) Then
            ' Change modified date to current.
            Dim dtModified As DateTime
            dtModified = (Today & " " & TimeOfDay)
            File.SetLastWriteTime(TargetPath, dtModified)
            Return True
        Else
            Return False
        End If
    End Function
End Class




/* TEST PAGE USING CONTROL */

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="test.aspx.vb" Inherits="test" %>
<%@ Register src="~/Controls/GTfileUpload.ascx" tagname="GTfileUpload" tagprefix="gt4" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title></title>    
</head>
<body>
    <form id="form1" runat="server">

       <gt4:GTfileUpload ID="GTfileUpload1" runat="server" ValidationGroup="A" />&nbsp;
       <asp:Button ID="btnSave" runat="server" Text="Upload" />
       <br />
    <asp:Label ID="lblFileName" runat="server" Text="Not Clicked Yet"></asp:Label>
    </form>
</body>
</html>

/* TEST PAGE USING CONTROL - CODE BEHIND */

Imports Microsoft.VisualBasic
Imports System.Data
Imports Files

Partial Class test
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            GTfileUpload1.LanguageSet("de")
        End If
    End Sub
    Protected Sub btnSave_Click(sender As Object, e As System.EventArgs) Handles btnSave.Click
        Dim objFiles As New Files
        If (GTfileUpload1.PostedFile.Length > 0) Then
            lblFileName.Text = objFiles.PostFile("DaveTest", "D:\Test\", "", GTfileUpload1.PostedFile)
        End If
    End Sub
End Class

Run Batch file from .net

Mon, 08 Oct 2012 04:11:32 GMT

Description: Run Any Batchfile from .net code

Link: http://www.codekeep.net/snippets/016a9032-8201-41de-87a3-9f404e92b520.aspx

        Process p = new Process();
        p.StartInfo.FileName = Server.MapPath(" file Path ") + "filename.bat";
        p.StartInfo.WorkingDirectory = Path.GetDirectoryName(Server.MapPath(" File Path "));
        p.StartInfo.UseShellExecute = false;

        // Run the process and wait for it to complete
        p.Start();
        p.WaitForExit();

How to validate field inside a gridview and show errors in message box.

Mon, 20 Aug 2012 18:12:15 GMT

Description: hi i have gridview ,i want to validate all the field inside gridview my grid view as

Link: http://www.codekeep.net/snippets/28a3eae5-2c34-4edd-b7d8-81ba21fdb1ec.aspx

  <asp:GridView ID="GridView1" runat="server" AllowPaging="True" AutoGenerateColumns="False"
                                                                                  CssClass="GridStyle"
                                                                                    DataKeyNames="ID" DataSourceID="SqlDataSource1" Font-Names="Tahoma" Font-Size="11px"
                                                                                    HeaderStyle-CssClass="HeaderStyle" HorizontalAlign="Left" OnDataBound="gvApplication_DataBound"
                                                                                    OnPageIndexChanging="gvApplication_PageIndexChanging" OnRowCancelingEdit="gvApplication_RowCancelingEdit"
                                                                                    OnRowCommand="gvApplication_RowCommand" OnRowCreated="gvApplication_RowCreated"
                                                                                    OnRowDataBound="gvApplication_RowDataBound" OnRowDeleted="gvApplication_RowDeleted"
                                                                                    OnRowEditing="gvApplication_RowEditing" OnRowUpdated="gvApplication_RowUpdated"
                                                                                    OnRowUpdating="gvApplication_RowUpdating" Width="100%">
                                                                                    <%--<RowStyle BorderColor="Silver" BorderStyle="Solid" BorderWidth="1px" ForeColor="Blue"
                                                            Wrap="True" />--%>
                                                                                    <Columns>
                                                                                     
                                                                                             <asp:CommandField 
                       ShowEditButton="True" CausesValidation="true" ValidationGroup="ValGrpEdit"></asp:CommandField>
                                                                                             
                                                                                      
                                                                                        <asp:TemplateField ShowHeader="False">
                                                                                            <ItemTemplate>
                                                                                                <asp:LinkButton ID="lnkDelete" runat="server" CausesValidation="False" 
                                                                                                    CommandName="Delete" Text="Delete"></asp:LinkButton>
                                                                                            </ItemTemplate>
                                                                                        </asp:TemplateField>
                                                                                
                                                                                        <asp:TemplateField HeaderText="Name" SortExpression="Name">
                                                                                            <EditItemTemplate>
                                                                                                <asp:TextBox ID="Name1" runat="server" CssClass="text" Text='<%# Bind("Name") %>'
                                                                                                    ValidationGroup="ValGrpEdit"></asp:TextBox>
                                                                                                <asp:RequiredFieldValidator ID="RequiredName" runat="server" ControlToValidate="Name1"
                                                                                                    ErrorMessage="Please enter a valid Name."  EnableClientScript="true" ValidationGroup="ValGrpEdit" Width="16px">*</asp:RequiredFieldValidator>
                                                                                            </EditItemTemplate>
                                                                                            <ItemTemplate>
                                                                                                <asp:Label ID="Name2" runat="server" Text='<%# Bind("Name") %>'></asp:Label>
                                                                                            </ItemTemplate>
                                                                                            <ItemStyle ForeColor="Black" Width="15%" />
                                                                                            <ControlStyle />
                                                                                        </asp:TemplateField>
                                                                          
                                                                                        <asp:TemplateField HeaderText="Support Owner ID" SortExpression="SupportOwnerIDSort">
                                                                                            <ItemTemplate>
                                                                                                <div style="text-align: left; margin-removed 5px; margin-removed 5px;">
                                                                                                    <asp:Label ID="SupportOwnerID2" runat="server" Text='<%# Bind("SupportOwnerID") %>'></asp:Label>
                                                                                                </div>
                                                                                            </ItemTemplate>
                                                                                            <EditItemTemplate>
                                                                                                <asp:TextBox ID="SupportOwnerID1"  ValidationGroup="ValGrpEdit" runat="server" CssClass="text" Text='<%# Bind("SupportOwnerID") %>'></asp:TextBox>
                                                                                                <asp:RequiredFieldValidator ID="ReqSupportOwnerID1" runat="server" ControlToValidate="SupportOwnerID1"
                                                                                                    ErrorMessage="Please enter the ID of the Application Support owner." ValidationGroup="ValGrpEdit"
                                                                                                    Width="16px">*</asp:RequiredFieldValidator>
                                                                                            </EditItemTemplate>
                                                                                            <ItemStyle Width="150px" />
                                                                                        </asp:TemplateField>
                                                                            
                                                                                   
                                                                                        <asp:TemplateField HeaderText="Path" SortExpression="Path">
                                                                                            <EditItemTemplate>
                                                                                                <asp:TextBox ID="Path1"  ValidationGroup="ValGrpEdit" runat="server" CssClass="text" Height="76px" Text='<%# Bind("Path") %>'
                                                                                                    TextMode="MultiLine"></asp:TextBox>
                                                                                                <asp:CustomValidator ID="txtApplicationPathV" ValidationGroup="ValGrpEdit" runat="server"
                                                                                                    ErrorMessage="Please fill in a path either in URL / Path or URL / Path" ClientValidationFunction="ValidateEdit"
                                                                                                    ControlToValidate="Path1" ValidateEmptyText="true">*</asp:CustomValidator>
                                                                                            </EditItemTemplate>
                                                                                            <ItemTemplate>
                                                                                                <asp:Label ID="Path2" runat="server" CssClass="DisplayDesc" Text='<%# Bind("Path") %>'
                                                                                                    Visible="false"></asp:Label>
                                                                                                <asp:LinkButton ID="lnkpath" runat="server" CausesValidation="false" CssClass="datalink"
                                                                                                    PostBackUrl="#" Text='<%# Bind("Path") %>'></asp:LinkButton>
                                                                                                <asp:Panel ID="Panel3" runat="server" CssClass="wrapText">
                                                                                                    <cc1:HoverMenuExtender ID="hvrPath"  runat="server" PopupControlID="pnlPath" PopupPosition="Left"
                                                                                                        TargetControlID="lnkpath">
                                                                                                    </cc1:HoverMenuExtender>
                                                                                                    <asp:Panel ID="pnlPath" runat="server" CssClass="balloonstyle" Style="display: none"
                                                                                                        Width="200px">
                                                                                                        <div>
                                                                                                            <table cellpadding="0" cellspacing="2" width="200px">
                                                                                                                <tr>
                                                                                                                    <td class="LableText">
                                                                                                                        <%# Eval("Path")%>
                                                                                                                    </td>
                                                                                                                </tr>
                                                                                                            </table>
                                                                                                        </div>
                                                                                                    </asp:Panel>
                                                                                                </asp:Panel>
                                                                                            </ItemTemplate>
                                                                                            <ItemStyle ForeColor="Black" />
                                                                                            <ControlStyle />
                                                                                        </asp:TemplateField>
                                                                                      
                                                                          
                                                                                        <asp:TemplateField HeaderText="Category" SortExpression="Category">
                                                                                            <EditItemTemplate>
                                                                                                <asp:DropDownList ID="ddlCategoryList"  ValidationGroup="ValGrpEdit" runat="server" AutoPostBack="True" CssClass="text">
                                                                                                </asp:DropDownList>
                                                                                                <asp:RequiredFieldValidator ID="RequiredCategory" runat="server" ControlToValidate="ddlCategoryList"
                                                                                                    ErrorMessage="Please select a valid Category." ValidationGroup="ValGrpEdit" InitialValue="-- Select Category --">*</asp:RequiredFieldValidator>
                                                                                            </EditItemTemplate>
                                                                                            <ItemTemplate>
                                                                                                <asp:Label ID="Category2" runat="server" Text='<%# Bind("Category") %>'></asp:Label>
                                                                                            </ItemTemplate>
                                                                                            <ItemStyle ForeColor="Black" Width="10%" />
                                                                                            <ControlStyle />
                                                                                        </asp:TemplateField>
                                                                            
                                                                                    </Columns>
                                                                                 
                                                                                </asp:GridView>

my validation summary as

 
 <tr>
                                            <td colspan="4"> 
                                              <div> <asp:ValidationSummary ID="ValSumEdit" runat="server" Font-Bold="False" Font-Names="Verdana" ShowMessageBox="true" DisplayMode="List" ShowSummary="false" 
                                                    Font-Size="10px" HeaderText="Error Message(s):" ValidationGroup="ValGrpEdit" Style="margin-bottom: 23px" EnableClientScript="true"   /> </div> 
                                             </td>
                                            </tr>

Enable Cross domain scripting in web config

Sun, 15 Jul 2012 07:09:08 GMT

Description: This snippet will enable cross site scripting in your asp.net application. Just put the snippet in the web.config file. If you want to allow specific sites only just replace the star with the web site address.

Link: http://www.codekeep.net/snippets/a94f8bb5-34a2-4c22-8859-e7508a42266d.aspx

 <system.webServer>
    <modules runAllManagedModulesForAllRequests="true" />
        <httpProtocol>
            <customHeaders>
                <add name="Access-Control-Allow-Origin" value="*" />
            </customHeaders>
        </httpProtocol>
  </system.webServer>

MVC Ajax Post ActionLink

Tue, 19 Jun 2012 00:50:37 GMT

Description: Call an actionresult in Async using Ajax.Action then return a json data, then create a JS method that consumes the Json and display it.

Link: http://www.codekeep.net/snippets/f81b47c0-d6fa-4659-b8e0-15c1fdfe9dc3.aspx

Razor Part
@Ajax.ActionLink("View", -> This is the name that displays on the link
                 "Index",-> This is the Action Name
                 new { ValId = item.MPID },-> This is the routeArgument/parameter
                 new AjaxOptions { HttpMethod = "POST", 
                                   OnSuccess = "displayContent" })

----->this actionlink is use to call the actionresult in the controller

Csharp / Controller Part
public ActionResult Index(string ValId)
    List<object> mpcList = new List<object>();
    //do something like populate the list
return Json(mpcList, JsonRequestBehavior.AllowGet);

-----> After calling the Actionresult it returns a json data, 
       after the whole actionresult is finish, 
       an event is triggered "OnSuccess" to call a method to consume
       the json data and display it.

Javascript Part
<script type="text/javascript">
    function displayContent(obj) {
            //obj -> is the returned json format data
            //this example is a table/list structured data
            for (var i = 0; i < obj.length; i++) {
                //do something
            }
        }

        $('#ajaxresult').replaceWith($tbl);
    }
</script>

MVC3 Custom Membership Provider

Tue, 22 May 2012 07:33:23 GMT

Description: Overrides the default ASP.NET membership provider in a MVC3 Web App

Link: http://www.codekeep.net/snippets/918207f9-9011-4af8-a59d-486548c07cfe.aspx

using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.Security;

namespace CustomProvider.Infrastructure {
    public class CustomMembershipProvider : MembershipProvider {

        private string _applicationName;
        private bool _enablePasswordReset;
        private bool _enablePasswordRetrieval;
        private bool _requiresQuestionAndAnswer;
        private bool _requiresUniqueEmail;
        private int _maxInvalidPasswordAttempts;
        private int _passwordAttemptWindow;
        private int _minRequiredPasswordLength;
        private int _minRequiredNonalphanumericCharacters;
        private string _passwordStrengthRegularExpression;
        private MembershipPasswordFormat _passwordFormat;


        private string GetConfigValue(string configValue, string defaultValue) {
            if ( String.IsNullOrEmpty( configValue ) ) {
                return defaultValue;
            }

            return configValue;
        }


        public override void Initialize( string name, System.Collections.Specialized.NameValueCollection config ) {

            if ( config == null ) {
                throw new ArgumentException( "config" );
            }

            if ( String.IsNullOrEmpty( name ) ) {
                name = "CustomMembershipProvider";
            }

            if ( String.IsNullOrEmpty( config [ "description" ] ) ) {
                config.Remove( "description" );
                config.Add( "description", "CustomMembershipProvider" );
            }

            base.Initialize( name, config );

            _applicationName = GetConfigValue( config [ "applicationName" ], System.Web.Hosting.HostingEnvironment.ApplicationVirtualPath );
            _enablePasswordReset = Convert.ToBoolean(GetConfigValue( config [ "enablePasswordReset" ], "true"));
            _enablePasswordRetrieval = false;
            _requiresQuestionAndAnswer = false;
            _requiresUniqueEmail = true;
            _maxInvalidPasswordAttempts = Convert.ToInt32(GetConfigValue( config [ "maxInvalidPasswordAttempts" ], "5"));
            _passwordAttemptWindow = Convert.ToInt32(GetConfigValue( config [ "passwordAttemptWindow" ], "10"));
            _minRequiredPasswordLength = Convert.ToInt32(GetConfigValue( config [ "minRequiredPasswordLength" ], "6"));
            _minRequiredNonalphanumericCharacters = Convert.ToInt32(GetConfigValue( config [ "minRequiredNonalphanumericCharacters" ], "1"));
            _passwordStrengthRegularExpression = GetConfigValue( config [ "passwordStrengthRegularExpression" ], "" );
            _passwordFormat = MembershipPasswordFormat.Hashed;
        }


        public override string ApplicationName {
            get {
                throw new NotImplementedException( );
            }
            set {
                throw new NotImplementedException( );
            }
        }

        public override bool ChangePassword( string username, string oldPassword, string newPassword ) {
            throw new NotImplementedException( );
        }

        public override bool ChangePasswordQuestionAndAnswer( string username, string password, string newPasswordQuestion, string newPasswordAnswer ) {
            throw new NotImplementedException( );
        }

        public override MembershipUser CreateUser( string username, string password, string email, string passwordQuestion, string passwordAnswer, bool isApproved, object providerUserKey, out MembershipCreateStatus status ) {
            throw new NotImplementedException( );
        }

        public override bool DeleteUser( string username, bool deleteAllRelatedData ) {
            throw new NotImplementedException( );
        }

        public override bool EnablePasswordReset {
            get { throw new NotImplementedException( ); }
        }

        public override bool EnablePasswordRetrieval {
            get { throw new NotImplementedException( ); }
        }

        public override MembershipUserCollection FindUsersByEmail( string emailToMatch, int pageIndex, int pageSize, out int totalRecords ) {
            throw new NotImplementedException( );
        }

        public override MembershipUserCollection FindUsersByName( string usernameToMatch, int pageIndex, int pageSize, out int totalRecords ) {
            throw new NotImplementedException( );
        }

        public override MembershipUserCollection GetAllUsers( int pageIndex, int pageSize, out int totalRecords ) {
            throw new NotImplementedException( );
        }

        public override int GetNumberOfUsersOnline( ) {
            throw new NotImplementedException( );
        }

        public override string GetPassword( string username, string answer ) {
            throw new NotImplementedException( );
        }

        public override MembershipUser GetUser( string username, bool userIsOnline ) {
            throw new NotImplementedException( );
        }

        public override MembershipUser GetUser( object providerUserKey, bool userIsOnline ) {
            throw new NotImplementedException( );
        }

        public override string GetUserNameByEmail( string email ) {
            throw new NotImplementedException( );
        }

        public override int MaxInvalidPasswordAttempts {
            get { throw new NotImplementedException( ); }
        }

        public override int MinRequiredNonAlphanumericCharacters {
            get { throw new NotImplementedException( ); }
        }

        public override int MinRequiredPasswordLength {
            get { throw new NotImplementedException( ); }
        }

        public override int PasswordAttemptWindow {
            get { throw new NotImplementedException( ); }
        }

        public override MembershipPasswordFormat PasswordFormat {
            get { throw new NotImplementedException( ); }
        }

        public override string PasswordStrengthRegularExpression {
            get { throw new NotImplementedException( ); }
        }

        public override bool RequiresQuestionAndAnswer {
            get { throw new NotImplementedException( ); }
        }

        public override bool RequiresUniqueEmail {
            get { throw new NotImplementedException( ); }
        }

        public override string ResetPassword( string username, string answer ) {
            throw new NotImplementedException( );
        }

        public override bool UnlockUser( string userName ) {
            throw new NotImplementedException( );
        }

        public override void UpdateUser( MembershipUser user ) {
            throw new NotImplementedException( );
        }

        public override bool ValidateUser( string username, string password ) {
            return true;
        }
    }
}

Repeater Dropdownlist SelectedIndexChanged Firing

Mon, 27 Feb 2012 13:08:24 GMT

Description: Repeater Dropdownlist SelectedIndexChanged Firing shows how to execute an action on a dropdownlist postback within a repeater.

Link: http://www.codekeep.net/snippets/8cf2732a-a605-4100-8bdf-979d7026b6a3.aspx

<asp:Repeater ID="rptrVendors" runat="server">
            <ItemTemplate>
                <tr><td class="RequiredSubHead" align="right">
                    <asp:Label ID="lblServiceName" runat="server" Text='<%#Eval("ServiceName")%>' />
                    <asp:Literal ID="litServiceID" runat="server" Text='<%#Eval("ServiceID")%>' Visible="false" />
                </td><td style="width: 5px">&nbsp;</td>
                <td style="white-space: nowrap" colspan="2">
                     <asp:DropDownList ID="ddlVendorID" runat="server" Visible="True" ValidationGroup="Vendor" Width="250px" AutoPostBack="True">
                    </asp:DropDownList>
                </td></tr>
            </ItemTemplate>
        </asp:Repeater>

Protected Sub rptrVendors_ItemCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.RepeaterItemEventArgs) Handles rptrVendors.ItemCreated
        If Not e.Item.ItemType = ListItemType.Item And Not e.Item.ItemType = ListItemType.AlternatingItem Then
            Exit Sub
        End If
        Dim litServiceID As Literal = CType(e.Item.FindControl("litServiceID"), Literal)
        Dim ddlVendorID As DropDownList = CType(e.Item.FindControl("ddlVendorID"), DropDownList)
        AddHandler ddlVendorID.SelectedIndexChanged, AddressOf ddlVendorID_SelectedIndexChanged
End Sub

Protected Sub ddlVendorID_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim litServiceID As Literal = CType(sender.FindControl("litServiceID"), Literal)
        ' Code to insert DropDownlist Selected Value into the database via Data Access Layer (DAL).
        Dim objNewOrderDAL As New NewOrderDAL
        objNewOrderDAL.VendorInsert(CInt(Session("OrderID")), CInt(litServiceID.Text), CInt(sender.SelectedValue))
End Sub

Protected Sub rptrVendors_ItemDataBound(ByVal source As Object, ByVal e As System.Web.UI.WebControls.RepeaterItemEventArgs) Handles rptrVendors.ItemDataBound
        If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then
            ' Add items to dropdownlist dynamically.
            Dim ddlVendorID As DropDownList = CType(e.Item.FindControl("ddlVendorID"), DropDownList)
            Dim tListItem As New ListItem
            Dim VendorIDSelected As Integer
            tListItem.Text = "Select Vendor"
            tListItem.Value = "0"
            ddlVendorID.Items.Add(tListItem)
            
        End If
End Sub

Make a button disable on click

Mon, 06 Feb 2012 11:43:06 GMT

Description: Asp refuses to submit the postback if the button is disabled via javascript. This disables the button immediately after the postback fires

Link: http://www.codekeep.net/snippets/1a15f314-87fb-4f6f-88c1-f2e498e13f69.aspx

OnClientClick="setTimeout( function() {$('#CopyScenarioButton').attr('disabled', 'disabled');},0)"

Make asp think css is loaded

Mon, 06 Feb 2012 10:39:39 GMT

Description: asp.net will complain about css tags it doesn't recognize in user controls that the master page will load. this works around it.

Link: http://www.codekeep.net/snippets/e2a25f08-40ba-4570-abc8-817ea1426a6c.aspx

<% if (false)
{ %> <!-- designer hack allows designer to pick up the common.css that would be picked up when called with a master page anyhow -->
	<link rel="Stylesheet" type="text/css" href="~/Styles/Common.css" id="style" visible="false" />
<% }%>

Web SiteMap Remove Menu Node

Thu, 26 Jan 2012 15:30:01 GMT

Description: VB NET shows how to remove a menu node from the site map for a given page.

Link: http://www.codekeep.net/snippets/d1c53fee-c6f1-47db-b196-22eda5890e8c.aspx

THis assumes you have a WEB.SITEMAP file and a Menu1 using the sitemap as the datasource.

CODE BEHIND OF CALLING PAGE

Protected Sub Menu1_MenuItemDataBound(ByVal sender As Object, ByVal e As MenuEventArgs) Handles Menu1.MenuItemDataBound
        If e.Item.Text = "Your Menu Node Title" Then
            If CBool(Session("MyPermissions")) = False Then
                e.Item.Parent.ChildItems.Remove(e.Item)
            End If
        End If
End Sub

MvcHtmlString - EmbedTemplate

Wed, 04 Jan 2012 12:05:27 GMT

Description: generic wrapper for ActionLink that allows you to use it with any function that expects a string, and returns an mvchtmlstring

Link: http://www.codekeep.net/snippets/90f90f62-440e-4f4b-bbac-60075845dcd9.aspx

private static HelperResult EmbedTemplate(Func<string, MvcHtmlString> helperFunc, Func<object, HelperResult> template)
		{
			var firstPass = helperFunc("[replaceme]");
			var asString = firstPass.ToString();
			var replaced = asString.Replace("[replaceme]", template(null).ToString());
			return new HelperResult(writer =>
			{
				writer.Write(replaced);
			});
		}

ActionLinkEmbedHtml

Wed, 04 Jan 2012 12:01:56 GMT

Description: Regular ActionLink overloads do not allow you to embed raw html inside them, this gets around that. Not sure if it will work with embedding any javascript however.

Link: http://www.codekeep.net/snippets/78b86aab-da63-468d-beaf-9fcef622f458.aspx

namespace System.Web.Mvc
{
 public static class HtmlHelpers
    {
		/// <summary>
		/// Used when the regular actionLinks do not allow custom html inside
		/// </summary>
		/// <param name="helper"></param>
		/// <param name="result"></param>
		/// <param name="template"></param>
		/// <param name="options"></param>
		/// <returns></returns>
		public static HelperResult ActionLink(this AjaxHelper helper,ActionResult result, Func<object,HelperResult> template,AjaxOptions options)
		{
		    var link=helper.ActionLink("[replaceme]",result,options);
			var asString=link.ToString();
			var replaced=asString.Replace("[replaceme]",template(null).ToString());

			return new HelperResult(writer =>
			{
				writer.Write(replaced);
			});
		}
}
}

Validate Zip

Wed, 14 Dec 2011 12:48:13 GMT

Description: This is a regular expression that will validate a zip code

Link: http://www.codekeep.net/snippets/23d9f5e1-f99f-45d8-9289-663c1993a47f.aspx

^\d{5}([\-]\d{4})?$

Validate Date

Wed, 14 Dec 2011 09:29:25 GMT

Description: This is a regular expression that can be used to validate a date

Link: http://www.codekeep.net/snippets/ab1b7174-1b17-4720-9717-5d9d919121e8.aspx

^(0[1-9]|1[012])[- /.](0[1-9]|[12][0-9]|3[01])[- /.](19|20)\d\d$

Repeater Code Behind

Wed, 23 Nov 2011 12:02:40 GMT

Description: Repeater Code Behind shows ItemCommand and ItemDataBound in ASP.NET VB

Link: http://www.codekeep.net/snippets/5b90aa0c-e914-47fa-8b0c-b4f81fa8d613.aspx

<!-- CODE IN FRONT --->
<asp:Repeater ID="rptMyRepeater" runat="server" OnItemCommand="rptMyRepeater_ItemCommand">
                    <ItemTemplate>
                        <tr>
                        <td class="tabtablerow">
                            <asp:HiddenField ID="hdID" value='<%# Eval("ID")%>' runat="server" />
                            </td>
                        <td class="tabtablerow" align="center">
                            <asp:ImageButton ID="ibtnEdit" runat="server" CommandName="EditThis" CssClass="caseInput" CausesValidation="False" ImageUrl="~/images/icon-edit.png" AlternateText="Edit" Width="18" Height="18" />
                            <asp:ImageButton ID="ibtnSave" runat="server" CommandName="SaveThis" CssClass="caseInput" CausesValidation="False" ImageUrl="~/images/icon-save.png" AlternateText="Edit" Width="18" Height="18" Visible="false" />
                            </td>
                       <td class="tabtablerow" align="center">
                            <asp:ImageButton ID="ibtnIsActive" runat="server" CommandName="IsActiveThis" CssClass="caseInput" CausesValidation="False" ImageUrl="~/images/icon-checked.png" AlternateText="Is Active" Width="18" Height="18" />
                            </td>
                        <td class="tabtablerow">
                            <asp:ImageButton ID="ibtnDelete" runat="server" CommandName="DeleteThis" CssClass="caseInput" CausesValidation="False" ImageUrl="~/images/btn_delete.png" AlternateText="Delete" Width="49" Height="18" OnClientClick="return confirm('DELETE This?');" />
                            </td>
                        </tr>
                    </ItemTemplate>
                </asp:Repeater>

<!-- CODE BEHIND -->
#Region "Binding"
    Private Sub BindData(ByVal LastName As String, ByVal FirstName As String)
        Dim objUserManagerDAL As New UserManagerDAL
        Dim ds As DataSet
        ds = objUserManagerDAL.UsersSearch(LastName, FirstName)
        rptMyRepeater.DataSource = ds
        rptMyRepeater.DataBind()
    End Sub
#End Region

#Region "Repeater Actions"
    Protected Sub rptMyRepeater_ItemDataBound(ByVal source As Object, ByVal e As System.Web.UI.WebControls.RepeaterItemEventArgs) Handles rptMyRepeater.ItemDataBound
        ' Exit function if this is not in ItemTemplate   
        If Not e.Item.ItemType = ListItemType.AlternatingItem AndAlso Not e.Item.ItemType = ListItemType.Item Then Exit Sub

        Dim item As RepeaterItem
        item = e.Item
        Dim hdID As HiddenField = CType(item.FindControl("hdID"), HiddenField)
        Dim ibtnDelete As ImageButton = CType(item.FindControl("ibtnDelete"), ImageButton)


        If CInt(hdID.Value) = 0 Then
            ibtnDelete.Visbile = False
        End If              
    End Sub

    Protected Sub rptMyRepeater_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.RepeaterCommandEventArgs) Handles rptMyRepeater.ItemCommand
        ' Exit function if this is not in ItemTemplate   
        If Not e.Item.ItemType = ListItemType.AlternatingItem AndAlso Not e.Item.ItemType = ListItemType.Item Then Exit Sub

        Dim item As RepeaterItem
        item = e.Item
        Dim hdID As HiddenField = CType(item.FindControl("hdID"), HiddenField)
        Dim ibtnEdit As ImageButton = CType(item.FindControl("ibtnEdit"), ImageButton)
        Dim ibtnSave As ImageButton = CType(item.FindControl("ibtnSave"), ImageButton)
        Dim ibtnIsActive As ImageButton = CType(item.FindControl("ibtnIsActive"), ImageButton)
        Dim ibtnDelete As ImageButton = CType(item.FindControl("ibtnDelete"), ImageButton)        If e.CommandName = "DeleteThis" Then
            
        If e.CommandName = "DeleteThis" Then

        ElseIf e.CommandName = "EditThis" Then
            
        ElseIf e.CommandName = "SaveThis" Then
            
        ElseIf e.CommandName = "IsActiveThis" Then
            
        End If
    End Sub
#End Region

Set locale id in Cookie

Tue, 11 Oct 2011 23:59:14 GMT

Description: Set locale id in Cookie

Link: http://www.codekeep.net/snippets/decabe35-598d-4a87-8fe4-39b66190a8a9.aspx

Set locale id in Cookie

Date Compare (VB)

Tue, 04 Oct 2011 14:48:37 GMT

Description: Date Compare Function for ASP.NET VB

Link: http://www.codekeep.net/snippets/c4b6796c-c771-4982-b154-20d70c144ff7.aspx

Imports System.mscorlib 

Dim date1 As Date = #08/01/2009 12:00AM#
Dim date2 As Date = #08/01/2009 12:00PM#
Dim result As Integer = DateTime.Compare(date1, date2)
Dim relationship As String

If result < 0 Then
   relationship = "is earlier than"
ElseIf result = 0 Then
   relationship = "is the same time as"         
Else
   relationship = "is later than"
End If

Load Page Path into Javascript variable

Fri, 23 Sep 2011 16:39:05 GMT

Description: Loading a page path from the server/server code into a javascript variable for consumption elsewhere

Link: http://www.codekeep.net/snippets/719c5738-0026-49af-b1ce-c6f884b4f75e.aspx

var pagePath='<%=VirtualPathUtility.ToAbsolute("~/PageName") %>';

Data Caching Dropdown (VB)

Thu, 15 Sep 2011 15:44:10 GMT

Description: Function to cache a dataset and use in dropdown list. ASP.NET VB

Link: http://www.codekeep.net/snippets/ed16d5db-593a-4f61-b907-91e20dc66a6f.aspx

   Private Function LoadDataSet(ByVal Sql As String) As DataSet
        Try
            Dim objConnGODB As New connGODB
            Dim ds As New DataSet
            ds = objConnGODB.getDataSet(Sql)
            Return ds
        Catch ex As Exception
            Throw New Exception("There was a problem with DropDowns.LoadDataSet. " & ex.Message)
        End Try
    End Function

    Public Function GetCachedData(ByVal DropDownListName As String, ByVal Sql As String) As DataSet
        ' This gets data from the cache, or reinserts it if older than 12 hours.
        Dim ds As DataSet
        If IsNothing(HttpContext.Current.Cache(DropDownListName)) Then
            HttpContext.Current.Cache.Insert(DropDownListName, LoadDataSet(Sql), Nothing, DateTime.Now.AddHours(12.0), TimeSpan.Zero)
        End If
        ds = HttpContext.Current.Cache(DropDownListName)
        Return ds
    End Function

    Public Sub AdjusterRoles(ByVal DDL As DropDownList)
        Dim ds As DataSet
        ds = GetCachedData("AdjusterRoles", "SELECT RoleName, RoleID FROM dbo.Roles (NOLOCK) WHERE RoleID BETWEEN 7 AND 11 ORDER BY RoleName")
        PopulateDropDownDS(DDL, ds, "RoleName", "RoleID")
    End Sub

    Public Sub PopulateDropDownDS(ByVal DDL As DropDownList, ByVal ds As DataSet, ByVal txt As String, ByVal val As String)
        DDL.Items.Clear()
        If ds.Tables(0).Rows.Count > 0 Then
            For mRow As Integer = 0 To ds.Tables(0).Rows.Count - 1
                DDL.Items.Add(New ListItem(ds.Tables(0).Rows.Item(mRow).Item(txt).ToString, ds.Tables(0).Rows.Item(mRow).Item(val).ToString))
            Next
        End If
    End Sub

Hash Salt (VB)

Thu, 15 Sep 2011 10:10:22 GMT

Description: Calculates Hash of specified password + Salt from DB ASP.NET VB

Link: http://www.codekeep.net/snippets/d4d03e7f-baaf-494c-bd25-11f4bccb94de.aspx

' Calculate Hash of specified password + Salt from DB
  Set CM = Server.CreateObject("Persits.CryptoManager")
  Set Context = CM.OpenContext("mycontainer", True)
  Set Hash = Context.CreateHash
  Hash.AddText Request("Password") & Salt
  HashValue2 = Hash.Value.Hex
  Set Hash = Nothing
  Set CM = Nothing

LOOP through FORM (VB)

Thu, 15 Sep 2011 10:08:38 GMT

Description: This loops through all form fields and shows how to count the number of FALSE values. ASP.NET VB

Link: http://www.codekeep.net/snippets/8f644284-9670-4ae0-b1e9-731d234ff070.aspx

Dim iCount = 0
Dim TotalNoAnswers = 0
lblTest.Text = "OK:"
  For Each Item In Request.Form
    If Request.Form(Request.Form.Keys(iCount).ToString) = "False" Then
      TotalNoAnswers += 1
    End If
    iCount += 1
  Next

Valida Campo data com Ano bisexto

Tue, 13 Sep 2011 23:21:20 GMT

Description: Baixar plugin maskedinput.js para mascara do Jquery

Link: http://www.codekeep.net/snippets/dbb2927b-5ca1-4ed0-85d4-14644b3934a1.aspx

<script src="../Scripts/maskedinput/maskedinput.js" type="text/javascript"></script>

<asp:TextBox  ID="txtPessDtNascimento"   CssClass="txtPessDtNascimento" runat="server" Width="80px" MaxLength="10" /> dd/mm/aaaa

 <asp:RegularExpressionValidator ID="RegularExpressionValidator2" SetFocusOnError="true"
                        runat="server" ControlToValidate="txtPessDtNascimento" ErrorMessage="Data Inválida"
                        ValidationGroup="Basicos" EnableClientScript="true" ValidationExpression="^((((0?[1-9]|[12]\d|3[01])[\.\-\/](0?[13578]|1[02])[\.\-\/]((1[6-9]|[2-9]\d)?\d{2}))|((0?[1-9]|[12]\d|30)[\.\-\/](0?[13456789]|1[012])[\.\-\/]((1[6-9]|[2-9]\d)?\d{2}))|((0?[1-9]|1\d|2[0-8])[\.\-\/]0?2[\.\-\/]((1[6-9]|[2-9]\d)?\d{2}))|(29[\.\-\/]0?2[\.\-\/]((1[6-9]|[2-9]\d)?(0[48]|[2468][048]|[13579][26])|((16|[2468][048]|[3579][26])00)|00)))|(((0[1-9]|[12]\d|3[01])(0[13578]|1[02])((1[6-9]|[2-9]\d)?\d{2}))|((0[1-9]|[12]\d|30)(0[13456789]|1[012])((1[6-9]|[2-9]\d)?\d{2}))|((0[1-9]|1\d|2[0-8])02((1[6-9]|[2-9]\d)?\d{2}))|(2902((1[6-9]|[2-9]\d)?(0[48]|[2468][048]|[13579][26])|((16|[2468][048]|[3579][26])00)|00))))$" />


<script language="javascript" type="text/javascript">

    jQuery(function ($) {

        try {
            $(".txtPessDtNascimento").mask("99/99/9999");
        } catch (e) {
            alert(e);
        }

    });

MySql .net provider

Fri, 09 Sep 2011 06:21:40 GMT

Description: A note for myself, making public in case its of use to anyone else. Its off the jitbit forum faq

Link: http://www.codekeep.net/snippets/c3af19af-54a8-499e-9f08-1c73724e4778.aspx

Install the "MySQL Connector .Net". If you use Godaddy (or another hosting provider) - place the "MySQL.Data.dll" to the "bin" folder and add this to your web.config:

<system.data>
  <DbProviderFactories>
    <add name="MySQL Data Provider" invariant="MySql.Data.MySqlClient" description=".Net Framework Data Provider for MySQL" type="MySql.Data.MySqlClient.MySqlClientFactory, MySql.Data, Version=5, Culture=neutral" />
  </DbProviderFactories>
</system.data>

Finding ASP.NET Gridview internal button

Sat, 27 Aug 2011 06:51:44 GMT

Description: This is how you will search a button object within the parent GridView How:if you put your button inside of gridview and you want to read it

Link: http://www.codekeep.net/snippets/a860697a-89d7-46d4-b531-858a243529db.aspx

protected void Button1_Click(object sender, EventArgs e)
{
        Button btn = (Button)sender;
        GridViewRow row = (GridViewRow)btn.NamingContainer;
        Response.Write("Row Index of Link button: " + row.RowIndex +
                       "DataKey value:" + GridView1.DataKeys[row.RowIndex].Value.ToString());
}

Standard DataGrid

Wed, 20 Jul 2011 11:24:04 GMT

Description: Standard Data Grid

Link: http://www.codekeep.net/snippets/7c66f9f9-0c39-4759-9d40-443bb594b36b.aspx

<%@ Register Assembly="NEA.WebControls" Namespace="NEA.WebControls" TagPrefix="nea" %>

<div class="tableHeader">
    <div style="padding: 2px; border-bottom: solid 1px black;">
        <%-- ADD ANY HEADER CONTROLS HERE --%>
    </div>
</div>
<div class="tableFooter">
    <div class="pager">
        <asp:DataPager ID="pager" runat="server" PageSize="15" PagedControlID="uxMainGrid">
            <Fields>
                <asp:NextPreviousPagerField ButtonCssClass="command" FirstPageText="«" PreviousPageText="<" RenderDisabledButtonsAsLabels="true"
                    ShowFirstPageButton="true" ShowPreviousPageButton="true" ShowLastPageButton="false" ShowNextPageButton="false" />
                <asp:NumericPagerField ButtonCount="15" NumericButtonCssClass="command" CurrentPageLabelCssClass="current" NextPreviousButtonCssClass="command"
                    NextPageText="more..." />
                <asp:NextPreviousPagerField ButtonCssClass="command" LastPageText="»" NextPageText=">" RenderDisabledButtonsAsLabels="true"
                    ShowFirstPageButton="false" ShowPreviousPageButton="false" ShowLastPageButton="true" ShowNextPageButton="true" />
            </Fields>
        </asp:DataPager>
    </div>
    <div style="width: 100%; text-align: center; padding: 2px;">
        <%-- ADD ANY FOOTER CONTROLS HERE --%>
    </div>
</div>
<%-- DON'T FORGET THE DATA KEYS --%>
<div id="div-datagrid" class="tableContent" style="top: 50px;">
    <nea:DataPagerGridView ID="uxMainGrid" runat="server" AutoGenerateColumns="False" Width="100%" EmptyDataText="No records to display"
        HeaderStyle-Height="30px" BackColor="LightGoldenrodYellow" CellPadding="2" CellSpacing="0" CaptionAlign="Bottom"
        DataKeyNames="" AllowPaging="True" HeaderStyle-Font-Size="9pt">
    </nea:DataPagerGridView>
</div>