🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

🏠 Home 📰 News 🗂️ Usenet Search 🔑 Login 📝 Register
Article View: be.comp.programming
Article #1338
Back to be.comp.programming Previous Next

Fout in ASP.net pagina

#1338
From: 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--
Technical Details
Message-ID: <DB5me.103893$4X7.6249594@phobos.telenet-ops.be>
Path: arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!news2.google.com!proxad.net!proxad.net!feeder1.cambrium.nl!feed.tweaknews.nl!peering.newsgrid.com!hq-usenetpeers.eweka.nl!68.142.88.75.MISMATCH!hwmnpeer01.ams!nntp.telenet.be!kwabbernoot.telenet-ops.be!phobos.telenet-ops.be.POSTED!not-for-mail

Show Full Headers
Complete Article Headers 
X-Google-Thread: fcea4,318cf92b94a94a43,start
X-Google-Attributes: gidfcea4,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!news2.google.com!proxad.net!proxad.net!feeder1.cambrium.nl!feed.tweaknews.nl!peering.newsgrid.com!hq-usenetpeers.eweka.nl!68.142.88.75.MISMATCH!hwmnpeer01.ams!nntp.telenet.be!kwabbernoot.telenet-ops.be!phobos.telenet-ops.be.POSTED!not-for-mail
From: "Pieter Goris" <info@pietergoris.be>
Newsgroups: be.comp.programming
Subject: Fout in ASP.net pagina
Lines: 887
MIME-Version: 1.0
Content-Type: multipart/alternative;
 boundary="----=_NextPart_000_003F_01C563DF.01B149E0"
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1106
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1106
Message-ID: <DB5me.103893$4X7.6249594@phobos.telenet-ops.be>
Date: Sat, 28 May 2005 21:42:59 GMT
NNTP-Posting-Host: 81.165.133.39
X-Complaints-To: abuse@telenet.be
X-Trace: phobos.telenet-ops.be 1117316579 81.165.133.39 (Sat, 28 May 2005 23:42:59 MEST)
NNTP-Posting-Date: Sat, 28 May 2005 23:42:59 MEST
Organization: Telenet Internet