1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
<form id="form1" runat="server">
<div>
<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
<asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>
<ul id="nav" class="dropdown dropdown-horizontal">
<li><span class="dir">
<%
'On commence ici
Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\iSmAiL\Desktop\menu.mdb;Jet OLEDB:Database Password='';")
Dim cmd As New OleDbCommand
Dim red As OleDbDataReader
cn.Open()
cmd.Connection = cn
cmd.CommandType = CommandType.Text
cmd.CommandText = "select * from menu"
red = cmd.ExecuteReader()
If red.HasRows = False Then
Me.Response.Write("Not Found")
Else
Do While red.Read
Dim a As String = red(0)
%>
<asp:TextBox ID="TextBox3" runat="server" value="<%=a%>"></asp:TextBox>
<%
Loop
End If
red.Close()
cn.Close()
%>
</span>
<ul>
<li><a href="">History</a></li><li><a href="">Our Vision</a></li><li><span class="dir">The Team</span>
</ul>
</div>
</form> |
