🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

🏠 Home 📰 News 🗂️ Usenet Search 🔑 Login 📝 Register
Thread View: be.comp.programming
1 messages
[T] Back to Threads [V] Tree View [G] Group Articles
1 total messages Started by Pieter Goris Sat, 28 May 2005 21:42
Fout in ASP.net pagina
#1338
Author: Pieter Goris
Date: Sat, 28 May 2005 21:42
887 lines
42128 bytes 
This is a multi-part message in MIME format.

------=_NextPart_000_003F_01C563DF.01B149E0
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Hey iedereen

Ik was voor school een .aspx pagina aan het schrijven voor op de pagina =
http://kcst.pietergoris.be maar het volgende doet zich voor.

=20
Server Error in '/mailformulier' Application.=20
-------------------------------------------------------------------------=
-------

Fill: SelectCommand.Connection property has not been initialized.=20
Description: An unhandled exception occurred during the execution of the =
current web request. Please review the stack trace for more information =
about the error and where it originated in the code.=20

Exception Details: System.InvalidOperationException: Fill: =
SelectCommand.Connection property has not been initialized.

Source Error:=20

Line 135:    Private Sub cmdToevoegen_Click(ByVal sender As =
System.Object, ByVal e As System.EventArgs) Handles cmdToevoegen.Click
Line 136:
Line 137:        odaBoodschappen.Fill(dtsMailformulier)
Line 138:
Line 139:        =
dtsMailformulier.tblMailformulier.AddtblMailformulierRow(txtBoodschap.Tex=
t, _=20

Source File: c:\inetpub\wwwroot\mailformulier\WebForm1.aspx.vb    Line: =
137=20

Stack Trace:=20

[InvalidOperationException: Fill: SelectCommand.Connection property has =
not been initialized.]
   System.Data.Common.DbDataAdapter.GetConnection(IDbCommand command, =
String method)
   System.Data.Common.DbDataAdapter.FillFromCommand(Object data, Int32 =
startRecord, Int32 maxRecords, String srcTable, IDbCommand command, =
CommandBehavior behavior)
   System.Data.Common.DbDataAdapter.Fill(DataSet dataSet, Int32 =
startRecord, Int32 maxRecords, String srcTable, IDbCommand command, =
CommandBehavior behavior)
   System.Data.Common.DbDataAdapter.Fill(DataSet dataSet)
   mailformulier.WebForm1.cmdToevoegen_Click(Object sender, EventArgs e) =
in c:\inetpub\wwwroot\mailformulier\WebForm1.aspx.vb:137
   System.Web.UI.WebControls.Button.OnClick(EventArgs e) +108
   =
System.Web.UI.WebControls.Button.System.Web.UI.IPostBackEventHandler.Rais=
ePostBackEvent(String eventArgument) +57
   System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler =
sourceControl, String eventArgument) +18
   System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData) =
+33
   System.Web.UI.Page.ProcessRequestMain() +1277
=20



Nu weet ik echt niet hoe dat komt, kan iemand mij een oplossing bieden =
en de fout ook uitleggen anders leer ik er namelijk geen fluit uit :)


Bedankt
Pieter Goris

P.S.: mijn code is:


Public Class WebForm1
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub =
InitializeComponent()
        Me.odaBoodschappen =3D New System.Data.OleDb.OleDbDataAdapter
        Me.OleDbSelectCommand1 =3D New System.Data.OleDb.OleDbCommand
        Me.OleDbInsertCommand1 =3D New System.Data.OleDb.OleDbCommand
        Me.OleDbUpdateCommand1 =3D New System.Data.OleDb.OleDbCommand
        Me.OleDbDeleteCommand1 =3D New System.Data.OleDb.OleDbCommand
        Me.dtsMailformulier =3D New mailformulier.dtsMailformulier
        Me.cnnMailformulier =3D New System.Data.OleDb.OleDbConnection
        CType(Me.dtsMailformulier, =
System.ComponentModel.ISupportInitialize).BeginInit()
        '
        'odaBoodschappen
        '
        Me.odaBoodschappen.DeleteCommand =3D Me.OleDbDeleteCommand1
        Me.odaBoodschappen.InsertCommand =3D Me.OleDbInsertCommand1
        Me.odaBoodschappen.SelectCommand =3D Me.OleDbSelectCommand1
        Me.odaBoodschappen.TableMappings.AddRange(New =
System.Data.Common.DataTableMapping() {New =
System.Data.Common.DataTableMapping("Table", "tblMailformulier", New =
System.Data.Common.DataColumnMapping() {New =
System.Data.Common.DataColumnMapping("Boodschap", "Boodschap"), New =
System.Data.Common.DataColumnMapping("Datum", "Datum"), New =
System.Data.Common.DataColumnMapping("Emailadres", "Emailadres"), New =
System.Data.Common.DataColumnMapping("GastID", "GastID"), New =
System.Data.Common.DataColumnMapping("Naam", "Naam")})})
        Me.odaBoodschappen.UpdateCommand =3D Me.OleDbUpdateCommand1
        '
        'OleDbSelectCommand1
        '
        Me.OleDbSelectCommand1.CommandText =3D "SELECT Boodschap, Datum, =
Emailadres, GastID, Naam FROM tblMailformulier"
        '
        'OleDbInsertCommand1
        '
        Me.OleDbInsertCommand1.CommandText =3D "INSERT INTO =
