Record Set Problem

cosuroca · Apr 28, 2012

This is an old ASP file that I am converting to ASP.NET as a test. The file generates a list of job titles. When I run this file I get System._ComObject for each of my job titles. The number of times the System._ComObject appears in the list is the same number of records that should actually be pulled. Any ideas as to why I am not actually pulling the data? I get no errors. Since this is an old ASP file I don't want to start from scratch. I am using the following code: <%@Import Namespace="System.Data"%> <%@Import Namespace="System.Data"%> <%@ Page aspcompat=true Language="vb" Debug=true%> <% Dim Conn Conn = Server.CreateObject("ADODB.Connection") Conn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("test.mdb") Conn.Open <% Dim RS = Conn.Execute("SELECT job_title FROM JobInfo where visible = 'yes' order by job_title") %> <html> <head> <title>Job Listing</title> <LINK REL=StyleSheet HREF=http://aspmessageboard.com/archive/index.php/"css/stylesheet.css" TYPE="text/css"> </head> <body class="body"> <div id="job_list_div" style="padding:5px; overflow:auto; position:absolute; left:7; top:5; width:270; height:399;" class="Input"> Job List <select name="job_list" size="10" style="position:absolute; width:265px; height:379px; font-size:8pt;" onchange="job_title = this.value;parent.job_title.selected_job_title.val ue=job_title"> <% do while not rs.eof dim job_title = rs("job_title") %> <option value="<%=job_title%>"><%=job_title%></option> <% rs.movenext loop %> </select> </div> </body> </html> <% RS.close Conn.close RS = Nothing Conn = Nothing %>I found my soultion. Here is the code if anyone cares to view it: <%@Import Namespace="System.Data"%> <%@Import Namespace="System.Data"%> <%@ Page aspcompat=true Language="vb" Debug=true%> <% Dim Conn Conn = Server.CreateObject("ADODB.Connection") Conn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("test.mdb") Conn.Open Response.Buffer = True Response.Expires = 0 Response.CacheControl = "no-cache" %> <% Dim RS = Conn.Execute("SELECT job_title FROM JobInfo where visible = 'yes' order by job_title") %> <html> <head> <title>Job Listing</title> <LINK REL=StyleSheet HREF="css/stylesheet.css" TYPE="text/css"> </head> <body class="body"> <div id="job_list_div" style="padding:5px; overflow:auto; position:absolute; left:7; top:5; width:270; height:399;" class="Input"> Job List <select name="job_list" size="10" style="position:absolute; width:265px; height:379px; font-size:8pt;" onchange="job_title = this.value;parent.job_title.selected_job_title.val ue=job_title"> <% Dim objField = RS("job_title") do while not rs.eof dim job_title = objField.value %> <option value="<%=job_title%>"><%=job_title%></option> <% rs.movenext loop %> </select> </div> </body> </html> <% RS.close Conn.close RS = Nothing Conn = Nothing %>

Record Set Problem

cosuroca

New Member