<%@ Page Language="vb" AutoEventWireup="false" Codebehind="ImageView.
aspx.vb" Inherits="FotoWebSite.ImageView"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> 
<HTML>
<HEAD> 
    <title>PhotoGallery...................</title> 
    <meta content="Microsoft Visual Studio.NET 7.0" name="GENERATOR"> 
    <meta content="Visual Basic 7.0" name="CODE_LANGUAGE"> 
    <meta content="JavaScript" name="vs_defaultClientScript"> 
    <LINK href="/FotowebSite/Styles.css" type="text/css" rel=
"StyleSheet"> 
    <meta content="http://schemas.microsoft.com/intellisense/ie5" name
="vs_targetSchema"> 
</HEAD> 
<body background="/FotoWebSite/images/background_deepblue.g if " MS_
POSITIONING="GridLayout"> 
    <form id="Form1" method="post" runat="server"> 
      <DIV id="lblCategorie" style="DISPLAY: inline; FONT-WEIGHT: lighter; FONT-SIZE: x-small; Z-INDEX: 101; LEFT: 264px; TEXT-TRANSFORM: none; WIDTH: 152px; COLOR: white; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 16px; HEIGHT: 16px; FONT-VARIANT: small-caps" 
       align="center" runat="server" ms_positioning="FlowLayout">
</DIV> 
      <FONT face=""></FONT> 
      <asp:dropdownlist id="cboCategorie" style="Z-INDEX: 105; LEFT: 552px; POSITION: absolute; TOP: 8px" 
        runat="server" AutoPostBack="True" Font-Names="Arial" ForeColor
="SteelBlue" BackColor="AliceBlue" 
        Height="20px" Width="160px" CssClass="invoer"></asp:dropdownlist>
      <DIV id="lblNaam" style="DISPLAY: inline; FONT-WEIGHT: lighter; FONT-SIZE: x-large; Z-INDEX: 102; LEFT: 112px; TEXT-TRANSFORM: none; WIDTH: 448px; COLOR: white; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 48px; HEIGHT: 40px; FONT-VARIANT: small-caps" 
         align="center" runat="server" ms_positioning="FlowLayout">鿴</DIV>
        <DIV id="lblBeschrijving" style="DISPLAY: inline; FONT-WEIGHT: lighter; FONT-SIZE: x-small; Z-INDEX: 103; LEFT: 32px; TEXT-TRANSFORM: none; WIDTH: 624px; COLOR: white; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 104px; HEIGHT: 48px; FONT-VARIANT: small-caps" 
          align="center" runat="server" ms_positioning="FlowLayout">
Beschrijving</DIV> 
        <asp:image id="imgPreview" style="Z-INDEX: 104; LEFT: 24px; POSITION: absolute; TOP: 160px" 
          runat="server" Width="680px" Height="480px" ImageUrl="/Foto
WebSite/images/wpaback.jpg"
          BorderWidth="2px" BorderColor="AliceBlue"></asp:image></form>
</body>
</HTML>
ΪӦĺ̨롣
#Region "Imports" 

Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports System.IO Imports System.Drawing
Imports System.Drawing.Imaging 

#End Region 

Public Class
     ImageView Inherits System.Web.UI.Page 

#Region " Web Form Designer Generated Code " 

    'Web Form DesignerҪ.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub Initialize
Component()

    End Sub 

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init 
        'CODEGEN:Web Form DesignerҪ 
        'Ҫô༭޸.
        InitializeComponent() 
    End Sub
    Protected WithEvents lblNaam As System.Web.UI.HtmlControls.
HtmlGenericControl
Protected WithEvents lblCategorie As System.Web.UI.HtmlControls.
HtmlGenericControl
Protected WithEvents lblBeschrijving As System.Web.UI.HtmlControls.
HtmlGenericControl
Protected WithEvents cboCategorie As System.Web.UI.WebControls.
DropDownList

#End Region


#Region "Variabelen"

    Private _strFotoId As String

#End Region  

#Region "Events"  

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

        'Lees de parameters
        Call _LeesParameter()

        if Not IsPostBack Then
        Call _ToonPicture() Endif 
        End Sub Call _ToonNewImages()
    End Sub 

    Private Sub cboCategorie_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboCategorie.SelectedIndexChanged
        Call _ToonNewImages()
    End Sub

#End Region 

#Region "Procedures"

    Private Sub _LeesParameter() 

        _strFotoId = Request.QueryString(URL_PAR_FOTO_ID) 

    End Sub 

    Private Sub _ToonPicture() 

        Dim connstr As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("dbImages.mdb") 
        Dim cnn As New OleDbConnection(connstr)
        Dim cmdView As New OleDbCommand()
        Dim strFileName As String 

        cmdView.CommandText = "SELECT * FROM tblfoto WHERE Id=" & _strFotoId 

        cmdView.Connection = cnn
        cnn.Open()
        Dim dbDR As OleDb.OleDbDataReader = cmdView.ExecuteReader

        While dbDR.Read()

            lblNaam.InnerText = dbDR("Naam".ToString)
            lblBeschrijving.InnerText = dbDR("Beschrijving".ToString) 
            imgPreview.ImageUrl = dbDR("Filename".ToString) 
            lblCategorie.InnerText = dbDR("Categorie".ToString) 

        End While

        cnn.Close() 

        Call _InitListNamen() 
    End Sub 

    Private Sub _InitListNamen() 

        Dim strSQL As String 
        Dim objItem As ListItem 

        strSQL = "Select * from tblfoto where Categorie like '" & lblCategorie.InnerText & "%' order by Categorie" 

        Dim connstr As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("dbImages.mdb") 
        Dim cnn As New OleDbConnection(connstr) 
        Dim cmd As New OleDbCommand(strSQL, cnn) 
        cnn.Open() 
        Dim dr As OleDbDataReader = cmd.ExecuteReader

        if dr.Read = Nothing Then 
            Exit Sub 
        Endif 

        While dr.Read 

            objItem = New ListItem()
            objItem.Text = dr.Item("Naam")
            objItem.Value = dr.Item("Id")
            Me.cboCategorie.Items.Add(objItem) 

        End While 

        cnn.Close() 
        cnn.Dispose() 

    End Sub 

    Private Sub _ToonNewImages() 

        Dim connstr As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("dbImages.mdb") 
        Dim cnn As New OleDbConnection(connstr)
        Dim cmdView As New OleDbCommand()
        Dim cat As String 

        cmdView.CommandText = "SELECT * FROM tblfoto WHERE Id=" & _ 
                                   cboCategorie.SelectedItem.Value
        cmdView.Connection = cnn
        cnn.Open()
        Dim dbDR As OleDb.OleDbDataReader = cmdView.ExecuteReader 

        While dbDR.Read() 

            lblNaam.InnerText = dbDR("Naam".ToString)
            lblBeschrijving.InnerText = dbDR("Beschrijving".ToString) 
            imgPreview.ImageUrl = dbDR("Filename".ToString) 
            lblCategorie.InnerText = dbDR("Categorie".ToString) 

        End While 

        cnn.Close() 

    End Sub 

#End Region

    End Class