tblMailformulier(Boodschap, Datum, Emailadres, Naam) VALUES (?, ?, ?," & =
_
        " ?)"
        Me.OleDbInsertCommand1.Parameters.Add(New =
System.Data.OleDb.OleDbParameter("Boodschap", =
System.Data.OleDb.OleDbType.VarWChar, 50, "Boodschap"))
        Me.OleDbInsertCommand1.Parameters.Add(New =
System.Data.OleDb.OleDbParameter("Datum", =
System.Data.OleDb.OleDbType.DBDate, 0, "Datum"))
        Me.OleDbInsertCommand1.Parameters.Add(New =
System.Data.OleDb.OleDbParameter("Emailadres", =
System.Data.OleDb.OleDbType.VarWChar, 50, "Emailadres"))
        Me.OleDbInsertCommand1.Parameters.Add(New =
System.Data.OleDb.OleDbParameter("Naam", =
System.Data.OleDb.OleDbType.VarWChar, 50, "Naam"))
        '
        'OleDbUpdateCommand1
        '
        Me.OleDbUpdateCommand1.CommandText =3D "UPDATE tblMailformulier =
SET Boodschap =3D ?, Datum =3D ?, Emailadres =3D ?, Naam =3D ? WH" & _
        "ERE (GastID =3D ?) AND (Boodschap =3D ? OR ? IS NULL AND =
Boodschap IS NULL) AND (Dat" & _
        "um =3D ? OR ? IS NULL AND Datum IS NULL) AND (Emailadres =3D ? =
OR ? IS NULL AND Emai" & _
        "ladres IS NULL) AND (Naam =3D ? OR ? IS NULL AND Naam IS NULL)"
        Me.OleDbUpdateCommand1.Parameters.Add(New =
System.Data.OleDb.OleDbParameter("Boodschap", =
System.Data.OleDb.OleDbType.VarWChar, 50, "Boodschap"))
        Me.OleDbUpdateCommand1.Parameters.Add(New =
System.Data.OleDb.OleDbParameter("Datum", =
System.Data.OleDb.OleDbType.DBDate, 0, "Datum"))
        Me.OleDbUpdateCommand1.Parameters.Add(New =
System.Data.OleDb.OleDbParameter("Emailadres", =
System.Data.OleDb.OleDbType.VarWChar, 50, "Emailadres"))
        Me.OleDbUpdateCommand1.Parameters.Add(New =
System.Data.OleDb.OleDbParameter("Naam", =
System.Data.OleDb.OleDbType.VarWChar, 50, "Naam"))
        Me.OleDbUpdateCommand1.Parameters.Add(New =
System.Data.OleDb.OleDbParameter("Original_GastID", =
System.Data.OleDb.OleDbType.Integer, 0, =
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, =
Byte), "GastID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New =
System.Data.OleDb.OleDbParameter("Original_Boodschap", =
System.Data.OleDb.OleDbType.VarWChar, 50, =
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, =
Byte), "Boodschap", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New =
System.Data.OleDb.OleDbParameter("Original_Boodschap1", =
System.Data.OleDb.OleDbType.VarWChar, 50, =
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, =
Byte), "Boodschap", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New =
System.Data.OleDb.OleDbParameter("Original_Datum", =
System.Data.OleDb.OleDbType.DBDate, 0, =
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, =
Byte), "Datum", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New =
System.Data.OleDb.OleDbParameter("Original_Datum1", =
System.Data.OleDb.OleDbType.DBDate, 0, =
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, =
Byte), "Datum", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New =
System.Data.OleDb.OleDbParameter("Original_Emailadres", =
System.Data.OleDb.OleDbType.VarWChar, 50, =
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, =
Byte), "Emailadres", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New =
System.Data.OleDb.OleDbParameter("Original_Emailadres1", =
System.Data.OleDb.OleDbType.VarWChar, 50, =
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, =
Byte), "Emailadres", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New =
System.Data.OleDb.OleDbParameter("Original_Naam", =
System.Data.OleDb.OleDbType.VarWChar, 50, =
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, =
Byte), "Naam", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New =
System.Data.OleDb.OleDbParameter("Original_Naam1", =
System.Data.OleDb.OleDbType.VarWChar, 50, =
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, =
Byte), "Naam", System.Data.DataRowVersion.Original, Nothing))
        '
        'OleDbDeleteCommand1
        '
        Me.OleDbDeleteCommand1.CommandText =3D "DELETE FROM =
