Private Sub FillDropDownList()
Dim reader As DataSet
reader = CType(Cache("AhsRedirectDs"), DataSet)
If (reader Is Nothing) Then
Dim objAHSRedirect As New AHSRedirectController
reader = objAHSRedirect.GetDSList()
Cache.Insert("AhsRedirectDs", reader, Nothing, DateTime.Now.AddHours(23), Cache.NoSlidingExpiration)
End If
ddRedirect.DataSource = reader.Tables(0)
ddRedirect.AutoPostBack = True
ddRedirect.DataValueField = "URL"
ddRedirect.DataTextField = "Name"
ddRedirect.DataBind()
End Sub
Dim reader As DataSet
reader = CType(Cache("AhsRedirectDs"), DataSet)
If (reader Is Nothing) Then
Dim objAHSRedirect As New AHSRedirectController
reader = objAHSRedirect.GetDSList()
Cache.Insert("AhsRedirectDs", reader, Nothing, DateTime.Now.AddHours(23), Cache.NoSlidingExpiration)
End If
ddRedirect.DataSource = reader.Tables(0)
ddRedirect.AutoPostBack = True
ddRedirect.DataValueField = "URL"
ddRedirect.DataTextField = "Name"
ddRedirect.DataBind()
End Sub
Comments
Post a Comment