Click here to Skip to main content
15,891,951 members
Search within:


to show data on modal popup control of ajax with giving two buttons for data saving into database.
Please Sign up or sign in to vote.
0.00/5 (No votes)
See more:
VB
I want to use light box in asp.net with vb.net to show the text data from current page and I want to show two buttons for asking to save data in database (save(yes/no)),If you click on page Button(save)...
please suggest me answer....
in previous I was used ajax modal popup control but problem is that,nothing any data saved ..please give me solution...i want to show data on modal popup control from page which is fillup from user and want to give one option for data saving confirmation...to user...if user choose option save-yes then data will be saved in database otherwise not save data...



following is the my code...

XML
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="NewJoinForm2.aspx.vb" Inherits="NewJoinForm2" %>
<%@ Register assembly="GMDatePicker" namespace="GrayMatterSoft" tagprefix="cc1" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="ajaxtoolkit" %>
<html xmlns="http://www.w3.org/1999/xhtml">
<head id="Head1" runat="server">
     <title>::. Welcome To www.mysigma.in .::</title>
     <link href ="StyleSheet.css " rel="stylesheet" type="text/css" />
    <link href="StyleSheet.css" rel="stylesheet" type="text/css" />
    <style type="text/css">
        .TitleBar
{
    background-image: ;
    background-repeat: repeat-x;
    background-position:center;
    height: 32px;
    color: #333333;
    text-transform: uppercase;
    text-align: center;
    font-size: 20px;
    font-weight: bold;
    width :100%;
}
  .modalBackground {
        background-color:Gray;
        filter:alpha(opacity=70);
        opacity:0.7;
}
.modal
{
    background-color: Gray;
    filter:alpha(opacity=40);
    opacity:0.7;
}
.modalPopup {
        background-color:#ffffdd;
        border-width:3px;
        border-style:solid;
        border-color:Gray;
        padding:3px;
        width:250px;
}
    </style>
