bonjour
a chaque fois l'exprorer me dit ";" attendu en c# ou en vb
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Import Namespace="System.Data" %>
<%@ Page Explicit="True" Language=VBScript Debug="True" %>
<HTML>
<HEAD>
<title>Default.aspx</title>
<Script Runat="Server">
Sub P age_Load( s As Object, e As EventArgs )
If Not isPostBack Then
Dim TopicConnection As OleDbConnection
Dim TopicCommand As OleDbCommand
TopicConnection = New OleDbConnection _
("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Request.PhysicalApplicationPath & _ "db\DBForum.mdb)"
TopicCommand = New OleDbCommand( _
"Select ThemeID, ThemeNom from Themes", _
TopicConnection )
TopicConnection.Open()
TopicDataList.DataSource = _
TopicCommand.ExecuteReader()
TopicDataList.DataBind()
TopicConnection.Close()
End If
End Sub
Sub SelectTheme(s As Object, _
e As DataListCommandEventArgs)
Dim ThemeID,ThemeNom As String
ThemeNom = e.CommandArgument
ThemeID = _
TopicDataList.DataKeys.Item( _
e.Item.ItemIndex).toString()
Response.Redirect("Themes.aspx?ThemeID=" & _
ThemeID & "&ThemeNom=" & ThemeNom)
End Sub
</Script>
</HEAD>
<body>
<font face="arial">
<h1><font color="#cc0066"> Forums</font></h1>
<font size="5"><i>Sujets de discussion</i></font>
<form Runat="Server">
<aspataList id="TopicDataList" cellpadding="10" cellspacing="0" gridlines="both" RepeatColumns="3" RepeatDirection="Horizontal" Width="100%" DataKeyField="ThemeID" OnItemCommand="SelectTheme" Runat="Server">
<ItemTemplate>
<asp:LinkButton id="TopicLink" Text='<%# Container.DataItem("ThemeNom") %>'
CommandArgument='<%# Container.DataItem("ThemeNom") %>'
Runat="Server"/> </asp:LinkButton>
</ItemTemplate>
</aspataList>
</font></form>
</body>
</HTML>
Partager