Hai friendi used ajaxpro.dll (version 6.9.27.3) and my .netframe work is .Net1.1I wrote a ajaxmothed function to retriving data from sql-server 2000, it working first time, if i give refresh it is not working and also if i simantenusly open in another browser means also not working. Please guide me. It\'s very urgentmy code is <AjaxPro.AjaxMethod()> _ Public Function getxmldata(ByVal SQLStr As String) As StringPublic Function getxmldata(ByVal SQLStr As String) As String \' Dim XmlString As String\' Dim XmlString As String Dim TableString As StringDim TableString As String Dim SQLCon As SqlClient.SqlConnection TryDim SQLCon As SqlClient.SqlConnection TryTry Dim IEnumView As IEnumerator Dim ConStr As New ConStr Dim AlternateColor As StringDim IEnumView As IEnumerator Dim ConStr As New ConStr Dim AlternateColor As StringDim ConStr As New ConStr Dim AlternateColor As StringDim AlternateColor As String Dim i As IntegerDim i As Integer SQLCon = New SqlClient.SqlConnection(ConStr.ConnString) SQLCon.Open() SQLCmd = New SqlClient.SqlCommand(SQLStr, SQLCon) SQLReader = SQLCmd.ExecuteReader() \'SQLAdapter = New SqlClient.SqlDataAdapter(SQLCmd)New SqlClient.SqlConnection(ConStr.ConnString) SQLCon.Open() SQLCmd = New SqlClient.SqlCommand(SQLStr, SQLCon) SQLReader = SQLCmd.ExecuteReader() \'SQLAdapter = New SqlClient.SqlDataAdapter(SQLCmd)New SqlClient.SqlCommand(SQLStr, SQLCon) SQLReader = SQLCmd.ExecuteReader() \'SQLAdapter = New SqlClient.SqlDataAdapter(SQLCmd)\'SQLAdapter = New SqlClient.SqlDataAdapter(SQLCmd) \'dtTable = New DataTable\'dtTable = New DataTable \'SQLAdapter.Fill(dtTable)\'SQLAdapter.Fill(dtTable) \'dvView = New DataView(dtTable)\'dvView = New DataView(dtTable) TableString = \"<table border=0 cellpadding=1 cellspacing=1 width=\'100%\' align=center>\" Dim StrStyle As String = \"Style=\'font-family:Verdana;font-size:12px;\" _ & \"text-decoration:none;word-spacing:normal;letter-spacing:normal;text-transform:none;\'\" Dim StrHead As String = \"Style=\'background-color:#33cce6;font-family:Verdana;\" _ & \"color:White;font-size:14px;\'\" TableString += \"<tr>\" TableString += \"<td align=\'center\' \" + StrHead + \"><b>English</b></td>\" TableString += \"<td align=\'center\' \" + StrHead + \"><b>Portuguese</b></td>\" TableString += \"<td align=\'center\' \" + StrHead + \"><b>Malay</b></td>\" TableString += \"<td align=\'center\' \" + StrHead + \"><b>Spanish</b></td>\" TableString += \"</tr>\" If SQLReader.HasRows ThenDim StrStyle As String = \"Style=\'font-family:Verdana;font-size:12px;\" _ & \"text-decoration:none;word-spacing:normal;letter-spacing:normal;text-transform:none;\'\" Dim StrHead As String = \"Style=\'background-color:#33cce6;font-family:Verdana;\" _ & \"color:White;font-size:14px;\'\" TableString += \"<tr>\" TableString += \"<td align=\'center\' \" + StrHead + \"><b>English</b></td>\" TableString += \"<td align=\'center\' \" + StrHead + \"><b>Portuguese</b></td>\" TableString += \"<td align=\'center\' \" + StrHead + \"><b>Malay</b></td>\" TableString += \"<td align=\'center\' \" + StrHead + \"><b>Spanish</b></td>\" TableString += \"</tr>\" If SQLReader.HasRows ThenDim StrHead As String = \"Style=\'background-color:#33cce6;font-family:Verdana;\" _ & \"color:White;font-size:14px;\'\" TableString += \"<tr>\" TableString += \"<td align=\'center\' \" + StrHead + \"><b>English</b></td>\" TableString += \"<td align=\'center\' \" + StrHead + \"><b>Portuguese</b></td>\" TableString += \"<td align=\'center\' \" + StrHead + \"><b>Malay</b></td>\" TableString += \"<td align=\'center\' \" + StrHead + \"><b>Spanish</b></td>\" TableString += \"</tr>\" If SQLReader.HasRows ThenIf SQLReader.HasRows Then \'IEnumView = dvView.GetEnumerator\'IEnumView = dvView.GetEnumerator i = 0 While SQLReader.Read() If ((i Mod 2) = 0) ThenWhile SQLReader.Read() If ((i Mod 2) = 0) ThenIf ((i Mod 2) = 0) Then AlternateColor = \"TableContentSelect\" ElseElse AlternateColor = \"TableContentUnSelect\" End IfEnd If Dim Desc As StringDim Desc As String Desc = CStr(Trim(SQLReader.GetValue(1))) Desc = Desc.Replace(\"&\", \"&amp;\") Desc = Desc.Replace(\">\", \"&gt;\") Desc = Desc.Replace(\"<\", \"&lt;\") Desc = Desc.Replace(\"\\\", \"&#92\") Desc = Desc.Replace(\"\'\", \"&#39;\") Desc = Desc.Replace(\",\", \"&#44;\") TableString += \"<tr id=\'Row\" + i.ToString + \"\' class=\" + AlternateColor + \" desc=\'\" + Desc + \"\' onClick=ShowDesc(\'Row\" + i.ToString + \"\');\" TableString += \" onmouseover=this.className=\'LOVSelectRow\'; onmouseout=this.className=\'LOVDetail\';>\" TableString += \"<td valign=\'bottom\' \" + StrStyle + \">\" + SQLReader.GetValue(0) + \"</td>\" TableString += \"<td valign=\'bottom\' \" + StrStyle + \">\" + SQLReader.GetValue(2) + \"</td>\" TableString += \"<td valign=\'bottom\' \" + StrStyle + \">\" + SQLReader.GetValue(3) + \"</td>\" TableString += \"<td valign=\'bottom\' \" + StrStyle + \">\" + SQLReader.GetValue(4) + \"</td>\" TableString += \"</tr>\" i = i + 1 End WhileCStr(Trim(SQLReader.GetValue(1))) Desc = Desc.Replace(\"&\", \"&amp;\") Desc = Desc.Replace(\">\", \"&gt;\") Desc = Desc.Replace(\"<\", \"&lt;\") Desc = Desc.Replace(\"\\\", \"&#92\") Desc = Desc.Replace(\"\'\", \"&#39;\") Desc = Desc.Replace(\",\", \"&#44;\") TableString += \"<tr id=\'Row\" + i.ToString + \"\' class=\" + AlternateColor + \" desc=\'\" + Desc + \"\' onClick=ShowDesc(\'Row\" + i.ToString + \"\');\" TableString += \" onmouseover=this.className=\'LOVSelectRow\'; onmouseout=this.className=\'LOVDetail\';>\" TableString += \"<td valign=\'bottom\' \" + StrStyle + \">\" + SQLReader.GetValue(0) + \"</td>\" TableString += \"<td valign=\'bottom\' \" + StrStyle + \">\" + SQLReader.GetValue(2) + \"</td>\" TableString += \"<td valign=\'bottom\' \" + StrStyle + \">\" + SQLReader.GetValue(3) + \"</td>\" TableString += \"<td valign=\'bottom\' \" + StrStyle + \">\" + SQLReader.GetValue(4) + \"</td>\" TableString += \"</tr>\" i = i + 1 End WhileEnd While ElseElse TableString = \"<table border=0 cellpadding=0 cellspacing=0 width=\'100%\' align=center height=\'100%\'>\" TableString += \"<tr height=15px valign=middle class=\'TableContentSelect\'>\" TableString += \"<td align=Center valign=middle><font color=\'Red\'><b>Record not found!<b/></font></td>\" TableString += \"</tr>\" End IfEnd If TableString += \"</table>\" dtTable = NothingNothing dvView = NothingNothing \' SQLReader.Close()\' SQLReader.Close() Return TableString Catch ex As Exception ex.ToString() \'Response.Write(\"<script language=javascript>alert(Error : \" + ex.Message + \" </script>\")Return TableString Catch ex As Exception ex.ToString() \'Response.Write(\"<script language=javascript>alert(Error : \" + ex.Message + \" </script>\")Catch ex As Exception ex.ToString() \'Response.Write(\"<script language=javascript>alert(Error : \" + ex.Message + \" </script>\")\'Response.Write(\"<script language=javascript>alert(Error : \" + ex.Message + \" </script>\") FinallyFinally SQLCon.Close() SQLReader.Close() SQLReader = NothingNothing SQLCon = NothingNothing End TryEnd TryEnd functionThanks in advanceWith regards,Senthil Kumar
--~--~---------~--~----~------------~-------~--~----~ You received this message because you are subscribed to the Google Groups "Ajax.NET Professional" group. To post to this group, send email to [email protected] To unsubscribe from this group, send email to [EMAIL PROTECTED] For more options, visit this group at http://groups.google.com/group/ajaxpro The latest downloads of Ajax.NET Professional can be found at http://www.ajaxpro.info/ Don't forget to read my blog at http://weblogs.asp.net/mschwarz/ The open source project is now located at http://www.codeplex.com/Wiki/View.aspx?ProjectName=AjaxPro -~----------~----~----~----~------~----~------~--~---
