Hi, I am trying to put my DropDownList control in ascending order, how do I achieve this? The field I am trying to do this with is WholeName which takes both FirstName and Surname fields and joins them into a DropDownList. My code is below. Many thanks for
your help, you guys have been great!
Public Class contactus
Inherits System.Web.UI.Page
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 OleDbConnection1 As System.Data.OleDb.OleDbConnection
Protected WithEvents MemberDataSet1 As project.MemberDataSet
Protected WithEvents ddlMember As System.Web.UI.WebControls.DropDownList
Protected WithEvents OleDbDataAdapter1 As System.Data.OleDb.OleDbDataAdapter
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
Private Sub InitializeComponent()
Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCommand()
Me.OleDbConnection1 = New System.Data.OleDb.OleDbConnection()
Me.OleDbInsertCommand1 = New System.Data.OleDb.OleDbCommand()
Me.OleDbUpdateCommand1 = New System.Data.OleDb.OleDbCommand()
Me.OleDbDeleteCommand1 = New System.Data.OleDb.OleDbCommand()
Me.OleDbDataAdapter1 = New System.Data.OleDb.OleDbDataAdapter()
Me.MemberDataSet1 = New project.MemberDataSet()
CType(Me.MemberDataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
'
'OleDbSelectCommand1
'
Me.OleDbSelectCommand1.CommandText = "SELECT *,[FirstName] + ' ' + [Surname] AS
WholeName FROM Members"
Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
'
'OleDbConnection1
'
Me.OleDbConnection1.ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data
Source=C:\Inetpub" & _
"\wwwroot\createindwdoneinvs\database.mdb;Mode=Share Deny None;Extended
Propertie" & _
"s="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet
OLEDB:Database " & _
"Password="""";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet
OLEDB:" & _
"Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New
Dat" & _
"abase Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt
Datab" & _
"ase=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact
Without" & _
" Replica Repair=False;Jet OLEDB:SFP=False"
'
'OleDbInsertCommand1
'
Me.OleDbInsertCommand1.CommandText = "INSERT INTO Members(Address1, Address2,
Address3, Address4PostCode, CompanyName, " & _
"Corporate, Email, FirstName, PartnerNo, Surname, Telephone1, Telephone2,
Title, " & _
"TypeOfMember) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
Me.OleDbInsertCommand1.Connection = Me.OleDbConnection1
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address1",
System.Data.OleDb.OleDbType.VarWChar, 50, "Address1"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address2",
System.Data.OleDb.OleDbType.VarWChar, 50, "Address2"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address3",
System.Data.OleDb.OleDbType.VarWChar, 50, "Address3"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address4PostCode",
System.Data.OleDb.OleDbType.VarWChar, 10, "Address4PostCode"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("CompanyName",
System.Data.OleDb.OleDbType.VarWChar, 50, "CompanyName"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Corporate",
System.Data.OleDb.OleDbType.VarWChar, 1, "Corporate"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Email", System.Data.OleDb.OleDbType.VarWChar,
50, "Email"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("FirstName",
System.Data.OleDb.OleDbType.VarWChar, 20, "FirstName"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("PartnerNo",
System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input,
False, CType(10, Byte), CType(0, Byte), "PartnerNo",
System.Data.DataRowVersion.Current, Nothing))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Surname",
System.Data.OleDb.OleDbType.VarWChar, 25, "Surname"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Telephone1",
System.Data.OleDb.OleDbType.VarWChar, 13, "Telephone1"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Telephone2",
System.Data.OleDb.OleDbType.VarWChar, 13, "Telephone2"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Title", System.Data.OleDb.OleDbType.VarWChar,
10, "Title"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("TypeOfMember",
System.Data.OleDb.OleDbType.VarWChar, 6, "TypeOfMember"))
'
'OleDbUpdateCommand1
'
Me.OleDbUpdateCommand1.CommandText = "UPDATE Members SET Address1 = ?, Address2
= ?, Address3 = ?, Address4PostCode = ?" & _
", CompanyName = ?, Corporate = ?, Email = ?, FirstName = ?, PartnerNo = ?,
Surna" & _
"me = ?, Telephone1 = ?, Telephone2 = ?, Title = ?, TypeOfMember = ? WHERE
(Membe" & _
"rshipNo = ?) AND (Address1 = ? OR ? IS NULL AND Address1 IS NULL) AND
(Address2 " & _
"= ? OR ? IS NULL AND Address2 IS NULL) AND (Address3 = ? OR ? IS NULL AND
Addres" & _
"s3 IS NULL) AND (Address4PostCode = ? OR ? IS NULL AND Address4PostCode IS
NULL)" & _
" AND (CompanyName = ? OR ? IS NULL AND CompanyName IS NULL) AND (Corporate =
?) " & _
"AND (Email = ? OR ? IS NULL AND Email IS NULL) AND (FirstName = ?) AND
(Surname " & _
"= ?) AND (Telephone1 = ? OR ? IS NULL AND Telephone1 IS NULL) AND (Telephone2
= " & _
"? OR ? IS NULL AND Telephone2 IS NULL) AND (Title = ?) AND (TypeOfMember = ?)"
Me.OleDbUpdateCommand1.Connection = Me.OleDbConnection1
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address1",
System.Data.OleDb.OleDbType.VarWChar, 50, "Address1"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address2",
System.Data.OleDb.OleDbType.VarWChar, 50, "Address2"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address3",
System.Data.OleDb.OleDbType.VarWChar, 50, "Address3"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address4PostCode",
System.Data.OleDb.OleDbType.VarWChar, 10, "Address4PostCode"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("CompanyName",
System.Data.OleDb.OleDbType.VarWChar, 50, "CompanyName"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Corporate",
System.Data.OleDb.OleDbType.VarWChar, 1, "Corporate"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Email", System.Data.OleDb.OleDbType.VarWChar,
50, "Email"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("FirstName",
System.Data.OleDb.OleDbType.VarWChar, 20, "FirstName"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("PartnerNo",
System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input,
False, CType(10, Byte), CType(0, Byte), "PartnerNo",
System.Data.DataRowVersion.Current, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Surname",
System.Data.OleDb.OleDbType.VarWChar, 25, "Surname"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Telephone1",
System.Data.OleDb.OleDbType.VarWChar, 13, "Telephone1"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Telephone2",
System.Data.OleDb.OleDbType.VarWChar, 13, "Telephone2"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Title", System.Data.OleDb.OleDbType.VarWChar,
10, "Title"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("TypeOfMember",
System.Data.OleDb.OleDbType.VarWChar, 6, "TypeOfMember"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_MembershipNo",
System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input,
False, CType(10, Byte), CType(0, Byte), "MembershipNo",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address1",
System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Address1",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address11",
System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Address1",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address2",
System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Address2",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address21",
System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Address2",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address3",
System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Address3",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address31",
System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Address3",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address4PostCode",
System.Data.OleDb.OleDbType.VarWChar, 10, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Address4PostCode",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address4PostCode1",
System.Data.OleDb.OleDbType.VarWChar, 10, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Address4PostCode",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_CompanyName",
System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "CompanyName",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_CompanyName1",
System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "CompanyName",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Corporate",
System.Data.OleDb.OleDbType.VarWChar, 1, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Corporate",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Email",
System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Email",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Email1",
System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Email",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_FirstName",
System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "FirstName",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Surname",
System.Data.OleDb.OleDbType.VarWChar, 25, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Surname",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Telephone1",
System.Data.OleDb.OleDbType.VarWChar, 13, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Telephone1",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Telephone11",
System.Data.OleDb.OleDbType.VarWChar, 13, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Telephone1",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Telephone2",
System.Data.OleDb.OleDbType.VarWChar, 13, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Telephone2",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Telephone21",
System.Data.OleDb.OleDbType.VarWChar, 13, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Telephone2",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Title",
System.Data.OleDb.OleDbType.VarWChar, 10, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Title",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TypeOfMember",
System.Data.OleDb.OleDbType.VarWChar, 6, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TypeOfMember",
System.Data.DataRowVersion.Original, Nothing))
'
'OleDbDeleteCommand1
'
Me.OleDbDeleteCommand1.CommandText = "DELETE FROM Members WHERE (MembershipNo =
?) AND (Address1 = ? OR ? IS NULL AND A" & _
"ddress1 IS NULL) AND (Address2 = ? OR ? IS NULL AND Address2 IS NULL) AND
(Addre" & _
"ss3 = ? OR ? IS NULL AND Address3 IS NULL) AND (Address4PostCode = ? OR ? IS
NUL" & _
"L AND Address4PostCode IS NULL) AND (CompanyName = ? OR ? IS NULL AND
CompanyNam" & _
"e IS NULL) AND (Corporate = ?) AND (Email = ? OR ? IS NULL AND Email IS NULL)
AN" & _
"D (FirstName = ?) AND (Surname = ?) AND (Telephone1 = ? OR ? IS NULL AND
Telepho" & _
"ne1 IS NULL) AND (Telephone2 = ? OR ? IS NULL AND Telephone2 IS NULL) AND
(Title" & _
" = ?) AND (TypeOfMember = ?)"
Me.OleDbDeleteCommand1.Connection = Me.OleDbConnection1
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_MembershipNo",
System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input,
False, CType(10, Byte), CType(0, Byte), "MembershipNo",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address1",
System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Address1",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address11",
System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Address1",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address2",
System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Address2",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address21",
System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Address2",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address3",
System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Address3",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address31",
System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Address3",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address4PostCode",
System.Data.OleDb.OleDbType.VarWChar, 10, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Address4PostCode",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address4PostCode1",
System.Data.OleDb.OleDbType.VarWChar, 10, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Address4PostCode",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_CompanyName",
System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "CompanyName",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_CompanyName1",
System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "CompanyName",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Corporate",
System.Data.OleDb.OleDbType.VarWChar, 1, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Corporate",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Email",
System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Email",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Email1",
System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Email",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_FirstName",
System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "FirstName",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Surname",
System.Data.OleDb.OleDbType.VarWChar, 25, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Surname",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Telephone1",
System.Data.OleDb.OleDbType.VarWChar, 13, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Telephone1",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Telephone11",
System.Data.OleDb.OleDbType.VarWChar, 13, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Telephone1",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Telephone2",
System.Data.OleDb.OleDbType.VarWChar, 13, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Telephone2",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Telephone21",
System.Data.OleDb.OleDbType.VarWChar, 13, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Telephone2",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Title",
System.Data.OleDb.OleDbType.VarWChar, 10, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Title",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TypeOfMember",
System.Data.OleDb.OleDbType.VarWChar, 6, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TypeOfMember",
System.Data.DataRowVersion.Original, Nothing))
'
'OleDbDataAdapter1
'
Me.OleDbDataAdapter1.DeleteCommand = Me.OleDbDeleteCommand1
Me.OleDbDataAdapter1.InsertCommand = Me.OleDbInsertCommand1
Me.OleDbDataAdapter1.SelectCommand = Me.OleDbSelectCommand1
Me.OleDbDataAdapter1.TableMappings.AddRange(New
System.Data.Common.DataTableMapping() {New
System.Data.Common.DataTableMapping("Table", "Members", New
System.Data.Common.DataColumnMapping() {New
System.Data.Common.DataColumnMapping("MembershipNo", "MembershipNo"), New
System.Data.Common.DataColumnMapping("Surname", "Surname"), New
System.Data.Common.DataColumnMapping("FirstName", "FirstName"), New
System.Data.Common.DataColumnMapping("Title", "Title"), New
System.Data.Common.DataColumnMapping("Address1", "Address1"), New
System.Data.Common.DataColumnMapping("Address2", "Address2"), New
System.Data.Common.DataColumnMapping("Address3", "Address3"), New
System.Data.Common.DataColumnMapping("Address4PostCode", "Address4PostCode"),
New System.Data.Common.DataColumnMapping("Telephone1", "Telephone1"), New
System.Data.Common.DataColumnMapping("Telephone2", "Telephone2"), New
System.Data.Common.DataColumnMapping("Email", "Email"), New
System.Data.Common.DataColumnMapping("TypeOfMember", "TypeOfMember"), New
System.Data.Common.DataColumnMapping("Corporate", "Corporate"), New
System.Data.Common.DataColumnMapping("CompanyName", "CompanyName"), New
System.Data.Common.DataColumnMapping("PartnerNo", "PartnerNo")})})
Me.OleDbDataAdapter1.UpdateCommand = Me.OleDbUpdateCommand1
'
'MemberDataSet1
'
Me.MemberDataSet1.DataSetName = "MemberDataSet"
Me.MemberDataSet1.Locale = New System.Globalization.CultureInfo("en-GB")
Me.MemberDataSet1.Namespace = "http://www.tempuri.org/MemberDataSet.xsd"
CType(Me.MemberDataSet1, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
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
MemberDataSet1.Clear()
OleDbDataAdapter1.Fill(MemberDataSet1)
DataBind()
End Sub
End Class
Inherits="project.contactus" %>
"http://www.w3.org/TR/html4/loose.dtd">
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
.style9 { FONT-SIZE: 12px; COLOR: #ffffff; FONT-FAMILY: Arial, Helvetica,
sans-serif }
.style10 { COLOR: #ffffff }
.style11 { FONT-SIZE: 36px; FONT-FAMILY: Arial, Helvetica, sans-serif }
.style12 { FONT-SIZE: 14px; FONT-STYLE: italic; FONT-FAMILY: Arial, Helvetica,
sans-serif }
BODY { BACKGROUND-COLOR: #ffffff }
A:link { COLOR: #ffffff }
A:visited { COLOR: #ffffff }
A:hover { COLOR: #000000 }
.style17 { FONT-SIZE: 16px; FONT-FAMILY: Arial, Helvetica, sans-serif }
.style18 { FONT-SIZE: 12px; FONT-FAMILY: Arial, Helvetica, sans-serif }
.style21 { FONT-WEIGHT: bold; COLOR: #ffffff }
<table width="740" border="0" align="center" cellpadding="0" cellspacing="0"
bgcolor="#9a99c1">
<table width="100%" border="0"
cellpadding="0" cellspacing="0">
<table width="100%" border="0"
cellpadding="0" cellspacing="0">
<td width="770" height="71" valign="top" bgcolor="#9a99c1"
class="style10">Zeus Sports Club
<span
class="style12">Sporting Excellence Personified
<table width="100%" border="0" cellpadding="0"
cellspacing="0">
<td width="736" height="19" valign="top" bgcolor="#9a99c1"
class="style9"> |
Home | About us | <a
href="membership.html">Membership
| Facilities | <a
| href="testimonials.html">Testimonials
| Exercise Classes | <a
| href="openingtimes.html">Opening
Times | Contact us
<table width="100%" border="0"
cellpadding="0" cellspacing="0" bgcolor="#ffffff">
<p class="style10
style17">How
to contact Zeus Sports Club
<form runat="server">
Please select your name
<asp:DropDownList ID="ddlMember" runat="server" DataMember="Members"
DataSource="" DataTextField="WholeName"
Font-Names="Arial">
</form>
<font
color="#ffffff" size="2" face="Arial, Helvetica, sans-serif">"Hi,
my name is Zed! I am here to help you contact
Zeus Sports Club. You can contact the club about anything you wish and I am
here to make sure your message gets to the right people who can deal with your
query."
<table width="100%" border="0"
cellpadding="0" cellspacing="0">
<div align="center"
class="style9">
Home | About us | <a
href="membership.html">
Membership | Facilities
Testimonials | Exercise
Classes | Opening Times | <a
href="contactus.html">
Contact us
</div>
ml3bf
Member
315 Points
63 Posts
Ascending order DropDownList?
Feb 03, 2004 09:30 AM|LINK
Public Class contactus Inherits System.Web.UI.Page 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 OleDbConnection1 As System.Data.OleDb.OleDbConnection Protected WithEvents MemberDataSet1 As project.MemberDataSet Protected WithEvents ddlMember As System.Web.UI.WebControls.DropDownList Protected WithEvents OleDbDataAdapter1 As System.Data.OleDb.OleDbDataAdapter #Region " Web Form Designer Generated Code " 'This call is required by the Web Form Designer. Private Sub InitializeComponent() Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCommand() Me.OleDbConnection1 = New System.Data.OleDb.OleDbConnection() Me.OleDbInsertCommand1 = New System.Data.OleDb.OleDbCommand() Me.OleDbUpdateCommand1 = New System.Data.OleDb.OleDbCommand() Me.OleDbDeleteCommand1 = New System.Data.OleDb.OleDbCommand() Me.OleDbDataAdapter1 = New System.Data.OleDb.OleDbDataAdapter() Me.MemberDataSet1 = New project.MemberDataSet() CType(Me.MemberDataSet1, System.ComponentModel.ISupportInitialize).BeginInit() ' 'OleDbSelectCommand1 ' Me.OleDbSelectCommand1.CommandText = "SELECT *,[FirstName] + ' ' + [Surname] AS WholeName FROM Members" Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1 ' 'OleDbConnection1 ' Me.OleDbConnection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\Inetpub" & _ "\wwwroot\createindwdoneinvs\database.mdb;Mode=Share Deny None;Extended Propertie" & _ "s="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database " & _ "Password="""";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:" & _ "Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Dat" & _ "abase Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Datab" & _ "ase=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without" & _ " Replica Repair=False;Jet OLEDB:SFP=False" ' 'OleDbInsertCommand1 ' Me.OleDbInsertCommand1.CommandText = "INSERT INTO Members(Address1, Address2, Address3, Address4PostCode, CompanyName, " & _ "Corporate, Email, FirstName, PartnerNo, Surname, Telephone1, Telephone2, Title, " & _ "TypeOfMember) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" Me.OleDbInsertCommand1.Connection = Me.OleDbConnection1 Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Address1", System.Data.OleDb.OleDbType.VarWChar, 50, "Address1")) Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Address2", System.Data.OleDb.OleDbType.VarWChar, 50, "Address2")) Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Address3", System.Data.OleDb.OleDbType.VarWChar, 50, "Address3")) Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Address4PostCode", System.Data.OleDb.OleDbType.VarWChar, 10, "Address4PostCode")) Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("CompanyName", System.Data.OleDb.OleDbType.VarWChar, 50, "CompanyName")) Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Corporate", System.Data.OleDb.OleDbType.VarWChar, 1, "Corporate")) Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Email", System.Data.OleDb.OleDbType.VarWChar, 50, "Email")) Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("FirstName", System.Data.OleDb.OleDbType.VarWChar, 20, "FirstName")) Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("PartnerNo", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "PartnerNo", System.Data.DataRowVersion.Current, Nothing)) Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Surname", System.Data.OleDb.OleDbType.VarWChar, 25, "Surname")) Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Telephone1", System.Data.OleDb.OleDbType.VarWChar, 13, "Telephone1")) Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Telephone2", System.Data.OleDb.OleDbType.VarWChar, 13, "Telephone2")) Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Title", System.Data.OleDb.OleDbType.VarWChar, 10, "Title")) Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("TypeOfMember", System.Data.OleDb.OleDbType.VarWChar, 6, "TypeOfMember")) ' 'OleDbUpdateCommand1 ' Me.OleDbUpdateCommand1.CommandText = "UPDATE Members SET Address1 = ?, Address2 = ?, Address3 = ?, Address4PostCode = ?" & _ ", CompanyName = ?, Corporate = ?, Email = ?, FirstName = ?, PartnerNo = ?, Surna" & _ "me = ?, Telephone1 = ?, Telephone2 = ?, Title = ?, TypeOfMember = ? WHERE (Membe" & _ "rshipNo = ?) AND (Address1 = ? OR ? IS NULL AND Address1 IS NULL) AND (Address2 " & _ "= ? OR ? IS NULL AND Address2 IS NULL) AND (Address3 = ? OR ? IS NULL AND Addres" & _ "s3 IS NULL) AND (Address4PostCode = ? OR ? IS NULL AND Address4PostCode IS NULL)" & _ " AND (CompanyName = ? OR ? IS NULL AND CompanyName IS NULL) AND (Corporate = ?) " & _ "AND (Email = ? OR ? IS NULL AND Email IS NULL) AND (FirstName = ?) AND (Surname " & _ "= ?) AND (Telephone1 = ? OR ? IS NULL AND Telephone1 IS NULL) AND (Telephone2 = " & _ "? OR ? IS NULL AND Telephone2 IS NULL) AND (Title = ?) AND (TypeOfMember = ?)" Me.OleDbUpdateCommand1.Connection = Me.OleDbConnection1 Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Address1", System.Data.OleDb.OleDbType.VarWChar, 50, "Address1")) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Address2", System.Data.OleDb.OleDbType.VarWChar, 50, "Address2")) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Address3", System.Data.OleDb.OleDbType.VarWChar, 50, "Address3")) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Address4PostCode", System.Data.OleDb.OleDbType.VarWChar, 10, "Address4PostCode")) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("CompanyName", System.Data.OleDb.OleDbType.VarWChar, 50, "CompanyName")) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Corporate", System.Data.OleDb.OleDbType.VarWChar, 1, "Corporate")) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Email", System.Data.OleDb.OleDbType.VarWChar, 50, "Email")) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("FirstName", System.Data.OleDb.OleDbType.VarWChar, 20, "FirstName")) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("PartnerNo", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "PartnerNo", System.Data.DataRowVersion.Current, Nothing)) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Surname", System.Data.OleDb.OleDbType.VarWChar, 25, "Surname")) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Telephone1", System.Data.OleDb.OleDbType.VarWChar, 13, "Telephone1")) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Telephone2", System.Data.OleDb.OleDbType.VarWChar, 13, "Telephone2")) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Title", System.Data.OleDb.OleDbType.VarWChar, 10, "Title")) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("TypeOfMember", System.Data.OleDb.OleDbType.VarWChar, 6, "TypeOfMember")) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MembershipNo", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "MembershipNo", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address1", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address11", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address1", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address2", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address2", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address21", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address2", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address3", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address3", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address31", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address3", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address4PostCode", System.Data.OleDb.OleDbType.VarWChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address4PostCode", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address4PostCode1", System.Data.OleDb.OleDbType.VarWChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address4PostCode", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_CompanyName", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CompanyName", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_CompanyName1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CompanyName", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Corporate", System.Data.OleDb.OleDbType.VarWChar, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Corporate", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Email", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Email", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Email1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Email", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_FirstName", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FirstName", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Surname", System.Data.OleDb.OleDbType.VarWChar, 25, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Surname", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Telephone1", System.Data.OleDb.OleDbType.VarWChar, 13, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Telephone1", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Telephone11", System.Data.OleDb.OleDbType.VarWChar, 13, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Telephone1", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Telephone2", System.Data.OleDb.OleDbType.VarWChar, 13, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Telephone2", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Telephone21", System.Data.OleDb.OleDbType.VarWChar, 13, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Telephone2", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Title", System.Data.OleDb.OleDbType.VarWChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Title", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_TypeOfMember", System.Data.OleDb.OleDbType.VarWChar, 6, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "TypeOfMember", System.Data.DataRowVersion.Original, Nothing)) ' 'OleDbDeleteCommand1 ' Me.OleDbDeleteCommand1.CommandText = "DELETE FROM Members WHERE (MembershipNo = ?) AND (Address1 = ? OR ? IS NULL AND A" & _ "ddress1 IS NULL) AND (Address2 = ? OR ? IS NULL AND Address2 IS NULL) AND (Addre" & _ "ss3 = ? OR ? IS NULL AND Address3 IS NULL) AND (Address4PostCode = ? OR ? IS NUL" & _ "L AND Address4PostCode IS NULL) AND (CompanyName = ? OR ? IS NULL AND CompanyNam" & _ "e IS NULL) AND (Corporate = ?) AND (Email = ? OR ? IS NULL AND Email IS NULL) AN" & _ "D (FirstName = ?) AND (Surname = ?) AND (Telephone1 = ? OR ? IS NULL AND Telepho" & _ "ne1 IS NULL) AND (Telephone2 = ? OR ? IS NULL AND Telephone2 IS NULL) AND (Title" & _ " = ?) AND (TypeOfMember = ?)" Me.OleDbDeleteCommand1.Connection = Me.OleDbConnection1 Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MembershipNo", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "MembershipNo", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address1", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address11", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address1", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address2", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address2", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address21", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address2", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address3", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address3", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address31", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address3", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address4PostCode", System.Data.OleDb.OleDbType.VarWChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address4PostCode", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address4PostCode1", System.Data.OleDb.OleDbType.VarWChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address4PostCode", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_CompanyName", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CompanyName", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_CompanyName1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CompanyName", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Corporate", System.Data.OleDb.OleDbType.VarWChar, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Corporate", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Email", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Email", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Email1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Email", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_FirstName", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FirstName", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Surname", System.Data.OleDb.OleDbType.VarWChar, 25, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Surname", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Telephone1", System.Data.OleDb.OleDbType.VarWChar, 13, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Telephone1", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Telephone11", System.Data.OleDb.OleDbType.VarWChar, 13, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Telephone1", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Telephone2", System.Data.OleDb.OleDbType.VarWChar, 13, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Telephone2", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Telephone21", System.Data.OleDb.OleDbType.VarWChar, 13, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Telephone2", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Title", System.Data.OleDb.OleDbType.VarWChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Title", System.Data.DataRowVersion.Original, Nothing)) Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_TypeOfMember", System.Data.OleDb.OleDbType.VarWChar, 6, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "TypeOfMember", System.Data.DataRowVersion.Original, Nothing)) ' 'OleDbDataAdapter1 ' Me.OleDbDataAdapter1.DeleteCommand = Me.OleDbDeleteCommand1 Me.OleDbDataAdapter1.InsertCommand = Me.OleDbInsertCommand1 Me.OleDbDataAdapter1.SelectCommand = Me.OleDbSelectCommand1 Me.OleDbDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Members", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("MembershipNo", "MembershipNo"), New System.Data.Common.DataColumnMapping("Surname", "Surname"), New System.Data.Common.DataColumnMapping("FirstName", "FirstName"), New System.Data.Common.DataColumnMapping("Title", "Title"), New System.Data.Common.DataColumnMapping("Address1", "Address1"), New System.Data.Common.DataColumnMapping("Address2", "Address2"), New System.Data.Common.DataColumnMapping("Address3", "Address3"), New System.Data.Common.DataColumnMapping("Address4PostCode", "Address4PostCode"), New System.Data.Common.DataColumnMapping("Telephone1", "Telephone1"), New System.Data.Common.DataColumnMapping("Telephone2", "Telephone2"), New System.Data.Common.DataColumnMapping("Email", "Email"), New System.Data.Common.DataColumnMapping("TypeOfMember", "TypeOfMember"), New System.Data.Common.DataColumnMapping("Corporate", "Corporate"), New System.Data.Common.DataColumnMapping("CompanyName", "CompanyName"), New System.Data.Common.DataColumnMapping("PartnerNo", "PartnerNo")})}) Me.OleDbDataAdapter1.UpdateCommand = Me.OleDbUpdateCommand1 ' 'MemberDataSet1 ' Me.MemberDataSet1.DataSetName = "MemberDataSet" Me.MemberDataSet1.Locale = New System.Globalization.CultureInfo("en-GB") Me.MemberDataSet1.Namespace = "http://www.tempuri.org/MemberDataSet.xsd" CType(Me.MemberDataSet1, System.ComponentModel.ISupportInitialize).EndInit() End Sub 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 MemberDataSet1.Clear() OleDbDataAdapter1.Fill(MemberDataSet1) DataBind() End Sub End Class Inherits="project.contactus" %> "http://www.w3.org/TR/html4/loose.dtd"> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> .style9 { FONT-SIZE: 12px; COLOR: #ffffff; FONT-FAMILY: Arial, Helvetica, sans-serif } .style10 { COLOR: #ffffff } .style11 { FONT-SIZE: 36px; FONT-FAMILY: Arial, Helvetica, sans-serif } .style12 { FONT-SIZE: 14px; FONT-STYLE: italic; FONT-FAMILY: Arial, Helvetica, sans-serif } BODY { BACKGROUND-COLOR: #ffffff } A:link { COLOR: #ffffff } A:visited { COLOR: #ffffff } A:hover { COLOR: #000000 } .style17 { FONT-SIZE: 16px; FONT-FAMILY: Arial, Helvetica, sans-serif } .style18 { FONT-SIZE: 12px; FONT-FAMILY: Arial, Helvetica, sans-serif } .style21 { FONT-WEIGHT: bold; COLOR: #ffffff } <table width="740" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#9a99c1"> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <td width="770" height="71" valign="top" bgcolor="#9a99c1" class="style10">Zeus Sports Club <span class="style12">Sporting Excellence Personified <table width="100%" border="0" cellpadding="0" cellspacing="0"> <td width="736" height="19" valign="top" bgcolor="#9a99c1" class="style9"> | Home | About us | <a href="membership.html">Membership | Facilities | <a | href="testimonials.html">Testimonials | Exercise Classes | <a | href="openingtimes.html">Opening Times | Contact us <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#ffffff"> <p class="style10 style17">How to contact Zeus Sports Club <form runat="server"> Please select your name <asp:DropDownList ID="ddlMember" runat="server" DataMember="Members" DataSource="" DataTextField="WholeName" Font-Names="Arial"> </form>
<font color="#ffffff" size="2" face="Arial, Helvetica, sans-serif">"Hi, my name is Zed! I am here to help you contact Zeus Sports Club. You can contact the club about anything you wish and I am here to make sure your message gets to the right people who can deal with your query." <table width="100%" border="0" cellpadding="0" cellspacing="0"> <div align="center" class="style9"> Home | About us | <a href="membership.html"> Membership | Facilities Testimonials | Exercise Classes | Opening Times | <a href="contactus.html"> Contact us </div>