<%@LANGUAGE=VBSCRIPT %> <% Response.ContentType = "text/xml" Response.Write(" ") %> Welome,Please choose available published published For , press . <% Dim con, rs ,gobjConnect con ="Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("News.mdb") Set gobjConnect = Server.CreateObject("ADODB.Connection") gobjConnect.Open con 'Set rs = Server.CreateObject("ADODB.RecordSet") 'str = "SELECT CategoriesName From Categories " 'rs.Open str,gobjConnect set rs=gobjConnect.Execute("Select publishedName FROM published") dim number number = 1 Do Until rs.EOF Response.Write("" & rs("PublishedName") & "") rs.MoveNext number=number+1 Loop Response.Write("") rs.movefirst %> Please Choose one of the available News Published. I didn't hear anything, please say or press again I didn't get that, please say or press again You have exceeded the limits allowed for retries. System will now stop the application. <% Do Until rs.EOF Response.Write("

") Response.Write("") Response.Write("") Response.Write("" ) Response.Write("") Response.Write("

") rs.MoveNext Loop rs.close %>