tblMailformulier WHERE (GastID =3D ?) AND (Boodschap =3D ? OR ? IS NULL =
A" & _
        "ND Boodschap IS NULL) AND (Datum =3D ? OR ? IS NULL AND Datum =
IS NULL) AND (Emaila" & _
        "dres =3D ? OR ? IS NULL AND Emailadres IS NULL) AND (Naam =3D ? =
OR ? IS NULL AND Naa" & _
        "m IS NULL)"
        Me.OleDbDeleteCommand1.Parameters.Add(New =
System.Data.OleDb.OleDbParameter("Original_GastID", =
System.Data.OleDb.OleDbType.Integer, 0, =
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, =
Byte), "GastID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New =
System.Data.OleDb.OleDbParameter("Original_Boodschap", =
System.Data.OleDb.OleDbType.VarWChar, 50, =
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, =
Byte), "Boodschap", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New =
System.Data.OleDb.OleDbParameter("Original_Boodschap1", =
System.Data.OleDb.OleDbType.VarWChar, 50, =
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, =
Byte), "Boodschap", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New =
System.Data.OleDb.OleDbParameter("Original_Datum", =
System.Data.OleDb.OleDbType.DBDate, 0, =
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, =
Byte), "Datum", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New =
System.Data.OleDb.OleDbParameter("Original_Datum1", =
System.Data.OleDb.OleDbType.DBDate, 0, =
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, =
Byte), "Datum", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New =
System.Data.OleDb.OleDbParameter("Original_Emailadres", =
System.Data.OleDb.OleDbType.VarWChar, 50, =
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, =
Byte), "Emailadres", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New =
System.Data.OleDb.OleDbParameter("Original_Emailadres1", =
System.Data.OleDb.OleDbType.VarWChar, 50, =
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, =
Byte), "Emailadres", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New =
System.Data.OleDb.OleDbParameter("Original_Naam", =
System.Data.OleDb.OleDbType.VarWChar, 50, =
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, =
Byte), "Naam", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New =
System.Data.OleDb.OleDbParameter("Original_Naam1", =
System.Data.OleDb.OleDbType.VarWChar, 50, =
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, =
Byte), "Naam", System.Data.DataRowVersion.Original, Nothing))
        '
        'dtsMailformulier
        '
        Me.dtsMailformulier.DataSetName =3D "dtsMailformulier"
        Me.dtsMailformulier.Locale =3D New =
System.Globalization.CultureInfo("nl-BE")
        '
        'cnnMailformulier
        '
        Me.cnnMailformulier.ConnectionString =3D "Jet OLEDB:Global =
Partial Bulk Ops=3D2;Jet OLEDB:Registry Path=3D;Jet OLEDB:Database L" & =
_
        "ocking Mode=3D1;Data =
Source=3D""C:\Inetpub\wwwroot\Databases\Mailformulier.mdb"";Jet O" & _
        "LEDB:Engine Type=3D5;Provider=3D""Microsoft.Jet.OLEDB.4.0"";Jet =
OLEDB:System database=3D" & _
        ";Jet OLEDB:SFP=3DFalse;persist security info=3DFalse;Extended =
Properties=3D;Mode=3D""Read" & _
        "Write|Share Deny None"";Jet OLEDB:Encrypt Database=3DFalse;Jet =
OLEDB:Create System " & _
        "Database=3DFalse;Jet OLEDB:Don't Copy Locale on =
Compact=3DFalse;Jet OLEDB:Compact Wi" & _
        "thout Replica Repair=3DFalse;User ID=3DAdmin;Jet OLEDB:Global =
Bulk Transactions=3D1"
        CType(Me.dtsMailformulier, =
System.ComponentModel.ISupportInitialize).EndInit()

    End Sub
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
    Protected WithEvents Label3 As System.Web.UI.WebControls.Label
    Protected WithEvents RequiredFieldValidator1 As =
System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredFieldValidator2 As =
System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredFieldValidator3 As =
System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents txtNaam As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtEmail As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtBoodschap As =
System.Web.UI.WebControls.TextBox
    Protected WithEvents cmdToevoegen As =
System.Web.UI.WebControls.Button
    Protected WithEvents cmdAnnuleren As =
System.Web.UI.WebControls.Button
    Protected WithEvents dgdBoodschappen As =
System.Web.UI.WebControls.DataGrid
    Protected WithEvents odaBoodschappen As =
System.Data.OleDb.OleDbDataAdapter
    Protected WithEvents OleDbSelectCommand1 As =
System.Data.OleDb.OleDbCommand
    Protected WithEvents OleDbInsertCommand1 As =
System.Data.OleDb.OleDbCommand
    Protected WithEvents OleDbUpdateCommand1 As =
System.Data.OleDb.OleDbCommand
    Protected WithEvents OleDbDeleteCommand1 As =
System.Data.OleDb.OleDbCommand
    Protected WithEvents dtsMailformulier As =
mailformulier.dtsMailformulier
    Protected WithEvents cnnMailformulier As =
System.Data.OleDb.OleDbConnection

    'NOTE: The following placeholder declaration is required by the Web =
Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As =
System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As =
System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
    End Sub

    Private Sub cmdAnnuleren_Click(ByVal sender As System.Object, ByVal =
e As System.EventArgs) Handles cmdAnnuleren.Click

        txtNaam.Text =3D ""
        txtEmail.Text =3D ""
        txtBoodschap.Text =3D ""

    End Sub

    Private Sub cmdToevoegen_Click(ByVal sender As System.Object, ByVal =
e As System.EventArgs) Handles cmdToevoegen.Click

        odaBoodschappen.Fill(dtsMailformulier)      <----- foutregel!

        =
dtsMailformulier.tblMailformulier.AddtblMailformulierRow(txtBoodschap.Tex=
t, _
            DateTime.Now, txtEmail.Text, txtNaam.Text)
        odaBoodschappen.Update(dtsMailformulier)
        dgdBoodschappen.DataBind()

        txtNaam.Text =3D ""
        txtEmail.Text =3D ""
        txtBoodschap.Text =3D ""

    End Sub
