<script>
Dim cn As New OleDb.OleDbConnection()
Dim da As OleDb.OleDbDataAdapter()
Dim ds As New DataSet()
Dim str As String
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\Encuestas\encuestas.mdb")
cn.ConnectionString = str
cn.Open()
If Not Page.IsPostBack Then
//cn = New OleDb.OleDbConnection(str)
da = New OleDb.OleDbDataAdapter("select pre_descrip from preguntas", cn)
ds = New DataSet()
da.Fill(ds, "preguntas")
Dim fila As DataRow
For Each fila In ds.Tables("preguntas").Rows
Dim col As DataColumn
For Each col In ds.Tables("preguntas").Columns
//preg_1.Text = fila("pre_descrip")
Console.WriteLine(fila(col))
Next col
Next fila
End If
</script>
</HEAD>
<body background="file:///C:\Inetpub\wwwroot\Encuestas\fondo1.gif" MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<TABLE id="Table1" style="Z-INDEX: 101; LEFT: 40px; WIDTH: 456px; POSITION: absolute; TOP: 16px; HEIGHT: 96px" cellSpacing="1" cellPadding="1" width="456" border="1">
<TR>
<TD style="HEIGHT: 50px">
<asp:Label id="preg_1" runat="server" Width="408px" Height="32px"></asp:Label></TD>
</TR>
<TR>
<TD><asp:radiobuttonlist id="RadioButtonList1" runat="server" Width="480px">
<asp:ListItem>Muy alto</asp:ListItem>
<asp:ListItem>Alto</asp:ListItem>
<asp:ListItem>Medio</asp:ListItem>
<asp:ListItem>Bajo</asp:ListItem>
<asp:ListItem>Muy bajo</asp:ListItem>
</asp:radiobuttonlist></TD>
</TR>
</TABLE>
<asp:button id="Button1" style="Z-INDEX: 102; LEFT: 48px; POSITION: absolute; TOP: 264px" runat="server" Height="24px" Width="96px" Text="Enviar"></asp:button></form>
</TABLE>
</body>
</HTML>