19 July 2007

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

Tagged:

0 comments:

Post a Comment