Datagrid unwanted double databind

[Blackat]

Hi, I am having issues with some coding & datagrids.
I got all the functionality in my datagrid (took me long enough) that I wanted but now I get some very ODD problem.

My datagrid fills (databinds) correctly at the initial load of the page.
However IF i press any of the sorting buttons, selecting buttons (or any other function that makes the page rebind), I get double results in my datagrid!

this is only the first time I use a function though!!! the second third etc the code works great.

Any ideas what im doing wrong.
Initial load: works fine
first use of ANY function: Double results
second and onwards : works fine......

any tips?

Here is the complete code im useing.. hopefully someone can help me out..
Hope there is some usefullstuff in there for other coders
A.Prinsen

PS. if you got any tips how to improve the coding this is my first ASP.Net project advice is welcome

[Blackat]

here is the code PART 1 (script part)

%@ Page Explicit="True" Language="VB" Debug="True" %
%@ Import Namespace="system.data"%
%@ Import Namespace="system.data.OLEDB"%
script language="VB" runat="server"




Protected login as string
Protected password as  string
Protected validated as boolean
Protected SQLStmt As String = "SELECT klnaam, klsoort, klstad, kltel, klFax FROM klanten" 
Protected ConString As String = "Provider=SQLOLEDB;server=localhost;uid=****;pwd=****;database=*****;"

protected da as new oledbdataadapter(SQLStmt, constring)
protected ds as new dataset
protected dtable as datatable 
protected dv as new dataview

SUB page_load(ByVal sender As System.Object, ByVal e As System.EventArgs)
	
	IF Not Page.IsPostBack Then
		USER_CHECK(session("login"),session("password"))
		IF validated
			lbluser.text= "Logged in as: " & session("login")
			panelauth.visible="false"
			panellogged_in.visible="true"	  		
			viewstate("sortdirection")= "ASC"
			viewstate("sortfield")= "klnaam"
			InitGrid()	
		ELSE	
			panelauth.visible="true"
			panellogged_in.visible="false"
		END IF			
		
	END IF
	generatepager()
END SUB

SUB USER_CHECK(login,password)
	'===================
	'DB connecten om een read actie uit te voeren.
	'===================
	
	Dim myconnection as new OLEDBconnection(ConString)
	Dim sqlquery as string = "SELECT * FROM tblusers WHERE login = " & "'"  & login & "'" & "And password =" & "'" & password & "'"
	Dim mycommand = new OLEDBcommand(sqlquery, myconnection)	
	Dim userdata as Oledbdatareader
	
	TRY
			myconnection.open()
	CATCH
			response.write("ERROR: Failed to open database<br>")
			myconnection.close()
			EXIT SUB
	END TRY
		
		'========================
		'controleren of user & password bestaan in database zoniet is het dus niet geldig en wordt toegang gewijgerd
		'========================
		TRY
			userdata = mycommand.executeReader()
		CATCH
			response.write("ERROR: Failed to read database<br>")
			myconnection.close()
			EXIT SUB
		END TRY
		
	IF NOT userdata.Read() THEN
		validated = False
		userdata.close
	ELSE
		validated = True
		userdata.close
	END IF
		myconnection.close()	
END SUB

SUB checklogin(obj as object, E as eventargs)
	USER_CHECK(invoerlogin.text , invoerpassword.text)
	IF validated = true
		session("login")= invoerlogin.text
		session("password")= invoerpassword.text
		response.redirect("main.aspx")
	ELSE
		response.write("login/password combination is incorrect")
 	END IF
END SUB


SUB InitGrid()
	da.fill(ds,"klanten")
	dtable = ds.tables("klanten")
	dv.table = (dtable)
	dv.sort = "klnaam ASC"
	mainscreen.DataSource = dv
	mainscreen.Databind()					
END SUB

SUB fillGrid()
	da.fill(ds,"klanten")
	dtable = ds.tables("klanten")
	dv.table = (dtable)
	dv.sort = viewstate("sortfield") & " " & viewstate("sortdirection") 
	dv.rowfilter = viewstate("AlphaSelection")
	mainscreen.DataSource = dv
	Mainscreen.Databind()
