Ascending order DropDownList? RSS

• • Reply
  

  ml3bf

  Member

  315 Points

  63 Posts

  Ascending order DropDownList?

  Feb 03, 2004 09:30 AM|LINK

  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>