End Class
------=_NextPart_000_003F_01C563DF.01B149E0
Content-Type: text/html;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2800.1106" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD><FONT face=3DArial><FONT size=3D2>
<BODY>
<DIV><FONT face=3DVerdana>Hey iedereen</FONT></DIV>
<DIV><FONT face=3DVerdana></FONT>&nbsp;</DIV>
<DIV><FONT face=3DVerdana>Ik was voor school een .aspx pagina aan het =
schrijven=20
voor op de pagina <A=20
href=3D"http://kcst.pietergoris.be">http://kcst.pietergoris.be</A> maar =
het=20
volgende doet zich voor.</FONT></DIV>
<DIV><FONT face=3DVerdana></FONT>&nbsp;</DIV>
<DIV><SPAN>&nbsp;
<H1>Server Error in '/mailformulier' Application.=20
<HR width=3D"100%" color=3Dsilver SIZE=3D1>
</H1>
<H2><I>Fill: SelectCommand.Connection property has not been =
initialized.</I>=20
</H2></SPAN><FONT=20
face=3D"Arial, Helvetica, Geneva, SunSans-Regular, sans-serif =
"><B>Description:=20
</B>An unhandled exception occurred during the execution of the current =
web=20
request. Please review the stack trace for more information about the =
error and=20
where it originated in the code. <BR><BR><B>Exception Details:=20
</B>System.InvalidOperationException: Fill: SelectCommand.Connection =
property=20
has not been initialized.<BR><BR><B>Source Error:</B> <BR><BR>
<TABLE width=3D"100%" bgColor=3D#ffffcc>
  <TBODY>
  <TR>
    <TD><CODE><PRE>Line 135:    Private Sub cmdToevoegen_Click(ByVal =
sender As System.Object, ByVal e As System.EventArgs) Handles =
cmdToevoegen.Click
Line 136:
<FONT color=3Dred>Line 137:        =
odaBoodschappen.Fill(dtsMailformulier)
</FONT>Line 138:
Line 139:        =
dtsMailformulier.tblMailformulier.AddtblMailformulierRow(txtBoodschap.Tex=
t, _</PRE></CODE></TD></TR></TBODY></TABLE><BR><B><FONT=20
face=3DVerdana>Source File:=20
</FONT></B>c:\inetpub\wwwroot\mailformulier\WebForm1.aspx.vb<B><FONT=20
face=3DVerdana> &nbsp;&nbsp; Line: </FONT></B>137 <BR><BR><B><FONT=20
face=3DVerdana>Stack Trace:</FONT></B> <BR><BR>
<TABLE width=3D"100%" bgColor=3D#ffffcc>
  <TBODY>
  <TR>
    <TD><CODE><PRE>[InvalidOperationException: Fill: =
SelectCommand.Connection property has not been initialized.]
   System.Data.Common.DbDataAdapter.GetConnection(IDbCommand command, =
String method)
   System.Data.Common.DbDataAdapter.FillFromCommand(Object data, Int32 =
startRecord, Int32 maxRecords, String srcTable, IDbCommand command, =
CommandBehavior behavior)
   System.Data.Common.DbDataAdapter.Fill(DataSet dataSet, Int32 =
startRecord, Int32 maxRecords, String srcTable, IDbCommand command, =
CommandBehavior behavior)
   System.Data.Common.DbDataAdapter.Fill(DataSet dataSet)
   mailformulier.WebForm1.cmdToevoegen_Click(Object sender, EventArgs e) =
in c:\inetpub\wwwroot\mailformulier\WebForm1.aspx.vb:137
   System.Web.UI.WebControls.Button.OnClick(EventArgs e) +108
   =
System.Web.UI.WebControls.Button.System.Web.UI.IPostBackEventHandler.Rais=
ePostBackEvent(String eventArgument) +57
   System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler =
sourceControl, String eventArgument) +18
   System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData) =
+33
   System.Web.UI.Page.ProcessRequestMain() +1277
</PRE></CODE></TD></TR></TBODY></TABLE></FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV>&nbsp;</DIV>
<DIV>Nu weet ik echt niet hoe dat komt, kan iemand mij een oplossing =
bieden en=20
de fout ook uitleggen anders leer ik er namelijk geen fluit uit :)</DIV>
<DIV>&nbsp;</DIV>
<DIV>&nbsp;</DIV>
<DIV>Bedankt</DIV>
<DIV>Pieter Goris</DIV>
<DIV>&nbsp;</DIV>
<DIV>P.S.: mijn code is:</DIV>
<DIV>&nbsp;</DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DVerdana color=3D#ff0000>Public Class=20
WebForm1<BR>&nbsp;&nbsp;&nbsp; Inherits System.Web.UI.Page</FONT></DIV>
<DIV><FONT face=3DVerdana color=3D#ff0000></FONT>&nbsp;</DIV>
<DIV><FONT face=3DVerdana color=3D#ff0000>#Region " Web Form Designer =
Generated Code=20
"</FONT></DIV>
<DIV><FONT face=3DVerdana color=3D#ff0000></FONT>&nbsp;</DIV>
<DIV><FONT face=3DVerdana color=3D#ff0000>&nbsp;&nbsp;&nbsp; 'This call =
is required=20
by the Web Form Designer.<BR>&nbsp;&nbsp;&nbsp;=20
&lt;System.Diagnostics.DebuggerStepThrough()&gt; Private Sub=20
InitializeComponent()<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.odaBoodschappen =3D New=20
System.Data.OleDb.OleDbDataAdapter<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp=
;&nbsp;=20
Me.OleDbSelectCommand1 =3D New=20
System.Data.OleDb.OleDbCommand<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb=
sp;=20
Me.OleDbInsertCommand1 =3D New=20
System.Data.OleDb.OleDbCommand<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb=
sp;=20
Me.OleDbUpdateCommand1 =3D New=20
System.Data.OleDb.OleDbCommand<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb=
sp;=20
Me.OleDbDeleteCommand1 =3D New=20
System.Data.OleDb.OleDbCommand<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb=
sp;=20
Me.dtsMailformulier =3D New=20
mailformulier.dtsMailformulier<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb=
sp;=20
Me.cnnMailformulier =3D New=20
System.Data.OleDb.OleDbConnection<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;=20
CType(Me.dtsMailformulier,=20
System.ComponentModel.ISupportInitialize).BeginInit()<BR>&nbsp;&nbsp;&nbs=
p;&nbsp;&nbsp;&nbsp;&nbsp;=20
'<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
'odaBoodschappen<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
'<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
Me.odaBoodschappen.DeleteCommand=20
=3D Me.OleDbDeleteCommand1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =

Me.odaBoodschappen.InsertCommand =3D=20
Me.OleDbInsertCommand1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.odaBoodschappen.SelectCommand =3D=20
Me.OleDbSelectCommand1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.odaBoodschappen.TableMappings.AddRange(New=20
System.Data.Common.DataTableMapping() {New=20
System.Data.Common.DataTableMapping("Table", "tblMailformulier", New=20
System.Data.Common.DataColumnMapping() {New=20
System.Data.Common.DataColumnMapping("Boodschap", "Boodschap"), New=20
System.Data.Common.DataColumnMapping("Datum", "Datum"), New=20
System.Data.Common.DataColumnMapping("Emailadres", "Emailadres"), New=20
System.Data.Common.DataColumnMapping("GastID", "GastID"), New=20
System.Data.Common.DataColumnMapping("Naam",=20
"Naam")})})<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.odaBoodschappen.UpdateCommand =3D=20
Me.OleDbUpdateCommand1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
'<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
'OleDbSelectCommand1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
'<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.OleDbSelectCommand1.CommandText =3D "SELECT Boodschap, Datum, =
Emailadres,=20
GastID, Naam FROM=20
tblMailformulier"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
'<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
'OleDbInsertCommand1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
'<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.OleDbInsertCommand1.CommandText =3D "INSERT INTO =
tblMailformulier(Boodschap,=20
Datum, Emailadres, Naam) VALUES (?, ?, ?," &amp;=20
_<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "=20
?)"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.OleDbInsertCommand1.Parameters.Add(New=20
System.Data.OleDb.OleDbParameter("Boodschap",=20
System.Data.OleDb.OleDbType.VarWChar, 50,=20
"Boodschap"))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.OleDbInsertCommand1.Parameters.Add(New=20
System.Data.OleDb.OleDbParameter("Datum", =
System.Data.OleDb.OleDbType.DBDate, 0,=20
"Datum"))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.OleDbInsertCommand1.Parameters.Add(New=20
System.Data.OleDb.OleDbParameter("Emailadres",=20
System.Data.OleDb.OleDbType.VarWChar, 50,=20
"Emailadres"))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.OleDbInsertCommand1.Parameters.Add(New=20
System.Data.OleDb.OleDbParameter("Naam", =
System.Data.OleDb.OleDbType.VarWChar,=20
50, "Naam"))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
'<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
'OleDbUpdateCommand1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
'<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.OleDbUpdateCommand1.CommandText =3D "UPDATE tblMailformulier SET =
Boodschap =3D ?,=20
Datum =3D ?, Emailadres =3D ?, Naam =3D ? WH" &amp;=20
_<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "ERE (GastID =3D ?) AND =
(Boodschap=20
=3D ? OR ? IS NULL AND Boodschap IS NULL) AND (Dat" &amp;=20
_<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "um =3D ? OR ? IS NULL =
AND Datum=20
IS NULL) AND (Emailadres =3D ? OR ? IS NULL AND Emai" &amp;=20
_<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "ladres IS NULL) AND =
(Naam =3D ?=20
OR ? IS NULL AND Naam IS =
NULL)"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.OleDbUpdateCommand1.Parameters.Add(New=20
System.Data.OleDb.OleDbParameter("Boodschap",=20
System.Data.OleDb.OleDbType.VarWChar, 50,=20
"Boodschap"))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.OleDbUpdateCommand1.Parameters.Add(New=20
System.Data.OleDb.OleDbParameter("Datum", =
System.Data.OleDb.OleDbType.DBDate, 0,=20
"Datum"))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.OleDbUpdateCommand1.Parameters.Add(New=20
System.Data.OleDb.OleDbParameter("Emailadres",=20
System.Data.OleDb.OleDbType.VarWChar, 50,=20
"Emailadres"))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.OleDbUpdateCommand1.Parameters.Add(New=20
System.Data.OleDb.OleDbParameter("Naam", =
System.Data.OleDb.OleDbType.VarWChar,=20
50, "Naam"))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.OleDbUpdateCommand1.Parameters.Add(New=20
System.Data.OleDb.OleDbParameter("Original_GastID",=20
System.Data.OleDb.OleDbType.Integer, 0, =
System.Data.ParameterDirection.Input,=20
False, CType(0, Byte), CType(0, Byte), "GastID",=20
System.Data.DataRowVersion.Original,=20
Nothing))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.OleDbUpdateCommand1.Parameters.Add(New=20
System.Data.OleDb.OleDbParameter("Original_Boodschap",=20
System.Data.OleDb.OleDbType.VarWChar, 50, =
System.Data.ParameterDirection.Input,=20
False, CType(0, Byte), CType(0, Byte), "Boodschap",=20
System.Data.DataRowVersion.Original,=20
Nothing))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.OleDbUpdateCommand1.Parameters.Add(New=20
System.Data.OleDb.OleDbParameter("Original_Boodschap1",=20
System.Data.OleDb.OleDbType.VarWChar, 50, =
System.Data.ParameterDirection.Input,=20
False, CType(0, Byte), CType(0, Byte), "Boodschap",=20
System.Data.DataRowVersion.Original,=20
Nothing))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.OleDbUpdateCommand1.Parameters.Add(New=20
System.Data.OleDb.OleDbParameter("Original_Datum",=20
System.Data.OleDb.OleDbType.DBDate, 0, =
System.Data.ParameterDirection.Input,=20
False, CType(0, Byte), CType(0, Byte), "Datum",=20
System.Data.DataRowVersion.Original,=20
Nothing))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.OleDbUpdateCommand1.Parameters.Add(New=20
System.Data.OleDb.OleDbParameter("Original_Datum1",=20
System.Data.OleDb.OleDbType.DBDate, 0, =
System.Data.ParameterDirection.Input,=20
False, CType(0, Byte), CType(0, Byte), "Datum",=20
System.Data.DataRowVersion.Original,=20
Nothing))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.OleDbUpdateCommand1.Parameters.Add(New=20
System.Data.OleDb.OleDbParameter("Original_Emailadres",=20
System.Data.OleDb.OleDbType.VarWChar, 50, =
System.Data.ParameterDirection.Input,=20
False, CType(0, Byte), CType(0, Byte), "Emailadres",=20
System.Data.DataRowVersion.Original,=20
Nothing))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.OleDbUpdateCommand1.Parameters.Add(New=20
System.Data.OleDb.OleDbParameter("Original_Emailadres1",=20
System.Data.OleDb.OleDbType.VarWChar, 50, =
System.Data.ParameterDirection.Input,=20
False, CType(0, Byte), CType(0, Byte), "Emailadres",=20
System.Data.DataRowVersion.Original,=20
Nothing))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.OleDbUpdateCommand1.Parameters.Add(New=20
System.Data.OleDb.OleDbParameter("Original_Naam",=20
System.Data.OleDb.OleDbType.VarWChar, 50, =
System.Data.ParameterDirection.Input,=20
False, CType(0, Byte), CType(0, Byte), "Naam",=20
System.Data.DataRowVersion.Original,=20
Nothing))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.OleDbUpdateCommand1.Parameters.Add(New=20
System.Data.OleDb.OleDbParameter("Original_Naam1",=20
System.Data.OleDb.OleDbType.VarWChar, 50, =
System.Data.ParameterDirection.Input,=20
False, CType(0, Byte), CType(0, Byte), "Naam",=20
System.Data.DataRowVersion.Original,=20
Nothing))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
'<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
'OleDbDeleteCommand1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
'<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.OleDbDeleteCommand1.CommandText =3D "DELETE FROM tblMailformulier =
WHERE (GastID=20
=3D ?) AND (Boodschap =3D ? OR ? IS NULL A" &amp;=20
_<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "ND Boodschap IS NULL) =
AND=20
(Datum =3D ? OR ? IS NULL AND Datum IS NULL) AND (Emaila" &amp;=20
_<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "dres =3D ? OR ? IS NULL =
AND=20
Emailadres IS NULL) AND (Naam =3D ? OR ? IS NULL AND Naa" &amp;=20
_<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "m IS=20
NULL)"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.OleDbDeleteCommand1.Parameters.Add(New=20
System.Data.OleDb.OleDbParameter("Original_GastID",=20
System.Data.OleDb.OleDbType.Integer, 0, =
System.Data.ParameterDirection.Input,=20
False, CType(0, Byte), CType(0, Byte), "GastID",=20
System.Data.DataRowVersion.Original,=20
Nothing))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.OleDbDeleteCommand1.Parameters.Add(New=20
System.Data.OleDb.OleDbParameter("Original_Boodschap",=20
System.Data.OleDb.OleDbType.VarWChar, 50, =
System.Data.ParameterDirection.Input,=20
False, CType(0, Byte), CType(0, Byte), "Boodschap",=20
System.Data.DataRowVersion.Original,=20
Nothing))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.OleDbDeleteCommand1.Parameters.Add(New=20
System.Data.OleDb.OleDbParameter("Original_Boodschap1",=20
System.Data.OleDb.OleDbType.VarWChar, 50, =
System.Data.ParameterDirection.Input,=20
False, CType(0, Byte), CType(0, Byte), "Boodschap",=20
System.Data.DataRowVersion.Original,=20
Nothing))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.OleDbDeleteCommand1.Parameters.Add(New=20
System.Data.OleDb.OleDbParameter("Original_Datum",=20
System.Data.OleDb.OleDbType.DBDate, 0, =
System.Data.ParameterDirection.Input,=20
False, CType(0, Byte), CType(0, Byte), "Datum",=20
System.Data.DataRowVersion.Original,=20
Nothing))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.OleDbDeleteCommand1.Parameters.Add(New=20
System.Data.OleDb.OleDbParameter("Original_Datum1",=20
System.Data.OleDb.OleDbType.DBDate, 0, =
System.Data.ParameterDirection.Input,=20
False, CType(0, Byte), CType(0, Byte), "Datum",=20
System.Data.DataRowVersion.Original,=20
Nothing))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.OleDbDeleteCommand1.Parameters.Add(New=20
System.Data.OleDb.OleDbParameter("Original_Emailadres",=20
System.Data.OleDb.OleDbType.VarWChar, 50, =
System.Data.ParameterDirection.Input,=20
False, CType(0, Byte), CType(0, Byte), "Emailadres",=20
System.Data.DataRowVersion.Original,=20
Nothing))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.OleDbDeleteCommand1.Parameters.Add(New=20
System.Data.OleDb.OleDbParameter("Original_Emailadres1",=20
System.Data.OleDb.OleDbType.VarWChar, 50, =
System.Data.ParameterDirection.Input,=20
False, CType(0, Byte), CType(0, Byte), "Emailadres",=20
System.Data.DataRowVersion.Original,=20
Nothing))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.OleDbDeleteCommand1.Parameters.Add(New=20
System.Data.OleDb.OleDbParameter("Original_Naam",=20
System.Data.OleDb.OleDbType.VarWChar, 50, =
System.Data.ParameterDirection.Input,=20
False, CType(0, Byte), CType(0, Byte), "Naam",=20
System.Data.DataRowVersion.Original,=20
Nothing))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.OleDbDeleteCommand1.Parameters.Add(New=20
System.Data.OleDb.OleDbParameter("Original_Naam1",=20
System.Data.OleDb.OleDbType.VarWChar, 50, =
System.Data.ParameterDirection.Input,=20
False, CType(0, Byte), CType(0, Byte), "Naam",=20
System.Data.DataRowVersion.Original,=20
Nothing))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
'<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
'dtsMailformulier<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
'<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
Me.dtsMailformulier.DataSetName=20
=3D "dtsMailformulier"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.dtsMailformulier.Locale =3D New=20
System.Globalization.CultureInfo("nl-BE")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbs=
p;&nbsp;&nbsp;=20
'<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
'cnnMailformulier<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
'<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Me.cnnMailformulier.ConnectionString =3D "Jet OLEDB:Global Partial Bulk =
Ops=3D2;Jet=20
OLEDB:Registry Path=3D;Jet OLEDB:Database L" &amp;=20
_<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "ocking Mode=3D1;Data=20
Source=3D""C:\Inetpub\wwwroot\Databases\Mailformulier.mdb"";Jet O" &amp; =