END SUB


SUB mainscreen_pageindexchanged(obj as Object, e as DataGridPageChangedEventArgs)
	Mainscreen.CurrentPageIndex = e.NewPageIndex
	 'Rij deselecteren
 	Mainscreen.SelectedIndex = "-1"
	
END SUB

SUB SessionEnd(Obj as object, E as eventargs)
	'session terminaten
	Session.Abandon
	'redirecten na terminaten naar index
	Response.Redirect("index.aspx")
END SUB

Sub SelectItemCommand(Obj As Object, E As DataGridCommandEventArgs)
	'Als item in grid wordt geclickt dan dit uitvoeren:
	'Geselecteerde item bepalen:
	Mainscreen.SelectedIndex = E.Item.ItemIndex

	'fillgrid alleen uitvoeren als de gedrukte knop afkomstig is uit de rij
	'waar hij gedrukt is. (anders krijg je een dubbele fillgrid! met bijvoorbeeld Sorten)
	Select Case E.Item.ItemType
	    	Case ListItemType.Item, ListItemType.SelectedItem
		fillGrid()
	End Select
End Sub


Sub SortCommand_OnClick(Source As Object, E As DataGridSortCommandEventArgs)
		'status van gekozen letter
		'viewstate("alpha","")
		'status van desc-asc
		viewstate("sortfield")= e.SortExpression
		
		IF viewstate("lastfield")<> viewstate("sortfield") Then
				viewstate("sortdirection") = "ASC"
		Else
			If viewstate("sortdirection") = "DESC" 
				viewstate("sortdirection") = "ASC"	
		
			Else 	
				viewstate("sortdirection") = "DESC"	
		
			End If
		End If
		
		'laatste gebruikte sorteer kolom onthouden. 			
		viewstate("lastfield") = e.SortExpression

		'mogelijke paginereing op 0 zetten om bij pagina 1 it beginnen als paginere aanstaat
		mainscreen.CurrentPageIndex = "0"		 
		
		'mogelijk selectie unselecteren
		mainscreen.SelectedIndex = "-1"
		fillgrid()
END SUB
		
SUB generatepager()
		'aanmaken van alles-ABC...Z knoppen en toewijzen van functies
		
		Dim alphatitle As LiteralControl = New Literalcontrol()
		Dim Spacer1 As LiteralControl = New Literalcontrol()
		Dim AllesLinkButton As LinkButton = New LinkButton()
		Dim Aantal As textbox = New textbox()
		
		AllesLinkButton.Text = "[Alles]"
		alphatitle.text= "Selectie: "
		Spacer1.text= " " & "||" & " "
		AllesLinkButton.CommandName = "alphapaging"
		AllesLinkButton.CommandArgument = ""	
		AddHandler allesLinkButton.Command, AddressOf MyLinkButtonclick 
		AlphaPagePanel.Controls.Add(alphatitle)	
		AlphaPagePanel.Controls.Add(AllesLinkButton)
		AlphaPagePanel.Controls.Add(spacer1)		            	
		
		'alphabet met links genereren voor selectie Chr 65=a 
		Dim i as integer
		For i = 65 To 65 + 25
			Dim Spacer2 As LiteralControl = New LiteralControl()
			Dim MyLinkButton As LinkButton = New LinkButton()
			Spacer2.text=" "
			MyLinkButton.Text = Chr(i)
			MyLinkButton.CommandName = "alphapaging"
			MyLinkButton.CommandArgument = Chr(i)	
			'functie koppelen aan knoppen.. duurde ff om te vinden zeg pff
			AddHandler MyLinkButton.command, AddressOf MyLinkButtonclick 
			AlphaPagePanel.Controls.Add(MyLinkButton)
			AlphaPagePanel.Controls.Add(spacer2)
		Next

END SUB