</head>
<body>
    <form id="form1" runat="server">
    <div style="width: 100%; text-align :center;  vertical-align :middle; background-color: #008080; font-family: Arial, Helvetica, sans-serif; font-size: 25px; color: #FFFFFF; font-style: normal; font-weight: bold; height: 50px;">
       Welcome To MYSIGMA Joining Form &nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
        <asp:LinkButton ID="LinkButton1" runat="server" CssClass="ButtonStyle1"
            Font-Bold="True" Font-Names="Verdana" Font-Size="Large">Home</asp:LinkButton>
    </div>
    <div >
    <table align ="center ">
    <tr>
            <td>
                <table align="center" cellpadding="0" cellspacing="0" style="padding: 0px 10px 10px 10px;" width="100%">
                    <tr>
                        <td class="TDLabel" width="200px">
                            sponsor ID :</td>
                        <td width="20px"
                            style="font-family: Arial, Helvetica, sans-serif; font-size: 16pt; font-weight: bold; color: #FF0000">
                            *</td>
                        <td align="left" colspan="4">
                            <table cellpadding="0" cellspacing="1">
                                <tr>
                                    <td>
                                        <asp:TextBox ID="TxtSID" runat="server" CssClass="TextStyle" Width="100px"></asp:TextBox>
                                    </td>
                                    <td>
                                        <asp:Button ID="CmdSShow" runat="server" CssClass="ButtonStyle" Text="verify"
                                            Width="80px" />
                                    </td>
                                    <td>
                                        <asp:Label ID="LblSName" runat="server" CssClass="LabelStyle" Text="?"></asp:Label>
                                    </td>
                                </tr>
                            </table>
                        </td>
                    </tr>
                    <tr>
                        <td class="TDLabel">
                            wing :</td>
                        <td style="font-family: Arial, Helvetica, sans-serif; font-size: 16pt; font-weight: bold; color: #FF0000">
                            *</td>
                        <td align="left" colspan="4">
                            <asp:DropDownList ID="CmbWing" runat="server" CssClass="TextStyle"
                                Width="100px">
                                <asp:ListItem>Left</asp:ListItem>
                                <asp:ListItem>Right</asp:ListItem>
                            </asp:DropDownList>
                                                </td>
                    </tr>
                    <tr>
                        <td colspan="6">
                            <asp:Panel ID="Panel1" runat="server" Visible="False">
                            </asp:Panel>
                        </td>
                    </tr>
                    <tr>
                        <td class="TDLabel">
                            member name :</td>
                        <td style="font-family: Arial, Helvetica, sans-serif; font-size: 16pt; font-weight: bold; color: #FF0000">
                            *</td>
                        <td align="left" colspan="4">
                            <asp:TextBox ID="TxtName" runat="server" CssClass="TextStyle" Width="400px"
                                MaxLength="50"></asp:TextBox>
                        </td>
                    </tr>
                    <tr>
                        <td class="TDLabel">
                            address :</td>
                        <td style="font-family: Arial, Helvetica, sans-serif; font-size: 16pt; font-weight: bold; color: #FF0000">
                            *</td>
                        <td align="left" colspan="4">
                            <asp:TextBox ID="TxtAdd" runat="server" CssClass="TextStyle" Width="400px"
                                MaxLength="80"></asp:TextBox>
                        </td>
                    </tr>
                    <tr>
                        <td class="TDLabel">
                            city :</td>
                        <td style="font-family: Arial, Helvetica, sans-serif; font-size: 16pt; font-weight: bold; color: #FF0000">
                            *</td>
                        <td align="left">
                            <asp:TextBox ID="TxtCity" runat="server" CssClass="TextStyle" Width="200px"></asp:TextBox>
                        </td>
                        <td class="TDLabel">
                            pIN Code:</td>
                        <td class="TDLabel"
                            style="font-family: Arial, Helvetica, sans-serif; font-size: 16pt; font-weight: bold; color: #FF0000">
                            *</td>
                        <td align="left">
                            <asp:TextBox ID="TxtPinCode" runat="server" CssClass="TextStyle" Width="200px"></asp:TextBox>
                        </td>
                    </tr>
                    <tr>
                        <td class="TDLabel">
                            State :</td>
                        <td style="font-family: Arial, Helvetica, sans-serif; font-size: 16pt; font-weight: bold; color: #FF0000">
                            *</td>
                        <td align="left">
                            <asp:DropDownList ID="CmbState" runat="server" CssClass="TextStyle"
                                Width="200px">
                            </asp:DropDownList>
                                                </td>
                        <td class="TDLabel">
                            birth Date :</td>
                        <td style="font-family: Arial, Helvetica, sans-serif; font-size: 16pt; font-weight: bold; color: #FF0000">
                            *</td>
                        <td align="left">
                            <cc1:GMDatePicker ID="GMDBDate" runat="server" BorderStyle="Solid"
                                BorderWidth="1px" DateFormat="dd-MMM-yyyy" DisplayMode="TextBox"
                                Font-Names="Georgia" Font-Size="10pt" Width="150px">
                            </cc1:GMDatePicker>
                                                </td>
                    </tr>
                    <tr>
                        <td class="TDLabel">
                            e-Mail ID :</td>
                        <td>
                            &nbsp;</td>
                        <td align="left" colspan="4">
                            <asp:TextBox ID="TxtEMail" runat="server" CssClass="LTextStyle" Width="400px"
                                MaxLength="50"></asp:TextBox>
                        </td>
                    </tr>
                    <tr>
                        <td class="TDLabel">
                            mobile No. :</td>
                        <td style="font-family: Arial, Helvetica, sans-serif; font-size: 16pt; font-weight: bold; color: #FF0000">
                            *</td>
                        <td align="left">
                            <asp:TextBox ID="TxtMobile" runat="server" CssClass="TextStyle" Width="200px"></asp:TextBox>
                        </td>
                        <td class="TDLabel">
                            PAN No. :</td>
                        <td style="font-family: Arial, Helvetica, sans-serif; font-size: 16pt; font-weight: bold; color: #FF0000">
                            *</td>
                        <td align="left">
                            <asp:TextBox ID="TxtPANNo" runat="server" CssClass="TextStyle" Width="200px"
                                MaxLength="50"></asp:TextBox>
                        </td>
                    </tr>
                    <tr>
                        <td class="TDLabel">
                            A/C Holder Name :</td>
                        <td style="font-family: Arial, Helvetica, sans-serif; font-size: 16pt; font-weight: bold; color: #FF0000">
                            *</td>
                        <td align="left" colspan="4">
                            <asp:TextBox ID="TxtACName" runat="server" CssClass="TextStyle" Width="400px"
                                MaxLength="50"></asp:TextBox>
                        </td>
                    </tr>
                    <tr>
                        <td class="TDLabel">
                            Bank Name :</td>
                        <td style="font-family: Arial, Helvetica, sans-serif; font-size: 16pt; font-weight: bold; color: #FF0000">
                            *</td>
                        <td align="left">
                            <asp:TextBox ID="TxtBName" runat="server" CssClass="TextStyle" Width="200px"
                                MaxLength="50"></asp:TextBox>
                        </td>
                        <td class="TDLabel">
                            branch Name :</td>
                        <td style="font-family: Arial, Helvetica, sans-serif; font-size: 16pt; font-weight: bold; color: #FF0000">
                            *</td>
                        <td align="left">
                            <asp:TextBox ID="TxtBrName" runat="server" CssClass="TextStyle" Width="200px"
                                MaxLength="50"></asp:TextBox>
                        </td>
                    </tr>
                    <tr>
                        <td class="TDLabel">
                            bank City :</td>
                        <td style="font-family: Arial, Helvetica, sans-serif; font-size: 16pt; font-weight: bold; color: #FF0000">
                            *</td>
                        <td align="left">
                            <asp:TextBox ID="TxtBCity" runat="server" CssClass="TextStyle" Width="200px"
                                MaxLength="50"></asp:TextBox>
                        </td>
                        <td class="TDLabel">
                            A/C Type :</td>
                        <td style="font-family: Arial, Helvetica, sans-serif; font-size: 16pt; font-weight: bold; color: #FF0000">
                            *</td>
                        <td align="left">
                            <asp:TextBox ID="TxtACType" runat="server" CssClass="TextStyle" Width="200px"
                                MaxLength="50"></asp:TextBox>
                        </td>
                    </tr>
                    <tr>
                        <td class="TDLabel">
                            A/c No. :</td>
                        <td style="font-family: Arial, Helvetica, sans-serif; font-size: 16pt; font-weight: bold; color: #FF0000">
                            *</td>
                        <td align="left">
                            <asp:TextBox ID="TxtACNo" runat="server" CssClass="TextStyle" Width="200px"
                                MaxLength="50"></asp:TextBox>
                        </td>
                        <td class="TDLabel">
                            IFSC Code :</td>
                        <td style="font-family: Arial, Helvetica, sans-serif; font-size: 16pt; font-weight: bold; color: #FF0000">
                            *</td>
                        <td align="left">
                            <asp:TextBox ID="TxtIFSCCoce" runat="server" CssClass="TextStyle" Width="200px"
                                MaxLength="50"></asp:TextBox>
                        </td>
                    </tr>
                    <tr>
                        <td class="TDLabel">
                            Nominee Name :</td>
                        <td style="font-family: Arial, Helvetica, sans-serif; font-size: 16pt; font-weight: bold; color: #FF0000">
                            *</td>
                        <td align="left">
                            <asp:TextBox ID="TxtNName" runat="server" CssClass="TextStyle" Width="200px"
                                MaxLength="50"></asp:TextBox>
                        </td>
                        <td class="TDLabel">
                            Relation :</td>
                        <td style="font-family: Arial, Helvetica, sans-serif; font-size: 16pt; font-weight: bold; color: #FF0000">
                            *</td>
                        <td align="left">
                            <asp:TextBox ID="TxtRelation" runat="server" CssClass="TextStyle" Width="200px"
                                MaxLength="50"></asp:TextBox>
                        </td>
                    </tr>
                    <tr>
                        <td class="TDLabel">
                            Password :</td>
                        <td style="font-family: Arial, Helvetica, sans-serif; font-size: 16pt; font-weight: bold; color: #FF0000">
                            *</td>
                        <td align="left">
                            <asp:TextBox ID="TxtPWD" runat="server" CssClass="TextStyle" Width="200px"
                                MaxLength="50" TextMode="Password"></asp:TextBox>
                        </td>
                        <td class="TDLabel">
                            confirm Password :</td>
                        <td style="font-family: Arial, Helvetica, sans-serif; font-size: 16pt; font-weight: bold; color: #FF0000">
                            *</td>
                        <td align="left">
                            <asp:TextBox ID="TxtCPwd" runat="server" CssClass="TextStyle" Width="200px"
                                MaxLength="50" TextMode="Password"></asp:TextBox>
                        </td>
                    </tr>
                    <tr>
                        <td class="TDLabel">
                            &nbsp;</td>
                        <td class="TDLabel">
                            &nbsp;</td>
                        <td align="left" colspan="4">
                            <table cellpadding="1" cellspacing="0">
                                <tr>
                                    <td>
                                        <asp:Button ID="CmdSave" runat="server" CssClass="ButtonStyle" Text="save"
                                Width="100px" />
                                    </td>
                                    <td>
                                        <asp:Button ID="CmdReset" runat="server" CssClass="ButtonStyle" Text="reset"
                                Width="100px" />
                                    </td>
                                </tr>
                            </table>
                        </td>
                    </tr>
                </table>
            </td>
        </tr>
    </table>
    </div>
         <asp:ScriptManager ID="scriptmanager1" runat="server" />