_<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "LEDB:Engine=20
Type=3D5;Provider=3D""Microsoft.Jet.OLEDB.4.0"";Jet OLEDB:System =
database=3D" &amp;=20
_<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ";Jet =
OLEDB:SFP=3DFalse;persist=20
security info=3DFalse;Extended Properties=3D;Mode=3D""Read" &amp;=20
_<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "Write|Share Deny =
None"";Jet=20
OLEDB:Encrypt Database=3DFalse;Jet OLEDB:Create System " &amp;=20
_<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "Database=3DFalse;Jet =
OLEDB:Don't=20
Copy Locale on Compact=3DFalse;Jet OLEDB:Compact Wi" &amp;=20
_<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "thout Replica =
Repair=3DFalse;User=20
ID=3DAdmin;Jet OLEDB:Global Bulk=20
Transactions=3D1"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
CType(Me.dtsMailformulier,=20
System.ComponentModel.ISupportInitialize).EndInit()</FONT></DIV>
<DIV><FONT face=3DVerdana color=3D#ff0000></FONT>&nbsp;</DIV>
<DIV><FONT face=3DVerdana color=3D#ff0000>&nbsp;&nbsp;&nbsp; End=20
Sub<BR>&nbsp;&nbsp;&nbsp; Protected WithEvents Label1 As=20
System.Web.UI.WebControls.Label<BR>&nbsp;&nbsp;&nbsp; Protected =
WithEvents=20
Label2 As System.Web.UI.WebControls.Label<BR>&nbsp;&nbsp;&nbsp; =
Protected=20
WithEvents Label3 As =
System.Web.UI.WebControls.Label<BR>&nbsp;&nbsp;&nbsp;=20
Protected WithEvents RequiredFieldValidator1 As=20
System.Web.UI.WebControls.RequiredFieldValidator<BR>&nbsp;&nbsp;&nbsp; =
Protected=20
WithEvents RequiredFieldValidator2 As=20
System.Web.UI.WebControls.RequiredFieldValidator<BR>&nbsp;&nbsp;&nbsp; =
Protected=20
WithEvents RequiredFieldValidator3 As=20
System.Web.UI.WebControls.RequiredFieldValidator<BR>&nbsp;&nbsp;&nbsp; =
Protected=20
WithEvents txtNaam As =
System.Web.UI.WebControls.TextBox<BR>&nbsp;&nbsp;&nbsp;=20
Protected WithEvents txtEmail As=20
System.Web.UI.WebControls.TextBox<BR>&nbsp;&nbsp;&nbsp; Protected =
WithEvents=20
txtBoodschap As System.Web.UI.WebControls.TextBox<BR>&nbsp;&nbsp;&nbsp;=20
Protected WithEvents cmdToevoegen As=20
System.Web.UI.WebControls.Button<BR>&nbsp;&nbsp;&nbsp; Protected =
WithEvents=20
cmdAnnuleren As System.Web.UI.WebControls.Button<BR>&nbsp;&nbsp;&nbsp; =
Protected=20
WithEvents dgdBoodschappen As=20
System.Web.UI.WebControls.DataGrid<BR>&nbsp;&nbsp;&nbsp; Protected =
WithEvents=20
odaBoodschappen As =
System.Data.OleDb.OleDbDataAdapter<BR>&nbsp;&nbsp;&nbsp;=20
Protected WithEvents OleDbSelectCommand1 As=20
System.Data.OleDb.OleDbCommand<BR>&nbsp;&nbsp;&nbsp; Protected =
WithEvents=20
OleDbInsertCommand1 As =
System.Data.OleDb.OleDbCommand<BR>&nbsp;&nbsp;&nbsp;=20
Protected WithEvents OleDbUpdateCommand1 As=20
System.Data.OleDb.OleDbCommand<BR>&nbsp;&nbsp;&nbsp; Protected =
WithEvents=20
OleDbDeleteCommand1 As =
System.Data.OleDb.OleDbCommand<BR>&nbsp;&nbsp;&nbsp;=20
Protected WithEvents dtsMailformulier As=20
mailformulier.dtsMailformulier<BR>&nbsp;&nbsp;&nbsp; Protected =
WithEvents=20
cnnMailformulier As System.Data.OleDb.OleDbConnection</FONT></DIV>
<DIV><FONT face=3DVerdana color=3D#ff0000></FONT>&nbsp;</DIV>
<DIV><FONT face=3DVerdana color=3D#ff0000>&nbsp;&nbsp;&nbsp; 'NOTE: The =
following=20
placeholder declaration is required by the Web Form=20
Designer.<BR>&nbsp;&nbsp;&nbsp; 'Do not delete or move =
it.<BR>&nbsp;&nbsp;&nbsp;=20
Private designerPlaceholderDeclaration As System.Object</FONT></DIV>
<DIV><FONT face=3DVerdana color=3D#ff0000></FONT>&nbsp;</DIV>
<DIV><FONT face=3DVerdana color=3D#ff0000>&nbsp;&nbsp;&nbsp; Private Sub =

Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) =
Handles=20
MyBase.Init<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'CODEGEN: This =
method=20
call is required by the Web Form=20
Designer<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'Do not modify it =
using=20
the code editor.<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
InitializeComponent()<BR>&nbsp;&nbsp;&nbsp; End Sub</FONT></DIV>
<DIV><FONT face=3DVerdana color=3D#ff0000></FONT>&nbsp;</DIV>
<DIV><FONT face=3DVerdana color=3D#ff0000>#End Region</FONT></DIV>
<DIV><FONT face=3DVerdana color=3D#ff0000></FONT>&nbsp;</DIV>
<DIV><FONT face=3DVerdana color=3D#ff0000>&nbsp;&nbsp;&nbsp; Private Sub =

Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) =
Handles=20
MyBase.Load<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'Put user code =
to=20
initialize the page here<BR>&nbsp;&nbsp;&nbsp; End Sub</FONT></DIV>
<DIV><FONT face=3DVerdana color=3D#ff0000></FONT>&nbsp;</DIV>
<DIV><FONT face=3DVerdana color=3D#ff0000>&nbsp;&nbsp;&nbsp; Private Sub =

