Ajuda no bind

Olá a todos

estava tentando fazer o bind e tava tudo certo até meter o ´e´ e o ´sender´ que começou a dar erros ficando assim:


Unable to cast object of type ´ASP.bl_site_papel_parede_servico_detalhes_aspx´ to type ´System.Web.UI.WebControls.RepeaterItemEventArgs´.

Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details: System.InvalidCastException: Unable to cast object of type ´ASP.bl_site_papel_parede_servico_detalhes_aspx´ to type ´System.Web.UI.WebControls.RepeaterItemEventArgs´.

Source Error:

[color=red:1a884d7a00]Line 180: ListaServicos_ItemDataBound(E, Source)[/color:1a884d7a00]


A ideia é dentro do repeater (ListaServicos) está um checkbox(CheckPromo) que verifica se o serviço é promo ou não. Se sim mostra a imagem, senão esconde...


O código é esse:


Sub Page_Load(ByVal Source As Object, ByVal E As EventArgs)
BindDataList()
ListaServicos_ItemDataBound(E, Source)
LblCodServ.Text = Request.QueryString(´CS´)
End Sub


Protected Sub ListaServicos_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.RepeaterItemEventArgs) Handles ListaServicos.ItemDataBound

Con =New OleDbConnection(StrCon)
Cmd =New OleDbCommand(´SELECT Tab_Servico.[Servico_Cod], Tab_Servico.[CategoriaServico_Cod], Tab_Servico.[Servico_Nome], Tab_Servico.[Servico_Destaque], Tab_Servico.[Servico_Descricao], Tab_Servico.[Servico_Duracao], Tab_Servico.[Servico_Promocao], Tab_Servico.[Servico_Destacado], Tab_Servico.[Servico_Imagem], Tab_CategoriaServico.GrupoServico_Cod, Tab_CategoriaServico.CategoriaServico_Nome, Tab_CategoriaServico.CategoriaServico_Descricao, Tab_GrupoServico.GrupoServico_Cod, Tab_GrupoServico.GrupoServico_Nome, Tab_GrupoServico.GrupoServico_Imagem FROM Tab_GrupoServico INNER JOIN (Tab_CategoriaServico INNER JOIN Tab_Servico ON Tab_CategoriaServico.CategoriaServico_Cod = Tab_Servico.CategoriaServico_Cod) ON Tab_GrupoServico.GrupoServico_Cod = Tab_CategoriaServico.GrupoServico_Cod WHERE (((Tab_Servico.[Servico_Nome])=´ & Request.QueryString(´CategoriaTexto´) & ´))´, Con)
Con.Open()
Dtr = Cmd.ExecuteReader(CommandBehavior.CloseConnection)
ListaServicos.DataSource = Dtr
ListaServicos.DataBind()Dim CheckPromo As CheckBox = CType(e.Item.FindControl(´CheckPromo´), CheckBox)
If CheckPromo.Checked Then
formServicos.FindControl(´ImgPromo´).Visible = True
Else
formServicos.FindControl(´ImgPromo´).Visible = False
End If
Con.Close()
End Sub