<%--          <asp:Panel ID="panel2" runat="server" CssClass="modalPopup" DefaultButton="btnOk">
<table width="100%" border="0" cellpadding="2" cellspacing="5">--%>
<asp:Panel ID="Panel2" runat="server" CssClass="modalPopup" DefaultButton="OkButton" Width ="500px" Height="400px" Font-Names="Arial" Font-Size="10pt">
<table width="100%" border="0" cellpadding="2" cellspacing="5">
<tr >
<td colspan ="4"><asp:Label runat ="server" ID ="Label2"  ></asp:Label></td>
</tr>
<tr>
<td align="right" valign="middle">
<strong>sponsor ID:</strong>
</td><td><asp:Label runat ="server" ID ="Label3"  ></asp:Label></td><td align="right" valign="middle">
<strong>wing:</strong>
</td><td><asp:Label runat ="server" ID ="Label4"  ></asp:Label></td></tr><tr>
</tr>
<tr><td align="right" valign="middle">
<strong>MemberName:</strong></td><td><asp:Label runat ="server" ID ="Label5"  ></asp:Label></td>
</tr><tr>
<td align="right" valign="middle">
<strong>address:</strong>
</td><td><asp:Label runat ="server" ID ="Label6"  ></asp:Label></td><td align="right" valign="middle">
<strong>city:</strong>
</td><td><asp:Label runat ="server" ID ="Label7"  ></asp:Label></td></tr><tr>
</tr><tr>
<td align="right" valign="middle">
<strong>pIN Code:</strong>
</td><td><asp:Label runat ="server" ID ="Label8"  ></asp:Label></td><td align="right" valign="middle">
<strong>birth Date:</strong>
</td><td><asp:Label runat ="server" ID ="Label9"  ></asp:Label></td></tr><tr>
</tr><tr>
<td align="right" valign="middle">
<strong>State:</strong>
</td><td><asp:Label runat ="server" ID ="Label10"  ></asp:Label></td><td align="right" valign="middle">
<strong>e-Mail ID:</strong>
</td><td><asp:Label runat ="server" ID ="Label11"  ></asp:Label></td></tr><tr>
</tr><tr>
<td align="right" valign="middle">
<strong>mobile No.:</strong>
</td><td><asp:Label runat ="server" ID ="Label12"  ></asp:Label></td><td align="right" valign="middle">
<strong>PAN No.:</strong>
</td><td><asp:Label runat ="server" ID ="Label13"  ></asp:Label></td></tr><tr>
</tr><tr>
<td align="right" valign="middle">
<strong>A/C Holder Name:</strong>
</td><td><asp:Label runat ="server" ID ="Label14"  ></asp:Label></td><td align="right" valign="middle">
<strong>Bank Name:</strong>
</td><td><asp:Label runat ="server" ID ="Label15"  ></asp:Label></td></tr><tr>
</tr><tr>
<td align="right" valign="middle">
<strong>branch Name :</strong>
</td><td><asp:Label runat ="server" ID ="Label16"  ></asp:Label></td><td align="right" valign="middle">
<strong>bank City:</strong>
</td><td><asp:Label runat ="server" ID ="Label17"  ></asp:Label></td></tr><tr>
</tr><tr>
<td align="right" valign="middle">
<strong>A/C Type:</strong>
</td><td><asp:Label runat ="server" ID ="Label18"  ></asp:Label></td><td align="right" valign="middle">
<strong>A/c No. :</strong>
</td><td><asp:Label runat ="server" ID ="Label19"  ></asp:Label></td></tr><tr>
</tr><tr>
<td align="right" valign="middle">
<strong>IFSC Code:</strong>
</td><td><asp:Label runat ="server" ID ="Label20"  ></asp:Label></td><td align="right" valign="middle">
<strong>Nominee Name:</strong>
</td><td><asp:Label runat ="server" ID ="Label21"  ></asp:Label></td></tr><tr>
</tr><tr>
<td align="right" valign="middle">
<strong>Password :</strong>
</td><td><asp:Label runat ="server" ID ="Label22"  ></asp:Label></td><td align="right" valign="middle">
<strong>confirm Password :</strong>
</td><td><asp:Label runat ="server" ID ="Label23"  ></asp:Label></td></tr><tr>
</tr>
<tr>
<br />
<td colspan ="2">
<asp:Button ID="OkButton" runat="server" Text="OK" onclick="OkButton_Click" />
</td><td colspan ="2">
<asp:Button ID="CancelButton" runat="server" Text="Cancel" />
</td>
</tr>
</table>
</asp:Panel>

       <%--    <asp:UpdatePanel ID="UpdatePanel1" runat="server">
   <ContentTemplate>

   </ContentTemplate>
