User-929591473 posted
Hi,
I adopted an old application. The AutoCompleteExtender has recently quit working. Why would this happen? The code has not changed in over 2 years?
Here is part of the source (the part I thought would help find a solution anyway) -
<asp:TextBox runat="server" ID="autoCompleteTextBox" Width="300" />
<ajaxToolkit:AutoCompleteExtender runat="server" BehaviorID="AutoCompleteEx" ID="autoComplete1"
TargetControlID="autoCompleteTextBox" ServicePath="http://ciifapps/logins/MyWebService.asmx"
ServiceMethod="GetCompletionList2" UseKeyValuePairs="True" FirstRowSelected="True"
OnClientHidden="clientHidden"
OnClientItemSelected ="clientSelected" MinimumPrefixLength="2" OnClientShowing="clientShowing"
CompletionInterval="500" EnableCaching="true" CompletionSetCount="20"
CompletionListCssClass="autocomplete_completionListElement"
CompletionListItemCssClass="autocomplete_listItem" DelimiterCharacters=",;"
CompletionListHighlightedItemCssClass="autocomplete_highlightedListItem" OnClientPopulating="clientPopulating" />
Here is the code behind -
Imports Utilities
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.Odbc
Partial Class Ajax
Inherits BasePage
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.Master.TabGroup = Utilities.TabGroup.UserAccounts
Dim css As New HtmlLink
css.Href = "CSS/StaffLookup.css"
css.Attributes("rel") = "stylesheet"
css.Attributes("type") = "text/css"
css.Attributes("media") = "all"
Page.Header.Controls.Add(css)
Dim sbd As New StringBuilder("")
With sbd
.Append("function requeryForm() {")
.Append(ClientScript.GetPostBackEventReference(Me.refreshButton, ""))
.Append(";return true;}")
End With
ScriptManager.RegisterClientScriptBlock(Me.Page, Me.GetType, "K001", sbd.ToString, True)
Dim EmpID As Int32 = 0
If Not Request.QueryString("EmpID") Is Nothing Then
EmpID = Convert.ToInt32(Request.QueryString("EmpID"))
Me.SqlDataSource1.SelectParameters(0).DefaultValue = EmpID
End If
End Sub
Protected Sub refreshButton_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Me.FormView1.DataBind()
End Sub
Protected Sub deleteLink_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim cnn As New SqlConnection(Utilities.GetConnectionString("main"))
cnn.Open()
Dim s As String = ""
Dim recs As Int32 = 0
Dim Username As String = CType(sender, LinkButton).CommandArgument
Dim cmd As New System.Data.SqlClient.SqlCommand("DELETE FROM tblUser WHERE UsrLogin=@UsrLogin", cnn)
cmd.Parameters.AddWithValue("@UsrLogin", Username)
recs = cmd.ExecuteNonQuery()
cmd.Dispose()
' ------------------------------------------------------------------------------------------------------
Dim cnn2 As System.Data.Odbc.OdbcConnection
Dim cmd2 As System.Data.Odbc.OdbcCommand
Dim i As Int32 = 0
cnn2 = New System.Data.Odbc.OdbcConnection(GetConnectionString("access95mdw"))
cnn2.Open()
i = 0
cmd2 = New System.Data.Odbc.OdbcCommand()
cmd2.Connection = cnn2
cmd2.CommandText = "DROP USER [" & Username & "]"
Try
i = cmd2.ExecuteNonQuery()
Catch ex As Exception
' Handle Errors
End Try
cmd2.Dispose()
cnn2.Close()
cnn2.Dispose()
cnn2 = New System.Data.Odbc.OdbcConnection(GetConnectionString("access2kmdw"))
cnn2.Open()
cmd2 = New System.Data.Odbc.OdbcCommand()
i = 0
cmd2.Connection = cnn2
cmd2.CommandText = "DROP USER [" & Username & "]"
Try
i = cmd2.ExecuteNonQuery()
Catch ex As Exception
' Handle Errors
End Try
cmd2.Dispose()
cnn2.Close()
cnn2.Dispose()
' ------------------------------------------------------------------------------------------------------
cnn.Close()
cnn.Dispose()
If s.Length > 0 Then
Me.statusLabel.Text = s
Else
Response.Redirect("Ajax.aspx")
End If
End Sub
Protected Sub changePasswordLink_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Response.Redirect("ChangePassword.aspx?EmpID=" & CType(sender, LinkButton).CommandArgument)
End Sub
Protected Sub addLoginLinkButton_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim c As Object
Dim url As String = "LoginAdd.aspx"
c = Me.FormView1.FindControl("EmpIDLabel")
url &= "?EmpID=" & Server.UrlEncode(CType(c, Label).Text)
Response.Redirect(url)
End Sub
End Class
Any ideas why this code would just stop working?
Thank you in advance for any help.
Best regards,
Mark
