Respected Sir,
Please help me out.
Thank you
Error:
Server Error in '/' Application.
Compilation Error
Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately.
Compiler Error Message: BC30451: Name 'SubIds' is not declared.
Source Error:
| |
Line 41: 'End If
Line 42: Dim dv As DataView
Line 43: SubIds As String = "", Line 44: SelectedDetails As String() = Session("SubClassIds").ToString().Split(",")
Line 45: divShowClassList.Visible = True
|
Source File: h:\root\home\atiluri-001\www\site1\Pages\eyp.aspx.vb Line: 43
Compiler Warning Messages:
Show Detailed Compiler Output:
Version Information: Microsoft .NET Framework Version:2.0.50727.6400; ASP.NET Version:2.0.50727.6387
Imports System.Data
Imports System.IO
Partial Class ClassEnroll
Inherits System.Web.UI.Page
Dim SearchString As String
Shared strMonths As String
Dim strFrom, strBcc As String
Dim strSubject As String
Dim strMessage As String
Dim status As Boolean
Dim path As String
Dim parentId As Integer
Public strPath, ClassMinAge, ClassMaxAge As String
Public IsEYP As Boolean = False
Protected Sub page_init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
CType(Page.Master.FindControl("ContentPlaceHolder1").FindControl("divFindLoc"), HtmlGenericControl).Visible = True
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
strPath = GenValidations.GetRedirectPath(Session("City"))
If Not IsPostBack Then
If Request.QueryString("Mode") = "Edit" Then
If Session("UserId") Is Nothing Then
'If Session("SubClassIds") Is Nothing Or Request.QueryString("Mode") = "" Or Request.QueryString("Mode") Is Nothing Then
'Response.Redirect(strPath)
RedirectToCalPage()
'Response.Write("UserId")
End If
End If
If IsNothing(Request("Type")) Then
'If IsNothing(Request.UrlReferrer) Then
' Session("SubClassIds") = Nothing
'ElseIf Request.UrlReferrer.ToString().ToLower().IndexOf("calender_enroll") = -1 And Request.UrlReferrer.ToString().ToLower().IndexOf("/city/") = -1 Then
' Session("SubClassIds") = Nothing
'End If
If (Not IsNothing(Session("SubClassIds")) AndAlso Session("SubClassIds").ToString().Trim().Length > 0) Then 'Or (Not IsNothing(Request("t")) AndAlso Request("t") <> "") Then
'If IsNothing(Session("SubClassIds")) And Request("t") <> "" Then
' Session("SubClassIds") = Request("t").ToString().Replace("|", "&")
End If
Dim dv As DataView
Dim SubIds As String = ""
Dim SelectedDetails As String() = Session("SubClassIds").ToString().Split(",")
divShowClassList.Visible = True
lblSelectedClasses.Text = "Selected Classes Are <br/>"
If SelectedDetails.Length > 0 Then
For Each value As String In SelectedDetails
SubIds += value.Split("&")(0) + ","
Next
SubIds = SubIds.Trim(",")
'SubIds = "'" + SubIds + "'"
Dim dsSubClasses = New ClassBF().GetSubClasses(SubIds)
Dim Classes As String = ""
html1 = "<td style='border:none;padding:7.5pt 7.5pt 7.5pt 7.5pt'><p class='MsoNormal'>",
html2 = "</p></td>"
For Each value As String In SelectedDetails
dv = dsSubClasses.Tables(0).DefaultView
Dim values = value.Split("&"), ClassDate = New Date(values(4)), dateWithSuffix = getOrdinalSuffix(ClassDate.Day)
dv.RowFilter = "SubClassId=" + values(0)
ClassMinAge = GenValidations.GetIntegerValue(dv.Item(0)(clsClass.MINAGE_FIELD))
ClassMaxAge = GenValidations.GetIntegerValue(dv.Item(0)(clsClass.MAXAGE_FIELD))
lblSelectedClasses.Text += "   Sub-Class : <h3>" + GenValidations.GetStringValue(dv.Item(0)("SubClass")) + "</h3>"
lblSelectedClasses.Text += "   <h3> " & dv.Item(0)("MinAge") & " - " & dv.Item(0)("MaxAge") & "  Months"
lblSelectedClasses.Text += "</h3>   <h3> " + values(1)
lblSelectedClasses.Text += "</h3>   <h3> " + values(2)
lblSelectedClasses.Text += IIf(IsNothing(values(3)), "", " - " + values(3)) & "</h3>"
lblSelectedClasses.Text += " <h3> On " & ClassDate.Day & "<span style='vertical-align: top; font-size: 9px;'>" & dateWithSuffix.Substring(dateWithSuffix.Length - 2) & "</span> " & GenValidations.getMonth(ClassDate.Month) & ", " & ClassDate.Year & "</h3>"
lblSelectedClasses.Text += "<br/>"
Classes = Classes & "<tr>" & html1 & GenValidations.GetStringValue(dv.Item(0)("SubClass")) & html2 & html1 & values(1) & html2 & html1 & values(2) & html2 & html1 & ClassDate.Day & "<span style='vertical-align: top; font-size: 9px;'>" & dateWithSuffix.Substring(dateWithSuffix.Length - 2) & "</span> " & GenValidations.getMonth(ClassDate.Month) & ", " & ClassDate.Year & html2 & "</tr>"
Next
ViewState("Classes") = Classes
lblSelectedClasses.Text += "<br/>"
End If
Else
'Response.Write("Ids" + Session("SubClassIds"))
RedirectToCalPage()
End If
'BindDate()
'BindMonth()
'BindYear()
BindPersonalDate()
If Request.QueryString("Mode") <> "" And Not Request.QueryString("Mode") Is Nothing Then
If Request.QueryString("Mode") = "Edit" Or Not Session("UserId") Is Nothing Then
BindParentDetails()
'BindChildrenDetails()
End If
End If
ElseIf GenValidations.GetStringValue(Request("Type")).ToLower() = "contact" Then
lblHeaderText.Text = "Contact Us"
ElseIf GenValidations.GetStringValue(Request("Type")).ToLower() = "eyp" Then
imgleft.Src = "../images/eyp.png"
imgleft.Attributes("height") = "320"
divEYPdesc.Visible = True
lblHeaderText.Text = "EARLY YEARS PROGRAM (PlayGroup)"
divChildInfo.Style("display") = "none"
divChildInfoHead.Style("display") = "none"
Me.Title = "Gymboree Play & Music: EARLY YEARS PROGRAM (PLAYGROUP)"
IsEYP = True
divEYP.Visible = True
divCenter.Style("display") = "none"
BindEYPImages()
Else
RedirectToCalPage()
End If
BindCenters()
rvDOB.MaximumValue = Today.Date()
rvDOB.MinimumValue = Today.Date().AddYears(-5)
Dim MyStyle As New Style
MyStyle.ForeColor = Drawing.Color.Yellow
Dim mpContentPlaceHolder As ContentPlaceHolder
Dim LnkBtnAdmin As LinkButton
mpContentPlaceHolder = _
CType(Master.FindControl("ContentPlaceHolder1"), _
ContentPlaceHolder)
If Not mpContentPlaceHolder Is Nothing Then
LnkBtnAdmin = CType(mpContentPlaceHolder. _
FindControl("LnkBtnClasses"), LinkButton)
If Not LnkBtnAdmin Is Nothing Then
LnkBtnAdmin.ApplyStyle(MyStyle)
End If
End If
End If
'If lblErrorMsg.Text = "" Then
' divError.InnerHtml = " "
'End If
ancEroll.HRef = GenValidations.GetRedirectPath(Session("City"))
End Sub
Private Sub RedirectToCalPage()
If IsNothing(Request.UrlReferrer) Then
Response.Redirect(strPath, True)
Else
Response.Redirect(Request.UrlReferrer.ToString(), True)
End If
End Sub
Protected Sub BindPersonalDate()
Dim objParentChildDetails = New ParentDetailsBF().GetParentDetailsById(Session("UserId"))
If Not IsNothing(objParentChildDetails) Then
If objParentChildDetails.Tables.Count > 0 Then
If objParentChildDetails.Tables(1).Rows.Count > 0 Then
If objParentChildDetails.Tables(1).Rows.Count > 1 Then
selchild.Visible = True
ddlChilds.Visible = True
ddlChilds.DataSource = objParentChildDetails.Tables(1)
ddlChilds.DataValueField = clsChildrenDetails.CHILDID_FIELD
ddlChilds.DataTextField = clsChildrenDetails.CHILDNAME_FIELD
ddlChilds.DataBind()
ddlChilds.Items.Add(New ListItem("Add New Child", "0"))
ddlChilds.SelectedValue = IIf(IsNothing(Request("ChildId")), 0, Convert.ToInt32(Request("ChildId")))
divChildInfo.Style("display") = IIf(ddlChilds.SelectedValue = 0, "block", "none")
End If
End If
End If
End If
End Sub
Private Sub BindDate()
Dim dsDate As New DataSet
Dim dr As DataRow
Dim iLoop As Integer
dsDate.Tables.Add()
dsDate.Tables(0).Columns.Clear()
dsDate.Tables(0).Columns.Add("Date")
Try
For iLoop = 1 To 31
dr = dsDate.Tables(0).NewRow
If iLoop.ToString.Length = 1 Then
dr(0) = "0" & iLoop
Else
dr(0) = iLoop
End If
dsDate.Tables(0).Rows.Add(dr)
Next
If Not dsDate Is Nothing Then
If dsDate.Tables.Count > 0 Then
If dsDate.Tables(0).Rows.Count > 0 Then
ddlFirstChildDate.DataSource = dsDate.Tables(0).DefaultView
ddlSecondChildDate.DataSource = dsDate.Tables(0).DefaultView
ddlThirdChildDate.DataSource = dsDate.Tables(0).DefaultView
ddlFirstChildDate.DataTextField = "Date"
ddlSecondChildDate.DataTextField = "Date"
ddlThirdChildDate.DataTextField = "Date"
ddlFirstChildDate.DataValueField = "Date"
ddlSecondChildDate.DataValueField = "Date"
ddlThirdChildDate.DataValueField = "Date"
ddlFirstChildDate.DataBind()
ddlSecondChildDate.DataBind()
ddlThirdChildDate.DataBind()
ddlFirstChildDate.Items.Insert(0, New ListItem("--", -1))
ddlSecondChildDate.Items.Insert(0, New ListItem("--", -1))
ddlThirdChildDate.Items.Insert(0, New ListItem("--", -1))
Else
ddlFirstChildDate.DataSource = Nothing
ddlFirstChildDate.DataBind()
ddlFirstChildDate.Items.Insert(0, New ListItem("--", -1))
ddlSecondChildDate.DataSource = Nothing
ddlSecondChildDate.DataBind()
ddlSecondChildDate.Items.Insert(0, New ListItem("--", -1))
ddlThirdChildDate.DataSource = Nothing
ddlThirdChildDate.DataBind()
ddlThirdChildDate.Items.Insert(0, New ListItem("--", -1))
End If
Else
ddlFirstChildDate.DataSource = Nothing
ddlFirstChildDate.DataBind()
ddlFirstChildDate.Items.Insert(0, New ListItem("--", -1))
ddlSecondChildDate.DataSource = Nothing
ddlSecondChildDate.DataBind()
ddlSecondChildDate.Items.Insert(0, New ListItem("--", -1))
ddlThirdChildDate.DataSource = Nothing
ddlThirdChildDate.DataBind()
ddlThirdChildDate.Items.Insert(0, New ListItem("--", -1))
End If
Else
ddlFirstChildDate.DataSource = Nothing
ddlFirstChildDate.DataBind()
ddlFirstChildDate.Items.Insert(0, New ListItem("--", -1))
ddlSecondChildDate.DataSource = Nothing
ddlSecondChildDate.DataBind()
ddlSecondChildDate.Items.Insert(0, New ListItem("--", -1))
ddlThirdChildDate.DataSource = Nothing
ddlThirdChildDate.DataBind()
ddlThirdChildDate.Items.Insert(0, New ListItem("--", -1))
End If
Catch ex As Exception
With New ErrorLogBF()
.InsertErrorLog(ex.Message(), "bindDate", "ClassEnroll.aspx.vb", ex.Message(), ex.Source, ex.StackTrace, Now())
End With
End Try
End Sub
Private Sub BindYear()
Dim intYear As Integer
Dim dsYear As New DataSet
Dim dr As DataRow
Dim iLoop As Integer
dsYear.Tables.Add()
dsYear.Tables(0).Columns.Clear()
dsYear.Tables(0).Columns.Add("Year")
intYear = Today.Year
Try
For iLoop = intYear - 5 To intYear
dr = dsYear.Tables(0).NewRow
dr(0) = iLoop
dsYear.Tables(0).Rows.Add(dr)
Next
If Not dsYear Is Nothing Then
If dsYear.Tables.Count > 0 Then
If dsYear.Tables(0).Rows.Count > 0 Then
ddlFirstChildYear.DataSource = dsYear.Tables(0).DefaultView
ddlSecondChildYear.DataSource = dsYear.Tables(0).DefaultView
ddlThirdChildYear.DataSource = dsYear.Tables(0).DefaultView
ddlFirstChildYear.DataTextField = "Year"
ddlSecondChildYear.DataTextField = "Year"
ddlThirdChildYear.DataTextField = "Year"
ddlFirstChildYear.DataValueField = "Year"
ddlSecondChildYear.DataValueField = "Year"
ddlThirdChildYear.DataValueField = "Year"
ddlFirstChildYear.DataBind()
ddlSecondChildYear.DataBind()
ddlThirdChildYear.DataBind()
ddlFirstChildYear.Items.Insert(0, New ListItem("----", -1))
ddlSecondChildYear.Items.Insert(0, New ListItem("----", -1))
ddlThirdChildYear.Items.Insert(0, New ListItem("----", -1))
Else
ddlFirstChildYear.DataSource = Nothing
ddlFirstChildYear.DataBind()
ddlFirstChildYear.Items.Insert(0, New ListItem("--", -1))
ddlSecondChildYear.DataSource = Nothing
ddlSecondChildYear.DataBind()
ddlSecondChildYear.Items.Insert(0, New ListItem("--", -1))
ddlThirdChildYear.DataSource = Nothing
ddlThirdChildYear.DataBind()
ddlThirdChildYear.Items.Insert(0, New ListItem("--", -1))
End If
Else
ddlFirstChildYear.DataSource = Nothing
ddlFirstChildYear.DataBind()
ddlFirstChildYear.Items.Insert(0, New ListItem("--", -1))
ddlSecondChildYear.DataSource = Nothing
ddlSecondChildYear.DataBind()
ddlSecondChildYear.Items.Insert(0, New ListItem("--", -1))
ddlThirdChildYear.DataSource = Nothing
ddlThirdChildYear.DataBind()
ddlThirdChildYear.Items.Insert(0, New ListItem("--", -1))
End If
Else
ddlFirstChildYear.DataSource = Nothing
ddlFirstChildYear.DataBind()
ddlFirstChildYear.Items.Insert(0, New ListItem("--", -1))
ddlSecondChildYear.DataSource = Nothing
ddlSecondChildYear.DataBind()
ddlSecondChildYear.Items.Insert(0, New ListItem("--", -1))
ddlThirdChildYear.DataSource = Nothing
ddlThirdChildYear.DataBind()
ddlThirdChildYear.Items.Insert(0, New ListItem("--", -1))
End If
Catch ex As Exception
With New ErrorLogBF()
.InsertErrorLog(ex.Message(), "bindYear", "ClassEnroll.aspx.vb", ex.Message(), ex.Source, ex.StackTrace, Now())
End With
End Try
End Sub
Private Sub BindMonth()
Dim dsMonth As New DataSet
Dim dr As DataRow
Dim iLoop As Integer
dsMonth.Tables.Add()
dsMonth.Tables(0).Columns.Clear()
dsMonth.Tables(0).Columns.Add("Month")
Try
For iLoop = 1 To 12
dr = dsMonth.Tables(0).NewRow
If iLoop.ToString.Length = 1 Then
dr(0) = "0" & iLoop
Else
dr(0) = iLoop
End If
dsMonth.Tables(0).Rows.Add(dr)
Next
If Not dsMonth Is Nothing Then
If dsMonth.Tables.Count > 0 Then
If dsMonth.Tables(0).Rows.Count > 0 Then
ddlFirstChildMonth.DataSource = dsMonth.Tables(0).DefaultView
ddlSecondChildMonth.DataSource = dsMonth.Tables(0).DefaultView
ddlThirdChildMonth.DataSource = dsMonth.Tables(0).DefaultView
ddlFirstChildMonth.DataTextField = "Month"
ddlSecondChildMonth.DataTextField = "Month"
ddlThirdChildMonth.DataTextField = "Month"
ddlFirstChildMonth.DataValueField = "Month"
ddlSecondChildMonth.DataValueField = "Month"
ddlThirdChildMonth.DataValueField = "Month"
ddlFirstChildMonth.DataBind()
ddlSecondChildMonth.DataBind()
ddlThirdChildMonth.DataBind()
ddlFirstChildMonth.Items.Insert(0, New ListItem("--", -1))
ddlSecondChildMonth.Items.Insert(0, New ListItem("--", -1))
ddlThirdChildMonth.Items.Insert(0, New ListItem("--", -1))
Else
ddlFirstChildMonth.DataSource = Nothing
ddlFirstChildMonth.DataBind()
ddlFirstChildMonth.Items.Insert(0, New ListItem("--", -1))
ddlSecondChildMonth.DataSource = Nothing
ddlSecondChildMonth.DataBind()
ddlSecondChildMonth.Items.Insert(0, New ListItem("--", -1))
ddlThirdChildMonth.DataSource = Nothing
ddlThirdChildMonth.DataBind()
ddlThirdChildMonth.Items.Insert(0, New ListItem("--", -1))
End If
Else
ddlFirstChildMonth.DataSource = Nothing
ddlFirstChildMonth.DataBind()
ddlFirstChildMonth.Items.Insert(0, New ListItem("--", -1))
ddlSecondChildMonth.DataSource = Nothing
ddlSecondChildMonth.DataBind()
ddlSecondChildMonth.Items.Insert(0, New ListItem("--", -1))
ddlThirdChildMonth.DataSource = Nothing
ddlThirdChildMonth.DataBind()
ddlThirdChildMonth.Items.Insert(0, New ListItem("--", -1))
End If
Else
ddlFirstChildMonth.DataSource = Nothing
ddlFirstChildMonth.DataBind()
ddlFirstChildMonth.Items.Insert(0, New ListItem("--", -1))
ddlSecondChildMonth.DataSource = Nothing
ddlSecondChildMonth.DataBind()
ddlSecondChildMonth.Items.Insert(0, New ListItem("--", -1))
ddlThirdChildMonth.DataSource = Nothing
ddlThirdChildMonth.DataBind()
ddlThirdChildMonth.Items.Insert(0, New ListItem("--", -1))
End If
Catch ex As Exception
With New ErrorLogBF()
.InsertErrorLog(ex.Message(), "bindMonth", "ClassEnroll.aspx.vb", ex.Message(), ex.Source, ex.StackTrace, Now())
End With
End Try
End Sub
Protected Sub ibtSubmit_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ibtSubmit.Click, ImageButton1.Click
'If Request.QueryString("Mode") = "Edit" Then
' If Session("UserId") Is Nothing Or Request.QueryString("Mode") = "" Or Request.QueryString("Mode") Is Nothing Then
' Response.Redirect(strPath)
' End If
'End If
Dim ObjCenter As New clsCenter(), strCenterEmail As String = ""
If ddlCenter.SelectedValue <> "-1" Or ddlCenter.SelectedValue <> "0" Then
ObjCenter = New CenterBF().GetCenterById(ddlCenter.SelectedValue)
End If
If Not IsNothing(ObjCenter) Then
If ObjCenter.Tables.Count > 0 Then
If ObjCenter.Tables(0).Rows.Count > 0 Then
strCenterEmail = GenValidations.GetStringValue(ObjCenter.Tables(0).Rows(0)(clsCenter.EMAIL_FIELD))
End If
End If
End If
Dim strTo = "", strCBcc = "" '"webenquiry@gymboree.co.in ,fun@gymboree.co.in"
strFrom = ConfigurationManager.AppSettings("Support").ToString()
If IsNothing(Request("Type")) Then
If Not IsNothing(Session("SubClassIds")) Then
If Session("SubClassIds").ToString() <> "" Then
Dim childId As Integer
If SaveParentDetails() Then
If ddlChilds.SelectedValue = 0 Then
childId = AddChild()
Else
childId = Convert.ToInt32(ddlChilds.SelectedValue)
End If
If childId > 0 Then
Dim objChildClassesDetails As New clsChildrenClassesDetails
Dim SubId As String = Session("SubClassIds").ToString()
Dim SubIds As String() = SubId.Split(New Char() {","})
Dim RowsCount As Integer = SubIds.Length
For value As Integer = 0 To RowsCount - 1
Dim DRow1 As DataRow = objChildClassesDetails.Tables(0).NewRow
With DRow1
.Item(clsChildrenClassesDetails.CHILDID_FIELD) = childId
.Item(clsChildrenClassesDetails.ISPAID_FIELD) = 0
.Item(clsChildrenClassesDetails.CLASSTYPEID_FIELD) = 1
.Item(clsChildrenClassesDetails.SELECTEDDAY_FIELD) = SubIds(value).Split("&")(1)
.Item(clsChildrenClassesDetails.SELECTEDTIMING_FIELD) = SubIds(value).Split("&")(2)
.Item(clsChildrenClassesDetails.SUBCLASSID_FIELD) = SubIds(value).Split("&")(0)
.Item(clsChildrenClassesDetails.MAINCLASSID_FIELD) = 1
If Not IsNothing(Session("IsDemoSelected")) Then
.Item(clsChildrenClassesDetails.ISDEMOSELECTED_FIELD) = Session("IsDemoSelected")
Else
.Item(clsChildrenClassesDetails.ISDEMOSELECTED_FIELD) = 0
End If
End With
objChildClassesDetails.Tables(0).Rows.Add(DRow1)
Next
Dim lonreturn As Integer
With New ChildrenClassesDetailsBF
.CreateChildrenClassesDetails(objChildClassesDetails, lonreturn)
End With
If lonreturn > 0 Then
If IsNothing(Session("UserId")) Then
strMessage = strMessage.Replace("{{tbody}}", ViewState("Classes").ToString())
strBcc = ConfigurationManager.AppSettings("MailAyanti").ToString()
strBcc += "," & ConfigurationManager.AppSettings("MailRachana").ToString()
'Dim boolNotHyderabad = strCenterEmail.ToLower.IndexOf("mumbai") <> -1 Or strCenterEmail.ToLower.IndexOf("delhi") <> -1
'strBcc += IIf(boolNotHyderabad, ", " & ConfigurationManager.AppSettings("MailNikita").ToString(), "")
strBcc += "," & ConfigurationManager.AppSettings("MailNikita").ToString()
strBcc += "," & strFrom
If strCenterEmail = "" Then
strTo = strFrom
Else
strTo = strCenterEmail
End If
'status = GenValidations.SendEmailWithTemplate(txtEmail.Text.Trim(), strFrom, strSubject, strMessage, "", "", "Gymboree Admin", strBcc)
status = GenValidations.SendEmailWithTemplate(strTo, strFrom, strSubject, strMessage, "", "", "Gymboree Admin", strBcc)
lblErrorMsg.Text = "WE WILL RESPOND WITHIN 24HRS TO CONFIRM ABOUT YOUR SEAT IN CLASS."
Else
lblErrorMsg.Text = "WE WILL RESPOND WITHIN 24HRS TO CONFIRM ABOUT YOUR SEAT IN CLASS."
End If
divError.Style.Add("display", "none")
PasteGooleAnalytic()
btnOk.PostBackUrl = "../Default.aspx"
End If
Session("SubClassIds") = Nothing
Else
lblErrorMsg.Text = "Child with this name already exists With same Parent"
End If
Else
'lblErrorMsg.Text = "An Error Occured"
End If
Else
lblErrorMsg.Text = "Session Timed out<br/> Please Try again"
divError.Style.Add("display", "none")
btnOk.PostBackUrl = strPath
End If
Else
lblErrorMsg.Text = "Session Timed out<br/> Please Try again"
divError.Style.Add("display", "none")
btnOk.PostBackUrl = strPath
End If
Else
IsEYP = IIf(GenValidations.GetStringValue(Request("Type")) = "EYP", True, False)
strSubject = "Gymboree | Contact Us" & IIf(IsEYP, " | EARLY YEARS PROGRAM (PlayGroup)", "")
strMessage = GenValidations.GetEmailTemplateContent("~/App_Data/ContatUs.htm")
status = False
path = System.Web.Configuration.WebConfigurationManager.AppSettings("path").ToString()
strMessage = strMessage.Replace("{{classes}}", IIf(IsEYP, " EARLY YEARS PROGRAM (PlayGroup)", "Classes"))
strMessage = strMessage.Replace("{{UserName}}", IIf(ddlTitle.SelectedValue <> -1, ddlTitle.SelectedItem.Text.ToString(), "") & " " & txtFirstName.Text.Trim() & " " & txtLastName.Text.Trim())
strMessage = strMessage.Replace("{{Address}}", IIf(String.IsNullOrEmpty(txtAddress.Text.Trim()), "N/A", txtAddress.Text.Trim()))
strMessage = strMessage.Replace("{{Phone}}", IIf(txtTelephone.Text.Trim() = "", "N/A", txtSTD.Text.Trim() & "&nbxp;- " & txtTelephone.Text.Trim()))
strMessage = strMessage.Replace("{{Email}}", txtEmail.Text.Trim())
strMessage = strMessage.Replace("{{Mobile}}", "+91 " & txtMobile.Text.Trim())
strMessage = strMessage.Replace("{{Name}}", txtFirstChildName.Text.Trim())
strMessage = strMessage.Replace("{{Gender}}", ddlFirstChildGender.SelectedItem.Text())
strMessage = strMessage.Replace("{{IsNotEYP}}", IIf(IsEYP, "none", "table-row"))
Dim childDOB As Date
If Date.TryParse(txtDOB.Text, childDOB) Then
Dim formattedDate = Date.Parse(childDOB).ToString("dd") & GenValidations.getDatePostfix(childDOB) & " " & Date.Parse(childDOB).ToString("MMM, yyyy")
Dim Years As Integer = DateDiff(DateInterval.Year, Convert.ToDateTime(childDOB), Date.Now)
Dim Months As Integer = DateDiff(DateInterval.Month, Convert.ToDateTime(childDOB), Date.Now)
Dim age As String = " (" + IIf(Years = 0, "", " " + Years.ToString() + " yr") + IIf(Months = 0, "", " " + Months.ToString() + " Month(s)") + " )"
formattedDate += " " + age
Else
strMessage = strMessage.Replace("{{DOB}}", "")
End If
If IsEYP Then
strTo = "hyderabad@gymboree.co.in"
ElseIf strCenterEmail = "" Then
strTo = IIf(GenValidations.GetStringValue(Request("Source")) = "M", "mumbai@gymboree.co.in", "delhi@gymboree.co.in")
Else
strTo = strCenterEmail
End If
Dim boolNotHyderabad = strCenterEmail.ToLower.IndexOf("mumbai") <> -1 Or strCenterEmail.ToLower.IndexOf("delhi") <> -1
boolNotHyderabad = IIf(IsEYP, False, boolNotHyderabad)
'strCBcc += IIf(boolNotHyderabad, ", " & ConfigurationManager.AppSettings("MailNikita").ToString(), "," & strFrom)
strCBcc = ConfigurationManager.AppSettings("MailAyanti").ToString()
strCBcc += "," & ConfigurationManager.AppSettings("MailRachana").ToString()
strCBcc += "," & ConfigurationManager.AppSettings("MailNikita").ToString()
strCBcc += IIf(boolNotHyderabad, ",hyderabad@gymboree.co.in".ToString(), "")
'status = GenValidations.SendEmailWithTemplate(txtEmail.Text.Trim(), strFrom, strSubject, strMessage, "", "", "Gymboree Admin", strBCC)
status = GenValidations.SendEmailWithTemplate(strTo, strFrom, strSubject, strMessage, "", "", "Gymboree Admin", strCBcc)
lblErrorMsg.Text = "WE WILL RESPOND TO YOUR REQUEST WITHIN 24 HOURS.<br/><br/> REGARDS,<br/> TEAM GYMBOREE."
divError.Style.Add("display", "none")
btnOk.PostBackUrl = path & "Default.aspx"
PasteGooleAnalytic()
End If
End Sub
Private Function SaveParentDetails() As Boolean
If Request.QueryString("Mode") = "Edit" Then
If Session("UserId") Is Nothing Or Request.QueryString("Mode") = "" Or Request.QueryString("Mode") Is Nothing Then
Response.Redirect(strPath)
End If
End If
Dim objParentDetails As New clsParentDetails
Dim lngreturn As Integer
Dim dRow As DataRow = objParentDetails.Tables(0).NewRow
Dim bool As Boolean
Dim ChildExists As Integer = 0
Dim rdpassword As Integer
If Request.QueryString("Mode") <> "" And Not Request.QueryString("Mode") Is Nothing Then
If Request.QueryString("Mode") = "Edit" Then
objParentDetails = ViewState("EditParentDetails")
If Not IsNothing(objParentDetails) Then
If objParentDetails.Tables.Count > 0 Then
If objParentDetails.Tables(0).Rows.Count > 0 Then
dRow = objParentDetails.Tables(0).Rows(0)
End If
End If
End If
End If
Else
Response.Redirect(strPath)
End If
With dRow
If Request.QueryString("Mode") <> "" And Not Request.QueryString("Mode") Is Nothing Then
If Request.QueryString("Mode") = "Edit" Then
.Item(clsParentDetails.USERID_FIELD) = Session("UserId")
End If
Else
Response.Redirect(strPath)
End If
.Item(clsParentDetails.TITLE_FIELD) = ddlTitle.SelectedItem.Text
If txtFirstName.Text.Trim <> "" Then
.Item(clsParentDetails.FIRSTNAME_FIELD) = txtFirstName.Text.Trim
End If
If txtLastName.Text.Trim <> "" Then
.Item(clsParentDetails.LASTNAME_FIELD) = txtLastName.Text.Trim
End If
If txtAddress.Text.Trim <> "" Then
.Item(clsParentDetails.ADDRESS_FIELD) = txtAddress.Text.Trim
End If
If txtSTD.Text.Trim <> "" Then
.Item(clsParentDetails.STDCODE_FIELD) = txtSTD.Text.Trim
End If
If txtTelephone.Text.Trim <> "" Then
.Item(clsParentDetails.TELEPHONE_FIELD) = txtTelephone.Text.Trim
End If
If txtMobile.Text.Trim <> "" Then
.Item(clsParentDetails.MOBILE_FIELD) = txtMobile.Text.Trim
End If
If txtEmail.Text.Trim <> "" Then
.Item(clsParentDetails.EMAIL_FIELD) = txtEmail.Text.Trim
End If
If txtComments.Text.Trim <> "" Then
.Item(clsParentDetails.COMMENTS_FIELD) = txtComments.Text.Trim
End If
If Request.QueryString("Mode") <> "" And Not Request.QueryString("Mode") Is Nothing Then
If Request.QueryString("Mode") = "Add" Then
.Item(clsParentDetails.CREATEDDATE_FIELD) = Today.Date
End If
Else
Response.Redirect(strPath)
End If
.Item(clsParentDetails.MODIFIEDDATE_FIELD) = Today.Date
'.Item(clsParentDetails.TOTALCHILDREN_FIELD) =0
.Item(clsParentDetails.SUBSCRIBE_FIELD) = 0
.Item(clsParentDetails.ISREAD_FIELD) = 0
.Item(clsParentDetails.ISADMIN_FIELD) = 0
.Item(clsParentDetails.WILLCELEBRATEPARTY_FIELD) = 0
If txtFirstName.Text.Trim <> "" Then
.Item(clsParentDetails.USERNAME_FIELD) = txtFirstName.Text.Trim & " " & txtLastName.Text.Trim
End If
Dim Random As New Random()
rdpassword = Random.Next()
If IsNothing(Session("UserId")) And Request.QueryString("Mode").ToString() <> "" Then
.Item(clsParentDetails.PASSWORD_FIELD) = rdpassword
End If
End With
If Request.QueryString("Mode") <> "" And Not Request.QueryString("Mode") Is Nothing Then
If IsNothing(Session("UserId")) Then
objParentDetails.Tables(0).Rows.Add(dRow)
With New ParentDetailsBF
bool = .CreateParentDetails(objParentDetails, lngreturn)
strFrom = ConfigurationManager.AppSettings("Support").ToString()
strSubject = "Gymboree | Preview Request"
strMessage = GenValidations.GetEmailTemplateContent("~/App_Data/ClassBooking.htm")
status = False
path = System.Web.Configuration.WebConfigurationManager.AppSettings("path").ToString()
strMessage = strMessage.Replace("{{UserName}}", ddlTitle.SelectedItem.Text.ToString() & " " & txtFirstName.Text.Trim() & " " & txtLastName.Text.Trim())
strMessage = strMessage.Replace("{{Address}}", txtAddress.Text.Trim())
strMessage = strMessage.Replace("{{Phone}}", IIf(txtTelephone.Text.Trim() = "", "N/A", txtSTD.Text.Trim() & "&nbxp;- " & txtTelephone.Text.Trim()))
strMessage = strMessage.Replace("{{Email}}", txtEmail.Text.Trim())
strMessage = strMessage.Replace("{{Mobile}}", "+91 " & txtMobile.Text.Trim())
strMessage = strMessage.Replace("{{Name}}", txtFirstChildName.Text.Trim())
strMessage = strMessage.Replace("{{Gender}}", ddlFirstChildGender.SelectedItem.Text())
Dim formattedDate = Date.Parse(txtDOB.Text).ToString("dd") & GenValidations.getDatePostfix(txtDOB.Text) & " " & Date.Parse(txtDOB.Text).ToString("MMM, yyyy")
strMessage = strMessage.Replace("{{DOB}}", formattedDate)
'strMessage = strMessage.Replace("{{Password}}", rdpassword)
'strMessage = strMessage.Replace("{{Email}}", txtEmail.Text.Trim())
'strMessage = strMessage.Replace("{{Email}}", txtEmail.Text.Trim())
'strMessage = strMessage.Replace("{{Child}}", txtFirstChildName.Text.Trim())
End With
Else
With New ParentDetailsBF
bool = .UpdateParentDetails(objParentDetails, lngreturn)
End With
End If
parentId = lngreturn
Else
Response.Redirect(strPath)
End If
If Not bool Then
If lngreturn = -1 Then
lblErrorMsg.Text = "Email Id already exists"
ElseIf lngreturn = -2 Then
lblErrorMsg.Text = "Mobile already exists"
End If
End If
Return bool
If False Then
If txtFirstChildName.Text.Trim <> "" Then
Dim objChildrenDetails1 As New clsChildrenDetails
If Request.QueryString("Mode") <> "" And Not Request.QueryString("Mode") Is Nothing Then
If Request.QueryString("Mode") = "Add" Then
dRow = objChildrenDetails1.Tables(0).NewRow
ElseIf Request.QueryString("Mode") = "Edit" Then
objChildrenDetails1 = ViewState("FirstChildDetails")
dRow = objChildrenDetails1.Tables(0).Rows(0)
End If
Else
Response.Redirect(strPath)
End If
With dRow
If Request.QueryString("Mode") <> "" And Not Request.QueryString("Mode") Is Nothing Then
If Request.QueryString("Mode") = "Edit" Then
.Item(clsChildrenDetails.CHILDID_FIELD) = ViewState("FirstChildId")
End If
Else
Response.Redirect(strPath)
End If
.Item(clsChildrenDetails.PARENTID_FIELD) = lngreturn
.Item(clsChildrenDetails.CHILDNAME_FIELD) = txtFirstChildName.Text.Trim
.Item(clsChildrenDetails.GENDER_FIELD) = ddlFirstChildGender.SelectedValue.Trim
.Item(clsChildrenDetails.CENTERID_FIELD) = ddlCenter.SelectedValue.Trim
.Item(clsChildrenDetails.DATEOFBIRTH_FIELD) = txtDOB.Text 'CType((ddlFirstChildMonth.SelectedValue.Trim & "/" & ddlFirstChildDate.SelectedValue.Trim & "/" & ddlFirstChildYear.SelectedValue.Trim), Date)
If Request.QueryString("Mode") <> "" And Not Request.QueryString("Mode") Is Nothing Then
If Request.QueryString("Mode") = "Add" Then
.Item(clsChildrenDetails.CHILDCREATEDDATE_FIELD) = Today.Date
End If
Else
Response.Redirect(strPath)
End If
.Item(clsChildrenDetails.CHILDMODIFIEDDATE_FIELD) = Today.Date
.Item(clsChildrenDetails.ISPAID_FIELD) = 0
End With
If Request.QueryString("Mode") <> "" And Not Request.QueryString("Mode") Is Nothing Then
If Request.QueryString("Mode") = "Add" Then
objChildrenDetails1.Tables(0).Rows.Add(dRow)
End If
Else
Response.Redirect(strPath)
End If
If SaveChildDetails(objChildrenDetails1, 1) Then
ChildExists += 1
End If
End If
If txtSecondChildName.Text.Trim <> "" Then
Dim objChildrenDetails2 As New clsChildrenDetails
If Request.QueryString("Mode") <> "" And Not Request.QueryString("Mode") Is Nothing Then
If Request.QueryString("Mode") = "Add" Then
dRow = objChildrenDetails2.Tables(0).NewRow
ElseIf Request.QueryString("Mode") = "Edit" Then
objChildrenDetails2 = ViewState("SecondChildDetails")
dRow = objChildrenDetails2.Tables(0).Rows(0)
End If
Else
Response.Redirect(strPath)
End If
With dRow
If Request.QueryString("Mode") <> "" And Not Request.QueryString("Mode") Is Nothing Then
If Request.QueryString("Mode") = "Edit" Then
.Item(clsChildrenDetails.CHILDID_FIELD) = ViewState("SecondChildId")
End If
Else
Response.Redirect(strPath)
End If
.Item(clsChildrenDetails.PARENTID_FIELD) = lngreturn
.Item(clsChildrenDetails.CHILDNAME_FIELD) = txtSecondChildName.Text.Trim
.Item(clsChildrenDetails.GENDER_FIELD) = ddlSecondChildGender.SelectedValue.Trim
.Item(clsChildrenDetails.CENTERID_FIELD) = ddlCenter.SelectedValue.Trim
.Item(clsChildrenDetails.DATEOFBIRTH_FIELD) = CType((ddlSecondChildMonth.SelectedValue.Trim & "/" & ddlSecondChildDate.SelectedValue.Trim & "/" & ddlSecondChildYear.SelectedValue.Trim), Date)
If Request.QueryString("Mode") <> "" And Not Request.QueryString("Mode") Is Nothing Then
If Request.QueryString("Mode") = "Add" Then
.Item(clsChildrenDetails.CHILDCREATEDDATE_FIELD) = Today.Date
End If
Else
Response.Redirect(strPath)
End If
.Item(clsChildrenDetails.CHILDMODIFIEDDATE_FIELD) = Today.Date
.Item(clsChildrenDetails.ISPAID_FIELD) = 0
End With
If Request.QueryString("Mode") <> "" And Not Request.QueryString("Mode") Is Nothing Then
If Request.QueryString("Mode") = "Add" Then
objChildrenDetails2.Tables(0).Rows.Add(dRow)
End If
Else
Response.Redirect(strPath)
End If
If SaveChildDetails(objChildrenDetails2, 2) Then
ChildExists += 1
End If
End If
If txtThirdChildName.Text.Trim <> "" Then
Dim objChildrenDetails3 As New clsChildrenDetails
If Request.QueryString("Mode") <> "" And Not Request.QueryString("Mode") Is Nothing Then
If Request.QueryString("Mode") = "Add" Then
dRow = objChildrenDetails3.Tables(0).NewRow
ElseIf Request.QueryString("Mode") = "Edit" Then
objChildrenDetails3 = ViewState("ThirdChildDetails")
dRow = objChildrenDetails3.Tables(0).Rows(0)
End If
Else
Response.Redirect(strPath)
End If
With dRow
.Item(clsChildrenDetails.PARENTID_FIELD) = lngreturn
.Item(clsChildrenDetails.CHILDNAME_FIELD) = txtThirdChildName.Text.Trim
.Item(clsChildrenDetails.GENDER_FIELD) = ddlThirdChildGender.SelectedValue.Trim
.Item(clsChildrenDetails.CENTERID_FIELD) = ddlCenter.SelectedValue.Trim
.Item(clsChildrenDetails.DATEOFBIRTH_FIELD) = CType((ddlThirdChildMonth.SelectedValue.Trim & "/" & ddlThirdChildDate.SelectedValue.Trim & "/" & ddlThirdChildYear.SelectedValue.Trim), Date)
If Request.QueryString("Mode") <> "" And Not Request.QueryString("Mode") Is Nothing Then
If Request.QueryString("Mode") = "Add" Then
.Item(clsChildrenDetails.CHILDCREATEDDATE_FIELD) = Today.Date
End If
Else
Response.Redirect(strPath)
End If
.Item(clsChildrenDetails.CHILDMODIFIEDDATE_FIELD) = Today.Date
.Item(clsChildrenDetails.ISPAID_FIELD) = 0
End With
If Request.QueryString("Mode") <> "" And Not Request.QueryString("Mode") Is Nothing Then
If Request.QueryString("Mode") = "Add" Then
objChildrenDetails3.Tables(0).Rows.Add(dRow)
End If
Else
Response.Redirect(strPath)
End If
If SaveChildDetails(objChildrenDetails3, 3) Then
ChildExists += 1
End If
End If
If Request.QueryString("Mode") = "Add" Then
If Not ChildExists = 0 Then
lblErrorMsg.Text = "Successfully inserted the parent and child(s) details and a email send to your Mail Id."
Else
lblErrorMsg.Text = "Successfully inserted the parent details and a email send to your Mail Id."
End If
End If
End If
End Function
Private Function SaveChildDetails(ByVal objChildrenDetails As clsChildrenDetails, ByVal intChild As Integer) As Boolean
If Request.QueryString("Mode") = "Edit" Then
If Session("UserId") Is Nothing Or Request.QueryString("Mode") = "" Or Request.QueryString("Mode") Is Nothing Then
Response.Redirect(strPath)
End If
End If
Dim lngchildreturn As Integer
Dim lngclassreturn As Integer
Dim bool As Boolean
If Request.QueryString("Mode") <> "" And Not Request.QueryString("Mode") Is Nothing Then
If Request.QueryString("Mode") = "Add" Then
With New ChildrenDetailsBF
bool = .CreateChildrenDetails(objChildrenDetails, lngchildreturn)
End With
ElseIf Request.QueryString("Mode") = "Edit" Then
With New ChildrenDetailsBF
bool = .UpdateChildrenDetails(objChildrenDetails, lngchildreturn)
End With
End If
Else
Response.Redirect(strPath)
End If
If bool Then
Dim i As Integer = 0
Dim dsChildClassDetails As New DataSet
If lngchildreturn >= 0 And intChild = 1 Then
If Not ViewState("FirstChildClassDetails") Is Nothing Then
dsChildClassDetails = ViewState("FirstChildClassDetails")
For i = 0 To dsChildClassDetails.Tables(0).Rows.Count - 1
If Request.QueryString("Mode") <> "" And Not Request.QueryString("Mode") Is Nothing Then
If Request.QueryString("Mode") = "Add" Then
dsChildClassDetails.Tables(0).Rows(i)("ChildId") = lngchildreturn
ElseIf Request.QueryString("Mode") = "Edit" Then
dsChildClassDetails.Tables(0).Rows(i)("ChildId") = ViewState("FirstChildId")
End If
Else
Response.Redirect(strPath)
End If
Next
If Request.QueryString("Mode") <> "" And Not Request.QueryString("Mode") Is Nothing Then
If Request.QueryString("Mode") = "Add" Then
With New ChildrenClassesDetailsBF
bool = .CreateChildrenClassesDetails(dsChildClassDetails, lngclassreturn)
End With
ElseIf Request.QueryString("Mode") = "Edit" Then
With New ChildrenClassesDetailsBF
If hdnFirstChildEdited.Value = "Edited" Then
bool = .DeleteChildrenClassesDetailsByChildId(ViewState("FirstChildId"))
If bool Then
bool = .CreateChildrenClassesDetails(dsChildClassDetails, lngclassreturn)
End If
End If
End With
End If
Else
Response.Redirect(strPath)
End If
End If
ElseIf lngchildreturn >= 0 And intChild = 2 Then
If Not ViewState("SecondChildClassDetails") Is Nothing Then
dsChildClassDetails = ViewState("SecondChildClassDetails")
For i = 0 To dsChildClassDetails.Tables(0).Rows.Count - 1
If Request.QueryString("Mode") <> "" And Not Request.QueryString("Mode") Is Nothing Then
If Request.QueryString("Mode") = "Add" Then
dsChildClassDetails.Tables(0).Rows(i)("ChildId") = lngchildreturn
ElseIf Request.QueryString("Mode") = "Edit" Then
dsChildClassDetails.Tables(0).Rows(i)("ChildId") = ViewState("SecondChildId")
End If
Else
Response.Redirect(strPath)
End If
Next
If Request.QueryString("Mode") <> "" And Not Request.QueryString("Mode") Is Nothing Then
If Request.QueryString("Mode") = "Add" Then
With New ChildrenClassesDetailsBF
bool = .CreateChildrenClassesDetails(dsChildClassDetails, lngclassreturn)
End With
ElseIf Request.QueryString("Mode") = "Edit" Then
With New ChildrenClassesDetailsBF
If hdnSecondChildEdited.Value = "Edited" Then
bool = .DeleteChildrenClassesDetailsByChildId(ViewState("SecondChildId"))
If bool Then
bool = .CreateChildrenClassesDetails(dsChildClassDetails, lngclassreturn)
End If
End If
End With
End If
Else
Response.Redirect(strPath)
End If
End If
ElseIf lngchildreturn >= 0 And intChild = 3 Then
If Not ViewState("ThirdChildClassDetails") Is Nothing Then
dsChildClassDetails = ViewState("ThirdChildClassDetails")
For i = 0 To dsChildClassDetails.Tables(0).Rows.Count - 1
If Request.QueryString("Mode") <> "" And Not Request.QueryString("Mode") Is Nothing Then
If Request.QueryString("Mode") = "Add" Then
dsChildClassDetails.Tables(0).Rows(i)("ChildId") = lngchildreturn
ElseIf Request.QueryString("Mode") = "Edit" Then
dsChildClassDetails.Tables(0).Rows(i)("ChildId") = ViewState("ThirdChildId")
End If
Else
Response.Redirect(strPath)
End If
Next
If Request.QueryString("Mode") <> "" And Not Request.QueryString("Mode") Is Nothing Then
If Request.QueryString("Mode") = "Add" Then
With New ChildrenClassesDetailsBF
bool = .CreateChildrenClassesDetails(dsChildClassDetails, lngclassreturn)
End With
ElseIf Request.QueryString("Mode") = "Edit" Then
With New ChildrenClassesDetailsBF
If hdnThirdChildEdited.Value = "Edited" Then
bool = .DeleteChildrenClassesDetailsByChildId(ViewState("ThirdChildId"))
If bool Then
bool = .CreateChildrenClassesDetails(dsChildClassDetails, lngclassreturn)
End If
End If
End With
End If
Else
Response.Redirect(strPath)
End If
End If
End If
Else
lblErrorMsg.Text = "Error in child creation.."
End If
Return bool
End Function
'Protected Sub ancFirstChildClasses_ServerClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ancFirstChildClasses.ServerClick
' Dim BirthDate As Date = CType((ddlFirstChildMonth.SelectedValue.Trim & "/" & ddlFirstChildDate.SelectedValue.Trim & "/" & ddlFirstChildYear.SelectedValue.Trim), Date)
' ViewState("FirstChildBirthDate") = BirthDate
' ChildClasses(BirthDate, 1)
'End Sub
'Protected Sub ancSecondChildClasses_ServerClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ancSecondChildClasses.ServerClick
' Dim BirthDate As Date = CType((ddlSecondChildMonth.SelectedValue.Trim & "/" & ddlSecondChildDate.SelectedValue.Trim & "/" & ddlSecondChildYear.SelectedValue.Trim), Date)
' ViewState("SecondChildBirthDate") = BirthDate
' ChildClasses(BirthDate, 2)
'End Sub
'Protected Sub ancThirdChildClasses_ServerClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ancThirdChildClasses.ServerClick
' Dim BirthDate As Date = CType((ddlThirdChildMonth.SelectedValue.Trim & "/" & ddlThirdChildDate.SelectedValue.Trim & "/" & ddlThirdChildYear.SelectedValue.Trim), Date)
' ViewState("ThirdChildBirthDate") = BirthDate
' ChildClasses(BirthDate, 3)
'End Sub
Private Sub BindClasses(ByVal intMonths As Integer, ByVal intChild As Integer)
If Request.QueryString("Mode") = "Edit" Then
If Session("UserId") Is Nothing Or Request.QueryString("Mode") = "" Or Request.QueryString("Mode") Is Nothing Then
Response.Redirect(strPath)
End If
End If
lblErrorPopup.Text = ""
Dim objDaysonTime As New clsDaysonTime
Dim objChildrenClassDetails As New clsChildrenClassesDetails
Dim dtClasses As New DataTable
'Dim arrClasses() As String
Dim i = 0
Dim j = 0
If intChild = 1 Then
If Not ViewState("FirstChildId") Is Nothing Then
ViewState("ChildId") = ViewState("FirstChildId")
ViewState("ChildEdited") = hdnFirstChildEdited.Value
End If
ElseIf intChild = 2 Then
If Not ViewState("SecondChildId") Is Nothing Then
ViewState("ChildId") = ViewState("SecondChildId")
ViewState("ChildEdited") = hdnSecondChildEdited.Value
End If
ElseIf intChild = 3 Then
If Not ViewState("ThirdChildId") Is Nothing Then
ViewState("ChildId") = ViewState("ThirdChildId")
ViewState("ChildEdited") = hdnThirdChildEdited.Value
End If
End If
Dim objSchedule As New clsSchedule
Dim searchString As String
strMonths = intMonths.ToString()
searchString = strMonths & ">=MinAge AND " & strMonths & "<=MaxAge"
With New ScheduleBF
objSchedule = .GetScheduleStartTimimgsBySearchString(searchString)
End With
lblErrorMsg.Text = ""
If Not objSchedule Is Nothing Then
If objSchedule.Tables(0).Rows.Count > 0 Then
dgClasses.DataSource = objSchedule
Else
lblErrorPopup.Text = "<center><b>There are no classes available.<b></center>"
End If
dgClasses.DataBind()
Else
'lblErrorPopup.Text = "<center><b>There are no classes available.<b></center>"
End If
If intChild = 1 Then
If lblErrorPopup.Text <> "" Then
ibtSubmitClasses1.Enabled = False
Else
ibtSubmitClasses1.Enabled = True
End If
ShowPopup(ViewState("FirstChildClassDetails"), ViewState("FirstChildBirthDate"), ddlFirstChildMonth, ddlFirstChildDate, ddlFirstChildYear, intChild)
ElseIf intChild = 2 Then
If lblErrorPopup.Text <> "" Then
ibtSubmitClasses2.Enabled = False
Else
ibtSubmitClasses2.Enabled = True
End If
ShowPopup(ViewState("SecondChildClassDetails"), ViewState("SecondChildBirthDate"), ddlSecondChildMonth, ddlSecondChildDate, ddlSecondChildYear, intChild)
ElseIf intChild = 3 Then
If lblErrorPopup.Text <> "" Then
ibtSubmitClasses3.Enabled = False
Else
ibtSubmitClasses3.Enabled = True
End If
ShowPopup(ViewState("ThirdChildClassDetails"), ViewState("ThirdChildBirthDate"), ddlThirdChildMonth, ddlThirdChildDate, ddlThirdChildYear, intChild)
End If
End Sub
Protected Sub ibtSubmitClasses1_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ibtSubmitClasses1.Click
If Request.QueryString("Mode") = "Edit" Then
If Session("UserId") Is Nothing Or Request.QueryString("Mode") = "" Or Request.QueryString("Mode") Is Nothing Then
Response.Redirect(strPath)
End If
End If
tempSaveClassDetails(1)
If Request.QueryString("Mode") <> "" And Not Request.QueryString("Mode") Is Nothing Then
If Request.QueryString("Mode") = "Edit" Then
hdnFirstChildEdited.Value = "Edited"
ElseIf Request.QueryString("Mode") = "Add" Then
hdnFirstChildAdded.Value = "Added"
End If
Else
Response.Redirect(strPath)
End If
hdntempCheckedBoxes1.Value = hdnCheckedBoxes1.Value
hdnClassNames1.Value = divClassList.InnerHtml.ToString
End Sub
Protected Sub ibtSubmitClasses2_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ibtSubmitClasses2.Click
If Request.QueryString("Mode") = "Edit" Then
If Session("UserId") Is Nothing Or Request.QueryString("Mode") = "" Or Request.QueryString("Mode") Is Nothing Then
Response.Redirect(strPath)
End If
End If
tempSaveClassDetails(2)
If Request.QueryString("Mode") <> "" And Not Request.QueryString("Mode") Is Nothing Then
If Request.QueryString("Mode") = "Edit" Then
hdnSecondChildEdited.Value = "Edited"
ElseIf Request.QueryString("Mode") = "Add" Then
hdnSecondChildAdded.Value = "Added"
End If
Else
Response.Redirect(strPath)
End If
hdntempCheckedBoxes2.Value = hdnCheckedBoxes2.Value
hdnClassNames2.Value = divClassList.InnerHtml.ToString
End Sub
Protected Sub ibtSubmitClasses3_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ibtSubmitClasses3.Click
If Request.QueryString("Mode") = "Edit" Then
If Session("UserId") Is Nothing Or Request.QueryString("Mode") = "" Or Request.QueryString("Mode") Is Nothing Then
Response.Redirect(strPath)
End If
End If
tempSaveClassDetails(3)
If Request.QueryString("Mode") <> "" And Not Request.QueryString("Mode") Is Nothing Then
If Request.QueryString("Mode") = "Edit" Then
hdnThirdChildEdited.Value = "Edited"
ElseIf Request.QueryString("Mode") = "Add" Then
hdnThirdChildAdded.Value = "Added"
End If
Else
Response.Redirect(strPath)
End If
hdntempCheckedBoxes3.Value = hdnCheckedBoxes3.Value
hdnClassNames3.Value = divClassList.InnerHtml.ToString
End Sub
Private Sub tempSaveClassDetails(ByVal intChild As Integer)
If Request.QueryString("Mode") = "Edit" Then
If Session("UserId") Is Nothing Or Request.QueryString("Mode") = "" Or Request.QueryString("Mode") Is Nothing Then
Response.Redirect(strPath)
End If
End If
Dim objClassDetails As New clsChildrenClassesDetails
Dim i = 0
Dim j = 0
For i = 0 To dgClasses.Items.Count - 1
Dim strClassStartTime As String = CType(dgClasses.Items(i).FindControl("lblStartTime"), Label).Text.Trim
Dim chkList As CheckBoxList = New CheckBoxList
chkList = CType(dgClasses.Items(i).FindControl("chkSun"), CheckBoxList)
TempSaveSelectedClesses(objClassDetails, intChild, chkList, "Sun", strClassStartTime)
chkList = CType(dgClasses.Items(i).FindControl("chkMon"), CheckBoxList)
TempSaveSelectedClesses(objClassDetails, intChild, chkList, "Mon", strClassStartTime)
chkList = CType(dgClasses.Items(i).FindControl("chkTue"), CheckBoxList)
TempSaveSelectedClesses(objClassDetails, intChild, chkList, "Tue", strClassStartTime)
chkList = CType(dgClasses.Items(i).FindControl("chkWed"), CheckBoxList)
TempSaveSelectedClesses(objClassDetails, intChild, chkList, "Wed", strClassStartTime)
chkList = CType(dgClasses.Items(i).FindControl("chkThu"), CheckBoxList)
TempSaveSelectedClesses(objClassDetails, intChild, chkList, "Thu", strClassStartTime)
chkList = CType(dgClasses.Items(i).FindControl("chkFri"), CheckBoxList)
TempSaveSelectedClesses(objClassDetails, intChild, chkList, "Fri", strClassStartTime)
chkList = CType(dgClasses.Items(i).FindControl("chkSat"), CheckBoxList)
TempSaveSelectedClesses(objClassDetails, intChild, chkList, "Sat", strClassStartTime)
Next
If intChild = 1 Then
ViewState("FirstChildClassDetails") = objClassDetails
ElseIf intChild = 2 Then
ViewState("SecondChildClassDetails") = objClassDetails
ElseIf intChild = 3 Then
ViewState("ThirdChildClassDetails") = objClassDetails
End If
End Sub
Protected Sub ibtCancel_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ibtCancel.Click
Response.Redirect(strPath)
End Sub
Private Sub BindParentDetails()
If Request.QueryString("Mode") = "Edit" Then
If Session("UserId") Is Nothing Or Request.QueryString("Mode") = "" Or Request.QueryString("Mode") Is Nothing Then
Response.Redirect(strPath)
End If
End If
Dim objParentDetails As New clsParentDetails
If Not Session("UserId") Is Nothing Then
objParentDetails = New ParentDetailsBF().GetParentDetailsById(Session("UserId"))
ViewState("EditParentDetails") = objParentDetails
End If
If Not objParentDetails Is Nothing Then
If objParentDetails.Tables.Count > 0 Then
If objParentDetails.Tables(0).Rows.Count > 0 Then
If Not objParentDetails.Tables(0).Rows(0).Item("Title") Is DBNull.Value Then
If Not ddlTitle.Items.FindByText(objParentDetails.Tables(0).Rows(0).Item("Title").ToString) Is Nothing Then
ddlTitle.ClearSelection()
ddlTitle.Items.FindByText(objParentDetails.Tables(0).Rows(0).Item("Title").ToString).Selected = True
End If
End If
If Not objParentDetails.Tables(0).Rows(0).Item("FirstName") Is DBNull.Value Then
txtFirstName.Text = objParentDetails.Tables(0).Rows(0).Item("FirstName")
End If
If Not objParentDetails.Tables(0).Rows(0).Item("LastName") Is DBNull.Value Then
txtLastName.Text = objParentDetails.Tables(0).Rows(0).Item("LastName")
End If
If Not objParentDetails.Tables(0).Rows(0).Item("Address") Is DBNull.Value Then
txtAddress.Text = objParentDetails.Tables(0).Rows(0).Item("Address")
End If
If Not objParentDetails.Tables(0).Rows(0).Item("Mobile") Is DBNull.Value Then
txtMobile.Text = objParentDetails.Tables(0).Rows(0).Item("Mobile")
End If
If Not objParentDetails.Tables(0).Rows(0).Item("STDCode") Is DBNull.Value Then
txtSTD.Text = objParentDetails.Tables(0).Rows(0).Item("STDCode")
End If
If Not objParentDetails.Tables(0).Rows(0).Item("Telephone") Is DBNull.Value Then
txtTelephone.Text = objParentDetails.Tables(0).Rows(0).Item("Telephone")
End If
If Not objParentDetails.Tables(0).Rows(0).Item("Email") Is DBNull.Value Then
txtEmail.Text = objParentDetails.Tables(0).Rows(0).Item("Email")
End If
If Not objParentDetails.Tables(0).Rows(0).Item("Comments") Is DBNull.Value Then
txtComments.Text = objParentDetails.Tables(0).Rows(0).Item("Comments")
End If
End If
End If
End If
End Sub
Private Sub BindChildrenDetails()
If Request.QueryString("Mode") = "Edit" Then
If Session("UserId") Is Nothing Or Request.QueryString("Mode") = "" Or Request.QueryString("Mode") Is Nothing Then
Response.Redirect(strPath)
End If
End If
Dim objChildrenDetails As New clsChildrenDetails
Dim objChildDetails As New clsChildrenDetails
Dim objClassDetails As New clsChildrenClassesDetails
Dim BirthDate As Date
Dim BirthDay As String
Dim BirthMonth As String
Dim BirthYear As String
If Not Session("UserId") Is Nothing Then
objChildrenDetails = New ChildrenDetailsBF().GetChildrenDetailsByParentId(Session("UserId"))
End If
If Not objChildrenDetails Is Nothing Then
If objChildrenDetails.Tables.Count > 0 Then
hdnFirstChildExists.Value = "Exists"
If objChildrenDetails.Tables(0).Rows.Count > 0 Then
ViewState("FirstChildId") = objChildrenDetails.Tables(0).Rows(0).Item("ChildId")
objChildDetails = New ChildrenDetailsBF().GetChildrenDetailsById(ViewState("FirstChildId"))
ViewState("FirstChildDetails") = objChildDetails
If Not objChildDetails.Tables(0).Rows(0).Item("ChildName") Is DBNull.Value Then
txtFirstChildName.Text = objChildrenDetails.Tables(0).Rows(0).Item("ChildName")
txtFirstChildName.Enabled = False
End If
If Not objChildDetails.Tables(0).Rows(0).Item("Gender") Is DBNull.Value Then
If Not ddlFirstChildGender.Items.FindByValue(objChildDetails.Tables(0).Rows(0).Item("Gender").ToString) Is Nothing Then
ddlFirstChildGender.ClearSelection()
ddlFirstChildGender.Items.FindByValue(objChildDetails.Tables(0).Rows(0).Item("Gender").ToString).Selected = True
ddlFirstChildGender.Enabled = False
End If
End If
If Not objChildDetails.Tables(0).Rows(0).Item("CenterId") Is DBNull.Value Then
If Not ddlCenter.Items.FindByValue(objChildDetails.Tables(0).Rows(0).Item("CenterId").ToString) Is Nothing Then
ddlCenter.ClearSelection()
ddlCenter.Items.FindByValue(objChildDetails.Tables(0).Rows(0).Item("CenterId").ToString).Selected = True
ddlCenter.Enabled = False
End If
End If
If Not objChildDetails.Tables(0).Rows(0).Item("DateOfBirth") Is DBNull.Value Then
BirthDate = CType(objChildDetails.Tables(0).Rows(0).Item("DateOfBirth"), Date)
If BirthDate.Day.ToString.Trim.Length = 1 Then
BirthDay = "0" & BirthDate.Day
Else
BirthDay = BirthDate.Day
End If
If BirthDate.Month.ToString.Trim.Length = 1 Then
BirthMonth = "0" & BirthDate.Month
Else
BirthMonth = BirthDate.Month
End If
BirthYear = BirthDate.Year
If Not ddlFirstChildDate.Items.FindByText(BirthDay) Is Nothing Then
ddlFirstChildDate.ClearSelection()
ddlFirstChildDate.Items.FindByText(BirthDay).Selected = True
ddlFirstChildDate.Enabled = False
End If
If Not ddlFirstChildMonth.Items.FindByText(BirthMonth) Is Nothing Then
ddlFirstChildMonth.ClearSelection()
ddlFirstChildMonth.Items.FindByText(BirthMonth).Selected = True
ddlFirstChildMonth.Enabled = False
End If
If Not ddlFirstChildYear.Items.FindByText(BirthYear) Is Nothing Then
ddlFirstChildYear.ClearSelection()
ddlFirstChildYear.Items.FindByText(BirthYear).Selected = True
ddlFirstChildYear.Enabled = False
End If
If Not ddlCenter.Items.FindByText(BirthYear) Is Nothing Then
ddlFirstChildYear.ClearSelection()
ddlFirstChildYear.Items.FindByText(BirthYear).Selected = True
ddlFirstChildYear.Enabled = False
End If
End If
objClassDetails = New ChildrenClassesDetailsBF().GetChildrenClassesDetailsByChildId(ViewState("FirstChildId"))
Dim i = 0
If Not objClassDetails Is Nothing Then
If objClassDetails.Tables.Count > 0 Then
If objClassDetails.Tables(0).Rows.Count > 0 Then
For i = 0 To objClassDetails.Tables(0).Rows.Count - 1
If lblFirstChildCls.Text = "" Then
lblFirstChildCls.Text = New ClassBF().GetClassById(objClassDetails.Tables(0).Rows(i).Item("SubClassId")).Tables(0).Rows(0).Item("SubClass")
Else
lblFirstChildCls.Text = lblFirstChildCls.Text & "<br/>" & New ClassBF().GetClassById(objClassDetails.Tables(0).Rows(i).Item("SubClassId")).Tables(0).Rows(0).Item("SubClass")
End If
Next
End If
End If
End If
End If
If objChildrenDetails.Tables(0).Rows.Count > 1 Then
hdnSecondChildExists.Value = "Exists"
ViewState("SecondChildId") = objChildrenDetails.Tables(0).Rows(1).Item("ChildId")
objChildDetails = New ChildrenDetailsBF().GetChildrenDetailsById(ViewState("SecondChildId"))
ViewState("SecondChildDetails") = objChildDetails
If Not objChildDetails.Tables(0).Rows(0).Item("ChildName") Is DBNull.Value Then
txtSecondChildName.Text = objChildrenDetails.Tables(0).Rows(0).Item("ChildName")
txtSecondChildName.Enabled = False
End If
If Not objChildDetails.Tables(0).Rows(0).Item("Gender") Is DBNull.Value Then
If Not ddlSecondChildGender.Items.FindByValue(objChildDetails.Tables(0).Rows(0).Item("Gender").ToString) Is Nothing Then
ddlSecondChildGender.ClearSelection()
ddlSecondChildGender.Items.FindByValue(objChildDetails.Tables(0).Rows(0).Item("Gender").ToString).Selected = True
ddlSecondChildGender.Enabled = False
End If
End If
If Not objChildDetails.Tables(0).Rows(0).Item("DateOfBirth") Is DBNull.Value Then
BirthDate = CType(objChildDetails.Tables(0).Rows(0).Item("DateOfBirth"), Date)
If BirthDate.Day.ToString.Trim.Length = 1 Then
BirthDay = "0" & BirthDate.Day
Else
BirthDay = BirthDate.Day
End If
If BirthDate.Month.ToString.Trim.Length = 1 Then
BirthMonth = "0" & BirthDate.Month
Else
BirthMonth = BirthDate.Month
End If
BirthYear = BirthDate.Year
If Not ddlSecondChildDate.Items.FindByText(BirthDay) Is Nothing Then
ddlSecondChildDate.ClearSelection()
ddlSecondChildDate.Items.FindByText(BirthDay).Selected = True
ddlSecondChildDate.Enabled = False
End If
If Not ddlSecondChildMonth.Items.FindByText(BirthMonth) Is Nothing Then
ddlSecondChildMonth.ClearSelection()
ddlSecondChildMonth.Items.FindByText(BirthMonth).Selected = True
ddlSecondChildMonth.Enabled = False
End If
If Not ddlSecondChildYear.Items.FindByText(BirthYear) Is Nothing Then
ddlSecondChildYear.ClearSelection()
ddlSecondChildYear.Items.FindByText(BirthYear).Selected = True
ddlSecondChildYear.Enabled = False
End If
End If
objClassDetails = New ChildrenClassesDetailsBF().GetChildrenClassesDetailsByChildId(ViewState("SecondChildId"))
Dim i = 0
If Not objClassDetails Is Nothing Then
If objClassDetails.Tables.Count > 0 Then
If objClassDetails.Tables(0).Rows.Count > 0 Then
For i = 0 To objClassDetails.Tables(0).Rows.Count - 1
If lblSecondChildCls.Text = "" Then
lblSecondChildCls.Text = New ClassBF().GetClassById(objClassDetails.Tables(0).Rows(i).Item("SubClassId")).Tables(0).Rows(0).Item("SubClass")
Else
lblSecondChildCls.Text = lblSecondChildCls.Text & "<br/>" & New ClassBF().GetClassById(objClassDetails.Tables(0).Rows(i).Item("SubClassId")).Tables(0).Rows(0).Item("SubClass")
End If
Next
End If
End If
End If
End If
If objChildrenDetails.Tables(0).Rows.Count > 2 Then
hdnThirdChildExists.Value = "Exists"
ViewState("ThirdChildId") = objChildrenDetails.Tables(0).Rows(2).Item("ChildId")
objChildDetails = New ChildrenDetailsBF().GetChildrenDetailsById(ViewState("ThirdChildId"))
ViewState("ThirdChildDetails") = objChildDetails
If Not objChildDetails.Tables(0).Rows(0).Item("ChildName") Is DBNull.Value Then
txtThirdChildName.Text = objChildrenDetails.Tables(0).Rows(0).Item("ChildName")
txtThirdChildName.Enabled = False
End If
If Not objChildDetails.Tables(0).Rows(0).Item("Gender") Is DBNull.Value Then
If Not ddlThirdChildGender.Items.FindByValue(objChildDetails.Tables(0).Rows(0).Item("Gender").ToString) Is Nothing Then
ddlThirdChildGender.ClearSelection()
ddlThirdChildGender.Items.FindByValue(objChildDetails.Tables(0).Rows(0).Item("Gender").ToString).Selected = True
ddlThirdChildGender.Enabled = False
End If
End If
If Not objChildDetails.Tables(0).Rows(0).Item("DateOfBirth") Is DBNull.Value Then
BirthDate = CType(objChildDetails.Tables(0).Rows(0).Item("DateOfBirth"), Date)
If BirthDate.Day.ToString.Trim.Length = 1 Then
BirthDay = "0" & BirthDate.Day
Else
BirthDay = BirthDate.Day
End If
If BirthDate.Month.ToString.Trim.Length = 1 Then
BirthMonth = "0" & BirthDate.Month
Else
BirthMonth = BirthDate.Month
End If
BirthYear = BirthDate.Year
If Not ddlThirdChildDate.Items.FindByText(BirthDay) Is Nothing Then
ddlThirdChildDate.ClearSelection()
ddlThirdChildDate.Items.FindByText(BirthDay).Selected = True
ddlThirdChildDate.Enabled = False
End If
If Not ddlThirdChildMonth.Items.FindByText(BirthMonth) Is Nothing Then
ddlThirdChildMonth.ClearSelection()
ddlThirdChildMonth.Items.FindByText(BirthMonth).Selected = True
ddlThirdChildMonth.Enabled = False
End If
If Not ddlThirdChildYear.Items.FindByText(BirthYear) Is Nothing Then
ddlThirdChildYear.ClearSelection()
ddlThirdChildYear.Items.FindByText(BirthYear).Selected = True
ddlThirdChildYear.Enabled = False
End If
End If
objClassDetails = New ChildrenClassesDetailsBF().GetChildrenClassesDetailsByChildId(ViewState("ThirdChildId"))
Dim i = 0
If Not objClassDetails Is Nothing Then
If objClassDetails.Tables.Count > 0 Then
If objClassDetails.Tables(0).Rows.Count > 0 Then
For i = 0 To objClassDetails.Tables(0).Rows.Count - 1
If lblThirdChildCls.Text = "" Then
lblThirdChildCls.Text = New ClassBF().GetClassById(objClassDetails.Tables(0).Rows(i).Item("SubClassId")).Tables(0).Rows(0).Item("SubClass")
Else
lblThirdChildCls.Text = lblThirdChildCls.Text & "," & New ClassBF().GetClassById(objClassDetails.Tables(0).Rows(i).Item("SubClassId")).Tables(0).Rows(0).Item("SubClass")
End If
Next
End If
End If
End If
End If
End If
End If
End Sub
Protected Function SetTimeFormat(ByVal time As String) As String
Dim arrTime() As String = time.Split(":")
Dim hours As Integer
hours = time.Substring(0, time.IndexOf(":"))
If (hours > 12) Then
hours = hours - 12
Return hours.ToString() & ":" & arrTime(1) & " PM"
Else
Return hours.ToString() & ":" & arrTime(1) & " AM"
End If
End Function
Protected Sub dgClasses_OnItemDataBound(ByVal sender As Object, ByVal e As DataGridItemEventArgs)
If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then
Dim lblstartTime As Label = CType(e.Item.FindControl("lblStartTime"), Label)
Dim startTime As String = ""
If Not lblstartTime Is Nothing Then
startTime = lblstartTime.Text
End If
If (startTime <> "") Then
Dim strSearch As String = "S.StartTime='" & startTime & "' AND " & strMonths & ">=MinAge AND " & strMonths & "<=MaxAge"
Dim chkSun As CheckBoxList = CType(e.Item.FindControl("chkSun"), CheckBoxList)
SearchString = "S.WeekDay='Sun' AND " & strSearch
BindDataToCheckBoxList(chkSun, SearchString, "Sun", startTime)
Dim chkMon As CheckBoxList = CType(e.Item.FindControl("chkMon"), CheckBoxList)
SearchString = "S.WeekDay='Mon' AND " & strSearch
BindDataToCheckBoxList(chkMon, SearchString, "Mon", startTime)
Dim chkTue As CheckBoxList = CType(e.Item.FindControl("chkTue"), CheckBoxList)
SearchString = "S.WeekDay='Tue' AND " & strSearch
BindDataToCheckBoxList(chkTue, SearchString, "Tue", startTime)
Dim chkWed As CheckBoxList = CType(e.Item.FindControl("chkWed"), CheckBoxList)
SearchString = "S.WeekDay='Wed' AND " & strSearch
BindDataToCheckBoxList(chkWed, SearchString, "Wed", startTime)
Dim chkThu As CheckBoxList = CType(e.Item.FindControl("chkThu"), CheckBoxList)
SearchString = "S.WeekDay='Thu' AND " & strSearch
BindDataToCheckBoxList(chkThu, SearchString, "Thu", startTime)
Dim chkFri As CheckBoxList = CType(e.Item.FindControl("chkFri"), CheckBoxList)
SearchString = "S.WeekDay='Fri' AND " & strSearch
BindDataToCheckBoxList(chkFri, SearchString, "Fri", startTime)
Dim chkSat As CheckBoxList = CType(e.Item.FindControl("chkSat"), CheckBoxList)
SearchString = "S.WeekDay='Sat' AND " & strSearch
BindDataToCheckBoxList(chkSat, SearchString, "Sat", startTime)
End If
End If
End Sub
Private Sub BindDataToCheckBoxList(ByVal chkList As CheckBoxList, ByVal searchString As String, ByVal Week As String, ByVal Timings As String)
Dim dsSchedule As New clsSchedule
dsSchedule = New ScheduleBF().GetScheduleSubclassesByAge(searchString)
If (Not dsSchedule Is Nothing) AndAlso (dsSchedule.Tables.Count > 0) AndAlso (dsSchedule.Tables(0).Rows.Count > 0) Then
If (Not chkList Is Nothing) Then
chkList.DataSource = dsSchedule.Tables(0)
chkList.DataTextField = "SubClass"
chkList.DataValueField = "SubClassId"
chkList.DataBind()
Dim i As Integer
For i = 0 To chkList.Items.Count - 1
chkList.Items.Item(i).Attributes.Add("onclick", "ClassList('" & chkList.Items.Item(i).Text & "',this.id);")
If Request.QueryString("Mode") <> "" And Not Request.QueryString("Mode") Is Nothing Then
If Request.QueryString("Mode") = "Edit" And Not ViewState("ChildEdited") = "Edited" Then
Dim objChildrenClassDetails As New clsChildrenClassesDetails
objChildrenClassDetails = New ChildrenClassesDetailsBF().GetChildrenClassesDetailsByTime(ViewState("ChildId"), chkList.Items.Item(i).Value, Week, Timings)
If Not objChildrenClassDetails Is Nothing Then
If objChildrenClassDetails.Tables.Count > 0 Then
If objChildrenClassDetails.Tables(0).Rows.Count > 0 Then
chkList.Items.Item(i).Selected = True
End If
End If
End If
End If
End If
Next
End If
End If
End Sub
Protected Sub ShowPopup(ByVal ChildDetails As Object, ByVal BirthDate As Object, ByVal ddlMonth As DropDownList, ByVal ddlDate As DropDownList, ByVal ddlYear As DropDownList, ByVal intChild As Integer)
If Not ChildDetails Is Nothing Then
If BirthDate = CType((ddlMonth.SelectedValue.Trim & "/" & ddlDate.SelectedValue.Trim & "/" & ddlYear.SelectedValue.Trim), Date) Then
ClientScript.RegisterStartupScript(Me.GetType, "", "<script language='javascript'>popUpWebNotificationClass('" & intChild & "','" & intChild & "')</script>")
Else
ClientScript.RegisterStartupScript(Me.GetType, "", "<script language='javascript'>popUpWebNotificationClass('" & intChild & "','0')</script>")
End If
Else
ClientScript.RegisterStartupScript(Me.GetType, "", "<script language='javascript'>popUpWebNotificationClass('" & intChild & "','0')</script>")
End If
End Sub
Private Sub TempSaveSelectedClesses(ByVal objClassDetails As clsChildrenClassesDetails, ByVal intChild As Integer, ByVal chkList As CheckBoxList, ByVal Week As String, ByVal strClassTimings As String)
Dim j = 0
Dim ItemCount = chkList.Items.Count - 1
For j = 0 To ItemCount
If chkList.Items.Item(j).Selected = True Then
Dim SubClassId = CInt(chkList.Items.Item(j).Value)
Dim MainClassId = GenGymboree.getMainClassId(SubClassId)
If intChild = 1 Then
ConcatSubClassIds(chkList, hdnSecondChildChkNames, hdnSecondChildChkIds, j)
ElseIf intChild = 2 Then
ConcatSubClassIds(chkList, hdnFirstChildChkNames, hdnFirstChildChkIds, j)
ElseIf intChild = 3 Then
ConcatSubClassIds(chkList, hdnThirdChildChkNames, hdnThirdChildChkIds, j)
End If
Dim dRow1 As DataRow
dRow1 = objClassDetails.Tables(0).NewRow
With dRow1
.Item(objClassDetails.CHILDID_FIELD) = DBNull.Value
.Item(objClassDetails.SUBCLASSID_FIELD) = SubClassId
.Item(objClassDetails.MAINCLASSID_FIELD) = MainClassId
If Not Request.QueryString("ClassType") Is Nothing Then
.Item(objClassDetails.CLASSTYPEID_FIELD) = Request.QueryString("ClassType")
End If
.Item(objClassDetails.SUBSCRIBEDPERIOD_FIELD) = DBNull.Value
.Item(objClassDetails.DISCOUNT_FIELD) = DBNull.Value
.Item(objClassDetails.TOTALFEES_FIELD) = DBNull.Value
.Item(objClassDetails.ISPAID_FIELD) = 0
.Item(objClassDetails.SELECTEDDAY_FIELD) = Week
.Item(objClassDetails.SELECTEDTIMING_FIELD) = strClassTimings
End With
objClassDetails.Tables(0).Rows.Add(dRow1)
End If
Next
End Sub
Private Sub ConcatSubClassIds(ByVal chkList As CheckBoxList, ByVal hdnSubClasses As HtmlInputHidden, ByVal hdnSubClassIds As HtmlInputHidden, ByVal itemIndex As Integer)
If hdnSubClasses.Value <> "" And Not hdnSubClasses.Value Is Nothing Then
hdnSubClasses.Value = hdnSubClasses.Value & "," & chkList.Items.Item(itemIndex).Text
Else
hdnSubClasses.Value = chkList.Items.Item(itemIndex).Text
End If
If hdnSubClassIds.Value <> "" And Not hdnSubClassIds.Value Is Nothing Then
hdnSubClassIds.Value = hdnSubClassIds.Value & "," & chkList.ClientID & "_" & itemIndex
Else
hdnSubClassIds.Value = chkList.ClientID & "_" & itemIndex
End If
End Sub
Private Sub ChildClasses(ByVal BirthDate As Date, ByVal childNo As Integer)
If Request.QueryString("Mode") = "Edit" Then
If Session("UserId") Is Nothing Or Request.QueryString("Mode") = "" Or Request.QueryString("Mode") Is Nothing Then
Response.Redirect(strPath)
End If
End If
Dim NowDate As Date = Today.Date
Dim MonthDiff As Integer = DateDiff(DateInterval.Month, BirthDate, NowDate)
If MonthDiff < 0 Or MonthDiff > 60 Then
lblErrorMsg.Text = "Child age should be 0 to 5yrs"
Else
BindClasses(MonthDiff, childNo)
End If
End Sub
Private Sub BindCenters()
Dim objCenters As New clsCenter
Dim strCity As String
If Not IsNothing(Session("City")) Then
strCity = Session("City")
objCenters = New CenterBF().GetCentersByCity(strCity)
Else
strCity = ""
objCenters = New CenterBF().GetCenterALL()
End If
ddlCenter.DataSource = objCenters
ddlCenter.DataTextField = "CenterName"
ddlCenter.DataValueField = "CenterId"
ddlCenter.DataBind()
Dim li As ListItem = New ListItem
li.Text = "Select"
li.Value = "0"
ddlCenter.Items.Insert(0, li)
ddlCenter.SelectedIndex = 0
End Sub
Protected Function AddChild() As Integer
Dim longreturn As Integer = 0
Dim dRow As DataRow
If txtFirstChildName.Text.Trim <> "" Then
Dim objChildrenDetails1 As New clsChildrenDetails
dRow = objChildrenDetails1.Tables(0).NewRow
'objChildrenDetails1 = ViewState("FirstChildDetails")
'dRow = objChildrenDetails1.Tables(0).Rows(0)
With dRow
If Request.QueryString("Mode") = "Edit" Then
.Item(clsChildrenDetails.PARENTID_FIELD) = Session("UserId")
Else
.Item(clsChildrenDetails.PARENTID_FIELD) = parentId
End If
.Item(clsChildrenDetails.CHILDNAME_FIELD) = txtFirstChildName.Text.Trim
.Item(clsChildrenDetails.GENDER_FIELD) = ddlFirstChildGender.SelectedValue.Trim
.Item(clsChildrenDetails.CENTERID_FIELD) = ddlCenter.SelectedValue.Trim
.Item(clsChildrenDetails.DATEOFBIRTH_FIELD) = txtDOB.Text 'CType((ddlFirstChildMonth.SelectedValue.Trim & "/" & ddlFirstChildDate.SelectedValue.Trim & "/" & ddlFirstChildYear.SelectedValue.Trim), Date)
.Item(clsChildrenDetails.CHILDCREATEDDATE_FIELD) = Today.Date
.Item(clsChildrenDetails.CHILDMODIFIEDDATE_FIELD) = Today.Date
.Item(clsChildrenDetails.ISPAID_FIELD) = 0
If fupImage.HasFile Then
fupImage.SaveAs(Server.MapPath("../Data/Gallery/" + fupImage.FileName))
.Item(clsChildrenDetails.PATH_FIELD) = "../Data/Gallery/" + fupImage.FileName
Else
.Item(clsChildrenDetails.PATH_FIELD) = DBNull.Value
End If
End With
objChildrenDetails1.Tables(0).Rows.Add(dRow)
With New ChildrenDetailsBF
.CreateChildrenDetails(objChildrenDetails1, longreturn)
End With
End If
Return longreturn
End Function
Protected Sub PasteGooleAnalytic()
GoogleAnalytic.Visible = True
End Sub
Protected Function getOrdinalSuffix(ByVal val As Integer) As String
Dim arrSuffix() As String = {"th", "st", "nd", "rd"}, digit = val Mod 10
If (val > 10 And val < 14) Or digit > 3 Then
Return val & arrSuffix(0)
Else
Return val & arrSuffix(digit)
End If
End Function
Protected Sub BindEYPImages()
Dim ImagesPath As String = "~/Data/EYP", ChildImagesPath As String = "~/Data/EYP1", TestimonialPath = "~/Data/EYP2"
If Directory.Exists(Server.MapPath(ImagesPath)) Then
Dim Images As String() = Directory.GetFiles(Server.MapPath(ImagesPath))
Dim ChildImages As String() = Directory.GetFiles(Server.MapPath(""))
For i As Integer = 0 To Images.Length - 1
Images(i) = New FileInfo(Images(i)).Name
Next
If Images.Length > 0 Then
rptpptEyp.DataSource = Images
rptpptEyp.DataBind()
pptEyp.Visible = True
ancEYP.Visible = True
End If
End If
If Directory.Exists(Server.MapPath(ChildImagesPath)) Then
Dim ChildImages As String() = Directory.GetFiles(Server.MapPath(ChildImagesPath))
For i As Integer = 0 To ChildImages.Length - 1
ChildImages(i) = New FileInfo(ChildImages(i)).Name
Next
If ChildImages.Length > 0 Then
rptpptChildEyp.DataSource = ChildImages
rptpptChildEyp.DataBind()
pptEyp.Visible = True
ancEYPChild.Visible = True
End If
End If
If Directory.Exists(Server.MapPath(TestimonialPath)) Then
Dim ChildImages As String() = Directory.GetFiles(Server.MapPath(TestimonialPath))
For i As Integer = 0 To ChildImages.Length - 1
ChildImages(i) = New FileInfo(ChildImages(i)).Name
Next
If ChildImages.Length > 0 Then
rptEypTestimonial.DataSource = ChildImages
rptEypTestimonial.DataBind()
rptEypTestimonial.Visible = True
ancEYPTestimonial.Visible = True
End If
End If
End Sub
End Class