cmdAnnuleren_Click(ByVal sender As System.Object, ByVal e As =
System.EventArgs)=20
Handles cmdAnnuleren.Click</FONT></DIV>
<DIV><FONT face=3DVerdana color=3D#ff0000></FONT>&nbsp;</DIV>
<DIV><FONT face=3DVerdana =
color=3D#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
txtNaam.Text =3D ""<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
txtEmail.Text =3D=20
""<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; txtBoodschap.Text =3D=20
""</FONT></DIV>
<DIV><FONT face=3DVerdana color=3D#ff0000></FONT>&nbsp;</DIV>
<DIV><FONT face=3DVerdana color=3D#ff0000>&nbsp;&nbsp;&nbsp; End =
Sub</FONT></DIV>
<DIV><FONT face=3DVerdana color=3D#ff0000></FONT>&nbsp;</DIV>
<DIV><FONT face=3DVerdana color=3D#ff0000>&nbsp;&nbsp;&nbsp; Private Sub =

cmdToevoegen_Click(ByVal sender As System.Object, ByVal e As =
System.EventArgs)=20
Handles cmdToevoegen.Click</FONT></DIV>
<DIV><FONT face=3DVerdana color=3D#ff0000></FONT>&nbsp;</DIV>
<DIV><FONT face=3DVerdana =
color=3D#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
<FONT=20
color=3D#00ff00>odaBoodschappen.Fill(dtsMailformulier)&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;=20
&lt;----- foutregel!</FONT></FONT></DIV>
<DIV><FONT face=3DVerdana color=3D#ff0000></FONT>&nbsp;</DIV>
<DIV><FONT face=3DVerdana =
color=3D#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
dtsMailformulier.tblMailformulier.AddtblMailformulierRow(txtBoodschap.Tex=
t,=20
_<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
DateTime.Now, txtEmail.Text,=20
txtNaam.Text)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
odaBoodschappen.Update(dtsMailformulier)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp=
;&nbsp;&nbsp;=20
dgdBoodschappen.DataBind()</FONT></DIV>
<DIV><FONT face=3DVerdana color=3D#ff0000></FONT>&nbsp;</DIV>
<DIV><FONT face=3DVerdana =
color=3D#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
txtNaam.Text =3D ""<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
txtEmail.Text =3D=20
""<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; txtBoodschap.Text =3D=20
""</FONT></DIV>
<DIV><FONT face=3DVerdana color=3D#ff0000></FONT>&nbsp;</DIV>
<DIV><FONT face=3DVerdana color=3D#ff0000>&nbsp;&nbsp;&nbsp; End =
Sub<BR>End=20
Class</FONT></DIV></BODY></HTML></FONT></FONT>

------=_NextPart_000_003F_01C563DF.01B149E0--
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads