Foros del web, para los que viven de bits

<script language="vb" runat="server">
dim fechaingreso as string
Sub Page_Load(sender as Object, e as EventArgs)
If Not IsPostBack
RellenarDDLYears()
ddlYear.SelectedValue = Date.Now.Year

RellenarDDLMonths()
ddlMonth.SelectedIndex = Date.Now.Month - 1

RellenarDDLDays(ddlMonth.SelectedIndex + 1)
ddlDay.SelectedValue = Date.Now.Day
End If

fechaingreso = ddlDay.SelectedValue &"/"& ddlMonth.SelectedValue &"/"& ddlYear.SelectedValue
End Sub

Sub Cambia_Mes(sender as Object, e As EventArgs)
Session("ssDaySelected") = ddlDay.SelectedIndex
RellenarDDLDays(sender.SelectedIndex + 1)
End Sub

Sub RellenarDDLDays(ipMes As Integer)
ddlDay.Items.Clear()
Dim endDayNumber, i As Integer
If ipMes.Equals(1) Or ipMes.Equals(3) Or ipMes.Equals(5) Or ipMes.Equals(7) Or ipMes.Equals(8) Or ipMes.Equals(10) Or ipMes.Equals(12)
endDayNumber = 31
Else If ipMes.Equals(4) Or ipMes.Equals(6) Or ipMes.Equals(9) Or ipMes.Equals(11)
endDayNumber = 30
Else
endDayNumber = 28
End If
For i = 1 To endDayNumber
ddlDay.Items.Add(i)
ddlDay.DataValueField = i
ddlDay.DataTextField = i
Next

If Not Session("ssDaySelected") Is Nothing Then
ddlDay.SelectedIndex = Convert.toInt32(Session("ssDaySelected"))
Session.Clear()
End If
End Sub

Sub RellenarDDLYears()
ddlYear.Items.Clear()
Dim i As Integer
For i = 1990 To 2100
ddlYear.Items.Add(i)
Next
End Sub

Sub RellenarDDLMonths()
ddlMonth.Items.Clear()
Dim Meses As String() = {"Enero","Febrero","Marzo","Abril","Mayo","Junio", "Julio","Agosto","Septiembre","Octubre","Noviembre ","Diciembre"}
Dim i As Integer
For i = 0 To Meses.Length()-1
ddlMonth.Items.Add(Meses(i))
ddlMonth.DataValueField = i
ddlMonth.DataTextField = Meses(i)
Next
End Sub
</script>

:::::::::::::::::::::::::::::::::::::::::::::::::: :::::::::::::::::::




<script language="vb" runat="server">
dim fechaConyuge as string
Sub Page_Load(sender1 as Object, e1 as EventArgs)
If Not IsPostBack
RellenarDDLYears1()
ddlYear1.SelectedValue = Date.Now.Year

RellenarDDLMonths1()
ddlMonth1.SelectedIndex = Date.Now.Month - 1

RellenarDDLDays1(ddlMonth.SelectedIndex + 1)
ddlDay1.SelectedValue = Date.Now.Day
End If

fechaConyuge = ddlDay1.SelectedValue &"/"& ddlMonth1.SelectedValue &"/"& ddlYear1.SelectedValue
End Sub

Sub Cambia_Mes1(sender1 as Object, e1 As EventArgs)
Session("ssDaySelected1") = ddlDay1.SelectedIndex
RellenarDDLDays1(sender1.SelectedIndex + 1)
End Sub

Sub RellenarDDLDays1(ipMes1 As Integer)
ddlDay1.Items.Clear()
Dim endDayNumber1, i As Integer
If ipMes1.Equals(1) Or ipMes1.Equals(3) Or ipMes1.Equals(5) Or ipMes1.Equals(7) Or ipMes1.Equals(8) Or ipMes1.Equals(10) Or ipMes1.Equals(12)
endDayNumber1 = 31
Else If ipMes.Equals(4) Or ipMes.Equals(6) Or ipMes.Equals(9) Or ipMes.Equals(11)
endDayNumber1 = 30
Else
endDayNumber1 = 28
End If
For i = 1 To endDayNumber1
ddlDay1.Items.Add(i)
ddlDay1.DataValueField = i
ddlDay1.DataTextField = i
Next

If Not Session("ssDaySelected1") Is Nothing Then
ddlDay1.SelectedIndex = Convert.toInt32(Session("ssDaySelected1"))
Session.Clear()
End If
End Sub

Sub RellenarDDLYears1()
ddlYear1.Items.Clear()
Dim i As Integer
For i = 1990 To 2100
ddlYear1.Items.Add(i)
Next
End Sub

Sub RellenarDDLMonths1()
ddlMonth1.Items.Clear()
Dim Meses1 As String() = {"Enero","Febrero","Marzo","Abril","Mayo","Junio", "Julio","Agosto","Septiembre","Octubre","Noviembre ","Diciembre"}
Dim i As Integer
For i = 0 To Meses1.Length()-1
ddlMonth1.Items.Add(Meses(i))
ddlMonth1.DataValueField = i
ddlMonth1.DataTextField = Meses1(i)
Next
End Sub


ahi se ve el codigo para 2 rutinas con grupo d combos distintos.... los primeros son para los combos ddlmonth ddlyear ddlday y los otros para ddlmonth1 ddlyear1 ddlday1

el problema es q me dice q hay duplicacion d variables....capaz me ekivoq en algo y los 2codigos son distintosy me sale el sgte error

Compiler Error Message: BC30269: Method 'Page_Load' has multiple definitions with identical signatures.

Source Error:



Line 16: <script language="vb" runat="server">
Line 17: dim fechaingreso as string
Line 18: Sub Page_Load(sender as Object, e as EventArgs)
Line 19: If Not IsPostBack
Line 20: RellenarDDLYears()

espero contar con su ayuda