SUB MyLinkButtonclick(obj as object, E as CommandEventargs)
'uitvoeren van alles-abc..z knoppen, deze maken een selectie criterium op alphabet
 IF e.CommandArgument <> "" Then
 	viewstate("AlphaSelection")= " klnaam LIKE " & "'" & lcase(e.CommandArgument) &"%" & "'" 
 Else  
 	viewstate("AlphaSelection")= "klnaam LIKE " & "'" & "*" & "'" 
 End If
 
 'Pagina op 1 instellen
 Mainscreen.CurrentPageIndex = "0"
 'Rij deselecteren
 Mainscreen.SelectedIndex = "-1"
 
 FillGrid()
 
END SUB

Sub maxqueries(Obj As Object, e As EventArgs)
	If maxaantal.text <> "" 
		'check of aantal per pagina tussen 0 en 9999 valt
		'niets doen als het erbuiten valt / zo ook alpha chars makkelijk afvangen
		'pager laten zien plaatsvervangende footer laten zien
		If 	(maxaantal.text < "0") or (maxaantal.text > "9999")
			
		ElseIf  maxaantal.text = "0" 
			Mainscreen.allowpaging="false"
			Mainscreen.showfooter="true"
			Mainscreen.SelectedIndex = "-1"
		Else
			Mainscreen.allowpaging = "true"
			Mainscreen.pagesize = maxaantal.text
			Mainscreen.showfooter="False"
			Mainscreen.SelectedIndex = "-1"
		End If
	Else
		Mainscreen.allowpaging="false"
		Mainscreen.showfooter="true"
		Mainscreen.SelectedIndex = "-1"
	End If
	
	'Pagina op 1 instellen als er gebruik van wordt gemaakt veroorzaakt anders 
	'crash als index hoger is dan de aantal nieuwe pagina's die worden gemaakt
	Mainscreen.CurrentPageIndex = "0"
		
	FillGrid()

END SUB

SUB clearfooter(Sender As Object, e As DataGridItemEventArgs)
	'mooie lege footermaken (puur cosmetisch)
	If e.Item.ItemType = ListItemType.Footer Then
            e.Item.Cells.Clear()
	    Dim tc As New TableCell()
	    tc.ColumnSpan = 5
	    e.Item.Cells.Add(tc)
	    Dim lc As New LiteralControl()
	    lc.Text = "&nbsp;"
            tc.Controls.Add(lc)
        End If
END Sub

'========================EINDE SCRIPT================================
/script

[Blackat]

HTML part

{body bgcolor="#EEEEEE"}
{form method="post" runat="server"}
{asp:panel id="panelauth" runat="server"}
	Authentication is required in order to access this page.{br}
	{ASP:textbox id="invoerlogin" runat="server"/}
	{ASP:requiredfieldvalidator id="loginrequired" controltovalidate="invoerlogin" Errormessage="Login required" display="none"  runat="server" /}
	{ASP:textbox id="invoerpassword" textmode="password" runat="server"/}
	{ASP:requiredfieldvalidator id="passwordrequired" controltovalidate="invoerpassword" Errormessage="Password required" display="none" runat="server"/}
	{ASP:button id="submit" text="submit" onclick="checklogin" runat="server" /}
	{ASP:validationsummary displaymode="bulletlist" forecolor="red" runat="server" /}
{/asp:panel}
{asp:panel id="panellogged_in" runat="server"}

{table width="100%" height="30"}
	{tr valign=top}
	{td align=left}{Font size=+1}Administratie{/font}{/td}
	{td align=right}{asp:label id="lbluser" runat="server" /}
	{asp:button id="logoff" text="Log Off" onClick="sessionend" runat="server"/}
	{/td}
	{/tr}
{/table}

nog te implementeren knoppen: Klant - partner - leverancier - overige{br}

{table width="100%" border="1" cellspacing="3" cellpadding="0" bgcolor="#dddddd" 
 {tr}
  {td width=65% rowspan="2" valign="Top" height="100" bgcolor="#dddddd" }
	{div id="mainscreendiv" style="position:relative;width:100%;height:100%;overflow:scroll;"}
		
		{asp:panel ID="alphapagepanel" border="1" align="left" backcolor="#dddddd" Width="100%" runat="server" /}
		
		{asp:Datagrid runat="server"
			Id="mainscreen"
			AllowSorting = "True"
			OnSortCommand = "SortCommand_OnClick"
			OnitemCreated = "clearfooter"
			OnItemCommand = "SelectItemCommand"
			OnPageIndexChanged="mainscreen_pageindexchanged"

			Showfooter="true"
			Autogeneratecolumns="FALSE"
			AllowPaging="false"

			BorderColor="black"
			BorderWidth="1"
			GridLines="Both"
			CellPadding="3"
			CellSpacing="0"
			Font-Name="Arial"
			Font-Size="10"
			Width="100%"
			Backcolor="#FFFFFF"

			Headerstyle-BackColor="#aaaadd"
			Headerstyle-Forecolor="#FFFFFF"
			Headerstyle-Font-Name="Arial"
			Headerstyle-Font-Bold="True"
			Headerstyle-Font-Size="11"

			SelectedItemStyle-BackColor="#ddddaa"
			SelectedItemStyle-Font-Name="Arial"
			SelectedItemStyle-Font-Bold="False"
			SelectedItemStyle-Font-Size="10"

			AlternatingItemStyle-BackColor="#eeeeee"
			AlternatingItemStyle-Font-Name="Arial"
			AlternatingItemStyle-Font-Size="10"

			Pagerstyle-visible="true"
			Pagerstyle-Font-Bold="True"
			Pagerstyle-BackColor="#aaaadd"
			Pagerstyle-Forecolor="#FFFFFF"
			Pagerstyle-Font-Name="Arial"
			Pagerstyle-Font-Size="11"
			Pagerstyle-mode="numericpages"

			footerstyle-colums="5"
			footerstyle-Font-Bold="True"
			footerstyle-BackColor="#aaaadd"
			footerstyle-Forecolor="#FFFFFF"
			footerstyle-Font-Name="Arial"
			footerstyle-Font-Size="11"}

			{Columns}
					{asp:BoundColumn 
						DataField="klnaam" 
						HeaderText="Naam"
						SortExpression="klnaam"
						/}
					{asp:BoundColumn 
						DataField="klstad" 
						HeaderText="Stad"
						SortExpression="klstad"}
					{/asp:BoundColumn}
					{asp:BoundColumn 
						DataField="kltel" 
						HeaderText="Tel. nr."
						SortExpression="kltel"
						ItemStyle-Width="120px"}
					{/asp:BoundColumn} 
					{asp:ButtonColumn
					Text="[Select]"
					Visible="true"
					ItemStyle-Width="60px"
					ItemStyle-horizontalAlign="Center"}
					{/asp:ButtonColumn} 
				{/Columns}
		{/asp:datagrid}

		{asp:panel align="left" ID="aantal" backcolor="#dddddd" Width=100% runat="server"}
		
		Getoond per pagina: 
		
		{asp:textbox id="maxaantal" maxlength="4" columns="4" autopostback="true" onTextChanged="maxqueries" value="0" runat="server" /}
		
		{/asp:panel}
	{/div}
  {/td}
  {td width=35% valign="Top" height="125" BGcolor="#FFFFFF"}
	
		{div id="abo" style="position:relative;width:100%; height:100%;overflow: scroll;backcolor:#FFFFFF"}
		Verlopen service abo's hier
	
  {/td}
 {/tr}

 {tr}
  {td height="375" bgcolor="#ffffff"}
	{div id="info" style="position:relative;width:100%; height=100%;overflow: scroll;"} 
		Extra info hier{br}
		test{br}
		test{br}
		test{br}
		test{br}
		tset{br}
		tset{br}
		tset{br}test{br}test{br}
		test{br}test{br}
		test{br}test{br}
		test{br}
		test{br}
		test{br}test{br}
		test{br}test{br}
		test{br}test{br}
		test{br}einde test
	{/div}
  {/td}
 {/tr}
 
{/table}




{/asp:panel}
{/form}
{/body}
{/html}

please interchange {} for the greater aand smaller signs
(html problems / and code /code not working properly

[Blackat]

or download the full code from
www.logitime.com/code.txt

(right mouseclick the link and use save as option)