<%@ Page Language="VB" Debug="true" AspCompat="true" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.Oledb" %>
<script runat="server">
Dim ObjConn As oledbConnection
Dim ObjRs As oledbDataReader
Dim ObjCmd As oledbCommand
Dim DBPos, Antal, i, SideAntal, TotalPris As Integer
Dim CheckOutDate as Date
Dim NyAntalSolgt As Integer
Dim SQLStr As string
Sub Page_Load()
' This procedure is run when page is loaded
' If the user has not logged on,
' he is redirected to the logon-page
' If Session("Bruger") = "" Then
'Response.redirect("main.aspx")
' End if
Dim strConn as string = "Provider=Microsoft.Jet.OLEDB.4.0;"
strConn += "Data Source=" & Server.Mappath("db/Hammerslag.mdb")
Dim strSQL, strRes as string
strSQL = "SELECT * FROM Kunde"
try
Dim objConn as new OledbConnection(strConn)
Dim objDataSet as new DataSet()
Dim objAdapter as new OledbDataAdapter(strSQL, objConn)
objAdapter.Fill(objDataSet,"Kunde")
Dim objDataView as new DataView(objDataSet.Tables("Kunde"))
dgnamelist.DataSource = objDataView
dgnamelist.DataBind()
catch e as exception
end try
End Sub
Sub dgnamelist_SelectedIndexChanged(sender As Object, e As EventArgs)
'Her skriver du din kode for hvad der skak ske
End Sub
</script>
<html>
<head>
<title>Hammerslag</title>
<link href="css.css" type="text/css" rel="stylesheet" />
</head>
<body>
<p>
<font color="#0000a0"><strong>Vis alle kunder</strong></font>
</p>
<p>
<asp:DataGrid id="dgnamelist" runat="server" Font-Size="Smaller" ForeColor="Black" CellPadding="4" BackColor="#CCCCCC" BorderWidth="3px" CellSpacing="2" BorderStyle="Solid" Height="243px" Width="227px" BorderColor="#999999" AllowPaging="True" AllowCustomPaging="True" OnSelectedIndexChanged="dgnamelist_SelectedIndexChanged">
<FooterStyle backcolor="#CCCCCC"></FooterStyle>
<HeaderStyle font-bold="True" forecolor="White" backcolor="Black"></HeaderStyle>
<PagerStyle borderwidth="1px" font-size="Smaller" bordercolor="Black" borderstyle="Dashed" horizontalalign="Left" forecolor="Black" backcolor="#CCCCCC" mode="NumericPages"></PagerStyle>
<SelectedItemStyle font-bold="True" forecolor="White" backcolor="#000099"></SelectedItemStyle>
<EditItemStyle borderwidth="1px" borderstyle="Dotted" bordercolor="Black"></EditItemStyle>
<ItemStyle borderwidth="1px" borderstyle="Dashed" bordercolor="Black" backcolor="White"></ItemStyle>
<Columns>
<asp:ButtonColumn Text="Select" ButtonType="PushButton" CommandName="Select"></asp:ButtonColumn>
<asp:EditCommandColumn ButtonType="PushButton" UpdateText="Update" CancelText="Cancel" EditText="Edit"></asp:EditCommandColumn>
<asp:ButtonColumn Text="Delete" ButtonType="PushButton" CommandName="Delete"></asp:ButtonColumn>
</Columns>
</asp:DataGrid>
</p>
</body>
</html>