</asp:UpdatePanel>--%>

   <ajaxtoolkit:ModalPopupExtender ID="ModalPopupExtender1" runat="server"
    OkControlID="OkButton"
    PopupControlID="panel2"
    TargetControlID="panel2"
    BackgroundCssClass="modal"
     CancelControlID="CancelButton"
    DropShadow="true">
</ajaxtoolkit:ModalPopupExtender>
    </form>
</body>
</html>



vb.net code-------

Partial Class NewJoinForm2
    Inherits System.Web.UI.Page
    Dim M1 As New MLMFACTORY
    'Protected Sub CmdSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmdSave.Click
    Protected Sub OkButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmdSave.Click
        Dim CPID As Long, CWing As Integer, CPin As String, CPrdID123 As Long, IsVery123 As Byte
        Dim DT1 As New System.Data.DataTable
        Dim DR1 As System.Data.DataRow
        CPrdID123 = 0
        LblSName.Text = M1.ExecuteQueryAndReturnValue("select MemberName from m where memberId=" & Val(TxtSID.Text))
        If LblSName.Text = "0" Then
            LblSName.Text = "NOT FOUND"
            Call M1.ShowMsg(Me, "Sponsor ID Not Found.")
            TxtSID.Focus()
            Exit Sub
        Else
            Select Case LCase(CmbWing.SelectedItem.Text)
                Case "left" : CWing = 1
                Case "right" : CWing = 2
                Case Else
                    Call M1.ShowMsg(Me, "Select Vallid Wing.")
                    CmbWing.Focus()
                    Exit Sub
            End Select
            Session("CurrentSponsor") = M1.ExecuteQueryAndReturnValue("select userId from m where memberId=" & Val(TxtSID.Text))
            CPID = M1.ExecuteQueryAndReturnValue("EXEC TakeLastChildID " & Val(Session("CurrentSponsor").ToString) & "," & CWing)
        End If
        'CPin = TxtPIN1.Text & TxtPIN2.Text & TxtPIN3.Text
        CPin = 0
        'If M1.ExecuteQueryAndReturnValue("Select COUNT(*) From p Where pin=" & CPin & " AND allocateId=0 AND pinTyp IN(0,2,4)") > 0 Then
        '    Call M1.FillDataTable("Select p.prdId,p.pinTyp,p.planAmt,pr.BusinessValue,pr.PlanMonths,pr.PlanPercent,pr.PlanReturn,pr.ProductTypeID From p Left Outer Join pr On p.prdId=pr.PrdId Where p.pin=" & CPin, DT1)
        'If M1.ExecuteQueryAndReturnValue("Select COUNT(*) From p Where pin=" & CPin & " AND allocateId=0 AND pinTyp IN(0,2,4)") > 0 Then
        '    Call M1.FillDataTable("Select p.prdId,p.pinTyp,p.planAmt,pr.BusinessValue,pr.PlanMonths,pr.PlanPercent,pr.PlanReturn,pr.ProductTypeID From p Left Outer Join pr On p.prdId=pr.PrdId Where p.pin=" & CPin, DT1)
        '    If Val(DT1.Rows(0)!pinTyp) = 4 Then
        '        If Panel1.Visible = False Then
        '            Panel1.Visible = True
        '            Call M1.ShowMsg(Me, "Select Vallid Product Name.")
        '            CmbPName.Focus()
        '            Exit Sub
        '        Else
        '            IsVery123 = 1
        '            CPrdID123 = Val(CmbPName.SelectedItem.Value)
        '            If CPrdID123 <= 0 Then
        '                Call M1.ShowMsg(Me, "Select Vallid Product Name.")
        '                CmbPName.Focus()
        '                Exit Sub
        '            End If
        '        End If
        '    Else
        '        IsVery123 = 0
        '        CPrdID123 = 0
        '    End If
        'Else
        '    Call M1.ShowMsg(Me, "Invallid Registration PIN.")
        '    TxtPIN1.Focus()
        '    Exit Sub
        'End If
        If TxtName.Text = "" Then
            Call M1.ShowMsg(Me, "Please, Enter Member Name.")
            TxtName.Focus()
            Exit Sub
        End If
        If Len(Val(TxtMobile.Text).ToString) <> 10 Then
            Call M1.ShowMsg(Me, "Please, Enter Mobile No.")
            TxtMobile.Focus()
            Exit Sub
        End If
        If TxtAdd.Text = "" Then
            Call M1.ShowMsg(Me, "Please, Enter Address.")
            TxtAdd.Focus()
            Exit Sub
        End If
        If TxtACName.Text = "" Then
            Call M1.ShowMsg(Me, "Please, Enter A/C Holder Name.")
            TxtACName.Focus()
            Exit Sub
        End If
        If TxtACNo.Text = "" Then
            Call M1.ShowMsg(Me, "Please, Enter A/C No.")
            TxtACNo.Focus()
            Exit Sub
        End If
        If TxtACType.Text = "" Then
            Call M1.ShowMsg(Me, "Please, Enter A/C Type.")
            TxtACType.Focus()
            Exit Sub
        End If
        If TxtBCity.Text = "" Then
            Call M1.ShowMsg(Me, "Please, Enter Bank City.")
            TxtBCity.Focus()
            Exit Sub
        End If
        If TxtBName.Text = "" Then
            Call M1.ShowMsg(Me, "Please, Enter Bank Name.")
            TxtBName.Focus()
            Exit Sub
        End If
        If TxtBrName.Text = "" Then
            Call M1.ShowMsg(Me, "Please, Enter Branch Name.")
            TxtBrName.Focus()
            Exit Sub
        End If
        If TxtCity.Text = "" Then
            Call M1.ShowMsg(Me, "Please, Enter City.")
            TxtCity.Focus()
            Exit Sub
        End If
        If TxtIFSCCoce.Text = "" Then
            Call M1.ShowMsg(Me, "Please, Enter Bank IFSC Code.")
            TxtIFSCCoce.Focus()
            Exit Sub
        End If
        If TxtPANNo.Text = "" Then
            Call M1.ShowMsg(Me, "Please, Enter PAN No.")
            TxtEMail.Focus()
            Exit Sub
        End If
        If TxtNName.Text = "" Then
            Call M1.ShowMsg(Me, "Please, Enter Nominee Name.")
            TxtNName.Focus()
            Exit Sub
        End If
        If TxtRelation.Text = "" Then
            Call M1.ShowMsg(Me, "Please, Enter Relation With Nominee.")
            TxtRelation.Focus()
            Exit Sub
        End If
        If TxtPWD.Text = "" Then
            Call M1.ShowMsg(Me, "Please, Enter Password.")
            TxtPWD.Focus()
            Exit Sub
        End If
        If TxtPWD.Text <> TxtCPwd.Text Then
            Call M1.ShowMsg(Me, "Password Not Match With Confirm Password.")
            TxtPWD.Focus()
            Exit Sub
        End If
        If CmbState.Text = "" Then
            Call M1.ShowMsg(Me, "Please, Select State.")
            CmbState.Focus()
            Exit Sub
        End If
        If GMDBDate.Date = M1.indianDate Then
            Call M1.ShowMsg(Me, "Please, Enter Vallid Birth Date.")
            GMDBDate.Focus()
            Exit Sub
        End If
        Dim SB1 As New StringBuilder
        Dim CUID As Long, CMID As Long, CSID As Long, CFID As Long, CBV As Double, flagChk As Integer
        'DR1 = DT1.Rows(0)
        'DR1 = DT1.Rows(0)
        'CBV = IIf(IsDBNull(DR1!BusinessValue) = True, 0, DR1!BusinessValue)
        flagChk = 0
        CBV = 0
        CMID = GetNextMemberID()
        CUID = M1.MaxId("m", "userId")
        CSID = GetSpilOwner(Val(Session("CurrentSponsor").ToString))
        ''CFID = M1.ExecuteQueryAndReturnValue("Select frID From p Where pin=" & CPin)
        'SB1.Append("INSERT INTO m(userId,memberId,parentId,spilOwner,refId,wing,joinDate,MemberName,address,birthDate,emailId,city,pincode,")
        'SB1.Append("stateId,mobile,accHolder,bankName,branchName,bankCity,BusinessValue,accType,accNo,ifsccode,panNo,pwd,frId,isFr,isRoyal,")
        'SB1.Append("isBinary,delmark,isPromoter,isVerified,productID,Nominm,Nomirel) VALUES (" & CUID & "," & CMID & ",")
        'SB1.Append(CPID & "," & CSID & "," & Val(Session("CurrentSponsor").ToString) & "," & CWing & ",'" & M1.indianDate.ToString("dd-MMM-yyyy") & "','" & UCase(TxtName.Text))
        'SB1.Append("','" & UCase(TxtAdd.Text) & "','" & GMDBDate.Date.ToString("dd-MMM-yyyy") & "','" & TxtEMail.Text & "','" & UCase(TxtCity.Text))
        'SB1.Append("','" & TxtPinCode.Text & "'," & Val(CmbState.SelectedItem.Value) & ",'" & TxtMobile.Text & "','" & UCase(TxtACName.Text))
        'SB1.Append("','" & UCase(TxtBName.Text) & "','" & UCase(TxtBrName.Text) & "','" & UCase(TxtBCity.Text) & "'," & CBV & ",'")
        'SB1.Append(UCase(TxtACType.Text) & "','" & UCase(TxtACNo.Text) & "','" & UCase(TxtIFSCCoce.Text) & "','" & UCase(TxtPANNo.Text))
        'SB1.Append("','" & TxtPWD.Text & "'," & CFID & ",0,0,0,0,0," & IsVery123 & "," & CPrdID123 & ",'" & UCase(TxtNName.Text) & "','" & UCase(TxtRelation.Text) & "');")
        'SB1.Append("Update p Set allocateId=" & CUID & " where pin=" & CPin & ";")
        'If Val(DR1!pinTyp) = 2 Then
        '    Dim NDDet As Date
        '    If DR1("ProductTypeID").ToString = "5" Then
        '        If DR1("PlanPercent").ToString = "0" Then
        '            NDDet = M1.indianDate.AddMonths(Val(DR1("PlanMonths").ToString))
        '            NDDet = DateSerial(NDDet.Year, NDDet.Month, 15)
        '            SB1.Append("INSERT INTO md(UsedPIN,MemberID,InvestDate,InvestAmt,PrdId,NextIDate,RemainingMonth,BusinessValue) VALUES (" & CPin & "," & CUID & ",")
        '            SB1.Append("'" & M1.indianDate.ToString("dd-MMM-yyyy") & "'," & Val(DR1!planAmt) & "," & Val(DR1!prdId) & ",'" & NDDet & "',1," & Val(DR1!BusinessValue) & ");")
        '        Else
        '            NDDet = M1.indianDate.AddMonths(2)
        '            NDDet = DateSerial(NDDet.Year, NDDet.Month, 15)
        '            SB1.Append("INSERT INTO md(UsedPIN,MemberID,InvestDate,InvestAmt,PrdId,NextIDate,RemainingMonth,BusinessValue) VALUES (" & CPin & "," & CUID & ",")
        '            SB1.Append("'" & M1.indianDate.ToString("dd-MMM-yyyy") & "'," & Val(DR1!planAmt) & "," & Val(DR1!prdId) & ",'" & NDDet.ToString("dd-MMM-yyyy") & "'," & Val(DR1("PlanMonths").ToString) & "," & Val(DR1!BusinessValue) & ");")
        '        End If
        '    Else
        '        SB1.Append("INSERT INTO md(UsedPIN,MemberID,InvestDate,InvestAmt,PrdId,BusinessValue) VALUES (" & CPin & "," & CUID & ",")
        '        SB1.Append("'" & M1.indianDate.ToString("dd-MMM-yyyy") & "'," & Val(DR1!planAmt) & "," & Val(DR1!prdId) & "," & Val(DR1!BusinessValue) & ");")
        '    End If
        '    SB1.Append("EXEC SetIsBinary " & CPID & ";")
        '    If Val(Session("CurrentSponsor").ToString) <> CPID Then
        '        SB1.Append("EXEC SetIsBinary " & Val(Session("CurrentSponsor").ToString) & ";")
        '    End If
        'End If
        'If M1.ExecuteQuery(SB1.ToString) = True Then
        '    Call M1.SendSMS(TxtMobile.Text, TxtName.Text & ", Welcome To www.mysigma.in. Your User ID-" & CMID.ToString & ",Password-" & TxtPWD.Text)
        '    Session("RegDoneUID") = CMID
        '    Session("RegDonePWD") = TxtPWD.Text
        '    Response.Redirect("RegDone.aspx")
        'Else
        '    Call M1.ShowMsg(Me, "New Registration Failed.")
        'End If


        'CFID = M1.ExecuteQueryAndReturnValue("Select frID From p Where pin=" & CPin)
        'CFID = 0
        'SB1.Append("INSERT INTO m(userId,memberId,parentId,spilOwner,refId,wing,joinDate,MemberName,address,birthDate,emailId,city,pincode,")
        'SB1.Append("stateId,mobile,accHolder,bankName,branchName,bankCity,BusinessValue,accType,accNo,ifsccode,panNo,pwd,frId,isFr,isRoyal,")
        'SB1.Append("isBinary,delmark,isPromoter,isVerified,productID,Nominm,Nomirel,flag) VALUES (" & CUID & "," & CMID & ",")
        'SB1.Append(CPID & "," & CSID & "," & Val(Session("CurrentSponsor").ToString) & "," & CWing & ",'" & M1.indianDate.ToString("dd-MMM-yyyy") & "','" & UCase(TxtName.Text))
        'SB1.Append("','" & UCase(TxtAdd.Text) & "','" & GMDBDate.Date.ToString("dd-MMM-yyyy") & "','" & TxtEMail.Text & "','" & UCase(TxtCity.Text))
        'SB1.Append("','" & TxtPinCode.Text & "'," & Val(CmbState.SelectedItem.Value) & ",'" & TxtMobile.Text & "','" & UCase(TxtACName.Text))
        'SB1.Append("','" & UCase(TxtBName.Text) & "','" & UCase(TxtBrName.Text) & "','" & UCase(TxtBCity.Text) & "'," & CBV & ",'")
        'SB1.Append(UCase(TxtACType.Text) & "','" & UCase(TxtACNo.Text) & "','" & UCase(TxtIFSCCoce.Text) & "','" & UCase(TxtPANNo.Text))
        'SB1.Append("','" & TxtPWD.Text & "'," & CFID & ",0,0,0,0,0," & IsVery123 & "," & CPrdID123 & ",'" & UCase(TxtNName.Text) & "','" & UCase(TxtRelation.Text) & "'," & flagChk & ");")
        'SB1.Append("Update p Set allocateId=" & CUID & " where pin=" & CPin & ";")
        'If Val(DR1!pinTyp) = 2 Then
        '    Dim NDDet As Date
        '    If DR1("ProductTypeID").ToString = "5" Then
        '        If DR1("PlanPercent").ToString = "0" Then
        '            NDDet = M1.indianDate.AddMonths(Val(DR1("PlanMonths").ToString))
        '            NDDet = DateSerial(NDDet.Year, NDDet.Month, 15)
        '            SB1.Append("INSERT INTO md(UsedPIN,MemberID,InvestDate,InvestAmt,PrdId,NextIDate,RemainingMonth,BusinessValue) VALUES (" & CPin & "," & CUID & ",")
        '            SB1.Append("'" & M1.indianDate.ToString("dd-MMM-yyyy") & "'," & Val(DR1!planAmt) & "," & Val(DR1!prdId) & ",'" & NDDet & "',1," & Val(DR1!BusinessValue) & ");")
        '        Else
        '            NDDet = M1.indianDate.AddMonths(2)
        '            NDDet = DateSerial(NDDet.Year, NDDet.Month, 15)
        '            SB1.Append("INSERT INTO md(UsedPIN,MemberID,InvestDate,InvestAmt,PrdId,NextIDate,RemainingMonth,BusinessValue) VALUES (" & CPin & "," & CUID & ",")
        '            SB1.Append("'" & M1.indianDate.ToString("dd-MMM-yyyy") & "'," & Val(DR1!planAmt) & "," & Val(DR1!prdId) & ",'" & NDDet.ToString("dd-MMM-yyyy") & "'," & Val(DR1("PlanMonths").ToString) & "," & Val(DR1!BusinessValue) & ");")
        '        End If
        '    Else
        '        SB1.Append("INSERT INTO md(UsedPIN,MemberID,InvestDate,InvestAmt,PrdId,BusinessValue) VALUES (" & CPin & "," & CUID & ",")
        '        SB1.Append("'" & M1.indianDate.ToString("dd-MMM-yyyy") & "'," & Val(DR1!planAmt) & "," & Val(DR1!prdId) & "," & Val(DR1!BusinessValue) & ");")
        '    End If
        ' SB1.Append("EXEC SetIsBinary " & CPID & ";")
        ' If Val(Session("CurrentSponsor").ToString) <> CPID Then
        '       SB1.Append("EXEC SetIsBinary " & Val(Session("CurrentSponsor").ToString) & ";")
        'End If
        'End If

        CFID = 0
        SB1.Append("INSERT INTO m(userId,memberId,parentId,spilOwner,refId,wing,joinDate,MemberName,address,birthDate,emailId,city,pincode,")
        SB1.Append("stateId,mobile,accHolder,bankName,branchName,bankCity,BusinessValue,accType,accNo,ifsccode,panNo,pwd,frId,isFr,isRoyal,")
        SB1.Append("isBinary,delmark,isPromoter,isVerified,productID,Nominm,Nomirel,flag) VALUES (" & CUID & "," & CMID & ",")
        SB1.Append(CPID & "," & CSID & "," & Val(Session("CurrentSponsor").ToString) & "," & CWing & ",'" & M1.indianDate.ToString("dd-MMM-yyyy") & "','" & UCase(TxtName.Text))
        SB1.Append("','" & UCase(TxtAdd.Text) & "','" & GMDBDate.Date.ToString("dd-MMM-yyyy") & "','" & TxtEMail.Text & "','" & UCase(TxtCity.Text))
        SB1.Append("','" & TxtPinCode.Text & "'," & Val(CmbState.SelectedItem.Value) & ",'" & TxtMobile.Text & "','" & UCase(TxtACName.Text))
        SB1.Append("','" & UCase(TxtBName.Text) & "','" & UCase(TxtBrName.Text) & "','" & UCase(TxtBCity.Text) & "'," & CBV & ",'")
        SB1.Append(UCase(TxtACType.Text) & "','" & UCase(TxtACNo.Text) & "','" & UCase(TxtIFSCCoce.Text) & "','" & UCase(TxtPANNo.Text))
        SB1.Append("','" & TxtPWD.Text & "'," & CFID & ",0,0,1,0,0," & IsVery123 & "," & CPrdID123 & ",'" & UCase(TxtNName.Text) & "','" & UCase(TxtRelation.Text) & "'," & flagChk & ");")

        '        Dim record As String
        '        record = M1.ExecuteQueryAndReturnValue("INSERT INTO m(userId,memberId,parentId,spilOwner,refId,wing,joinDate,MemberName,address,birthDate,emailId,city,pincode,stateId,mobile,accHolder,bankName,branchName,bankCity,BusinessValue,accType,accNo,ifsccode,panNo,pwd,frId,isFr,isRoyal,isBinary,delmark,isPromoter,isVerified,productID,Nominm,Nomirel,flag")
        'values(" & CUID & "," & CMID & ","CPID & "," & CSID & "," & Val(Session("CurrentSponsor").ToString) & "," & CWing & ",'" & M1.indianDate.ToString("dd-MMM-yyyy") & "','" & UCase(TxtName.Text)"','" & UCase(TxtAdd.Text) & "','" & GMDBDate.Date.ToString("dd-MMM-yyyy") & "','" & TxtEMail.Text & "','" & UCase(TxtCity.Text)&"'
        '        "','" & TxtPinCode.Text & "'," & Val(CmbState.SelectedItem.Value) & ",'" & TxtMobile.Text & "','" & UCase(TxtACName.Text)"','" & UCase(TxtBName.Text) & "','" & UCase(TxtBrName.Text) & "','" & UCase(TxtBCity.Text) & "'," & CBV & ",'"
        '        UCase(TxtACType.Text) & "','" & UCase(TxtACNo.Text) & "','" & UCase(TxtIFSCCoce.Text) & "','" & UCase(TxtPANNo.Text)"','" & TxtPWD.Text & "'," & CFID & ",0,0,0,0,0," & IsVery123 & "," & CPrdID123 & ",'" & UCase(TxtNName.Text) & "','" & UCase(TxtRelation.Text) & "'," & flagChk & "))

        If M1.ExecuteQuery(SB1.ToString) = True Then
            Call M1.SendSMS(TxtMobile.Text, TxtName.Text & ", Welcome To www.mysigma.in. Your User ID-" & CMID.ToString & ",Password-" & TxtPWD.Text)
            Session("RegDoneUID") = CMID
            Session("RegDonePWD") = TxtPWD.Text
            Response.Redirect("RegDone.aspx")
            Label3.Text = "Data SAVED Successfully"
        Else
            Call M1.ShowMsg(Me, "New Registration Failed.")
        End If


    End Sub
    Protected Sub CmdSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmdSave.Click
        Label3.Text = TxtSID.Text
        Label4.Text = CmbWing.SelectedItem.Text
        Label5.Text = TxtName.Text
        Label6.Text = TxtAdd.Text
        Label7.Text = TxtCity.Text
        Label8.Text = TxtPinCode.Text
        Label9.Text = GMDBDate.Date.ToString("dd-MMM-yyyy")
        Label10.Text = CmbState.SelectedItem.Text
        Label11.Text = TxtEMail.Text
        Label12.Text = TxtMobile.Text
        Label13.Text = TxtPANNo.Text
        Label14.Text = TxtACName.Text
        Label15.Text = TxtBName.Text
        Label16.Text = TxtBrName.Text
        Label17.Text = TxtBCity.Text
        Label18.Text = TxtACType.Text
        Label19.Text = TxtACNo.Text
        Label20.Text = TxtIFSCCoce.Text
        Label21.Text = TxtNName.Text
        Label22.Text = TxtPWD.Text
        Label23.Text = TxtCPwd.Text
        Label2.Text = "Would You Like To Save This Data.To SAVE Click on 'OK',Otherwise Click on 'CANCEL' "
        ModalPopupExtender1.Show()
  
    End Sub
Posted
Updated 12-May-11 8:43am
v2
Add a Solution
Comments
Marc A. Brown 12-May-11 14:44pm    
FYI: You may have a hard time getting anyone to wade through this gigantic code dump to help you figure out your answer. Perhaps you could trim out the unnecessary parts?

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
Top Experts
Last 24hrsThis month
Related Questions
modal popup ajax control
Modal popup control ajax
Ajax modal popup extender
Xamarin save data to database
C sharp ajax modal popup extender
Show data from the database
i want to show madal pop up of AJAX with two buttons in pop up window
Modal Popup Extender
Modal yes/no popup on an button in the control from the page codebehind
display loading wheel on ajax modal popup

Advertise
Privacy
Cookies
Terms of Use
Last Updated 12 May 2011
Layout: fixed | fluid
Copyright © CodeProject, 1999-2024
All Rights Reserved.

Web03 2.8:2024-04-02:1

CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900