ASP.NET

'Bind the transaction to the HMAC Header Behavior
Dim httpBinding As BasicHttpBinding = New BasicHttpBinding()
httpBinding.Security.Mode = SecurityMode.Transport
httpBinding.Security.Transport.ClientCredentialType = HttpClientCredentialType.Windows
httpBinding.Security.Message.ClientCredentialType = BasicHttpMessageCredentialType.UserName
httpBinding.Security.Message.AlgorithmSuite = ServiceModel.Security.SecurityAlgorithmSuite.Basic256

Dim ws = New firstData_v14.ServiceSoapClient(httpBinding, New EndpointAddress(m_endPoint_Url))
ws.ClientCredentials.Windows.ClientCredential = New NetworkCredential("username", "password", "domain")
ws.ClientCredentials.Windows.AllowedImpersonationLevel = System.Security.Principal.TokenImpersonationLevel.Impersonation
ws.ChannelFactory.Endpoint.Behaviors.Add(New HMAC_SR_Header_Behavior(m_key, m_keyID, m_endPoint_Uri))

'Transmit the Card Authorization Request
rxn = New firstData_v14.TransactionResult
rxn = ws.SendAndCommit(txn)

'Bind the transaction to the HMAC Header Behavior
Dim ws = New com.firstdata.globalgatewaye4.V14.Service

'Transmit the Card Authorization Request
rxn = New com.firstdata.globalgatewaye4.V14.TransactionResult
rxn = ws.SendAndCommit(txn)

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports System.Data.Common
Imports System.IO

Protected Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
        If IsDate(TextBox3.Text) = False Or TextBox3.Text = "" Or TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox4.Text = "" Or RadioButtonList1.SelectedIndex = -1 Then
            MsgBox("Veuillez vérifier les champs d'écriture.", MsgBoxStyle.OkOnly, "Champs manquants ou invalides")
            Exit Sub
        End If

        Try
            Dim MyConnection As System.Data.OleDb.OleDbConnection
            Dim myCommand As New System.Data.OleDb.OleDbCommand
            Dim sql As String = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=D:\Data\Excel_File.xlsx;Extended Properties=Excel 12.0 Xml;HDR=YES;")
            MyConnection.Open()
            myCommand.Connection = MyConnection
            sql = "INSERT INTO [feuil1$] (Opérateur, Type_Heures, Date, Heures_Entrée, Heures_Sortie, Tâches) VALUES (@Opérateur, @Type_Heures, @Date, @Heures_Entrée, @Heures_Sortie, @Tâches)"
myCommand.Parameters.AddWithValue("@Opérateur", Label4.Text)
    myCommand.Parameters.AddWithValue("@Type_Heures", RadioButtonList1Text)
    myCommand.Parameters.AddWithValue("@Date", TextBox3.Text)
    myCommand.Parameters.AddWithValue("@Heures_Entrée", TextBox1.Text)
    myCommand.Parameters.AddWithValue("@Heures_Sortie", TextBox2.Text)
myCommand.Parameters.AddWithValue("@Tâches", TextBox4.Text)
            myCommand.CommandText = sql
            myCommand.ExecuteNonQuery()
            MyConnection.Close()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
        MsgBox("Row Added ")

End Sub

<script language="javascript" type="text/javascript">
    function StartProgressBar() {
        var myExtender = $find('ProgressBarModalPopupExtender');
        myExtender.show();
        return true;
    }
    function StopProgressBar() {
        var myExtender = $find('ProgressBarModalPopupExtender');
        myExtender.hide();
        return true;
    }

    function Valid() {
        if (Page_ClientValidate("Required") == true) {
            StartProgressBar()
        }
        else {
            alert("Please fill the Required fields");
        }

    }
</script>

<asp:Button ID="btnSubmit" runat="server" Text="Submit" CssClass="Button" OnClientClick="Valid()" />

 <div>
             <cc1:ModalPopupExtender ID="ProgressBarModalPopupExtender" runat="server" BackgroundCssClass="ModalBackground" behaviorID="ProgressBarModalPopupExtender"  TargetControlID="hiddenField" PopupControlID="Panel1" />
             <asp:Panel ID="Panel1" runat="server" Style="display: none; background-color: #C0C0C0;">

                    <asp:Image ID="Image3" ImageUrl="~/Images/712Blue.GIF" runat="server" AlternateText="" />

                </asp:Panel>

                <asp:HiddenField ID="hiddenField" runat="server" />
 </div>

Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
    If Page.IsValid Then
     Thread.Sleep(300)
     ProgressBarModalPopupExtender.Hide()
     ClearAll()
    End If
 End Sub

if ddl="abc" and fileuplaod1.HasFile Then
   	UploadFile
   	Bool=true
Else if ddl="abc" and FileUpload1.HasFile=false Then
   	Alert asking for fileupload
	Bool=false
Else
	Bool=True

If Bool=True then 
DataBind to Gridview