imports system
imports system.data
imports system.data.SqlClient
imports system.web
imports system.web.ui
imports system.web.ui.htmlcontrols
imports system.web.ui.webcontrols
imports system.data.OleDB


public class myJoinCodeBehind
   inherits page

  	 Protected withevents txtFName as textbox		 
 	 Protected withevents txtLName as textbox
	 Protected withevents txtMI as textbox
	 Protected withevents txtStreet as textbox
	 Protected withevents txtCity as textbox
	 Protected withevents txtState as textbox
	 Protected withevents txtZIP as textbox
	 Protected withevents txtEmail as textbox
'***	 
	 Sub Button_Click (s as object, e as eventargs )
	 	If IsValid then
			 Load_Table
		end if
	 End Sub	
'***
   Sub Load_Table
		
		Dim conNewMembers As OleDBConnection
	  Dim strSQL As String
		Dim cmdInsert as OleDBcommand
		
		conNewMembers = New OleDBConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=C:/inetpub/wwwroot/fpstudents/jwarden/iuser/HOG Mustang Club.mdb;")
			
    strSQL = "Insert into tblNewMemberReq (FName, LName, MI , Street, City, State, ZIP, Email) values ( @txtFName, @txtLNmae, @txtMI , @txtStreet, @txtCity, @txtState, @txtZIP, @txtEmail)"		 
		cmdInsert = New OleDBCommand(strSQL, conNewMembers)	
		cmdInsert.Parameters.Add(New OleDbParameter("@txtFName", OleDbType.VarChar, 255))
		cmdInsert.Parameters.Add(New OleDbParameter("@txtLName", OleDbType.VarChar, 255))
		cmdInsert.Parameters.Add(New OleDbParameter("@txtMI", OleDbType.VarChar, 255))
    cmdInsert.Parameters.Add(New OleDbParameter("@txtStreet", OleDbType.VarChar, 255))
    cmdInsert.Parameters.Add(New OleDbParameter("@City", OleDbType.VarChar, 255))
    cmdInsert.Parameters.Add(New OleDbParameter("@State", OleDbType.VarChar, 255))
    cmdInsert.Parameters.Add(New OleDbParameter("@ZIP", OleDbType.VarChar, 255))
		cmdInsert.Parameters.Add(New OleDbParameter("@Email", OleDbType.VarChar, 255))		

		cmdInsert.Parameters("@txtFName").Value = txtFName.text
		cmdInsert.Parameters("@txtLName").Value = txtLName.text
		cmdInsert.Parameters("@txtMI").Value = txtMI.text
		cmdInsert.Parameters("@txtStreet").Value = txtStreet.text
    cmdInsert.Parameters("@City").Value = txtCity.text
    cmdInsert.Parameters("@State").Value = txtState.text
    cmdInsert.Parameters("@ZIP").Value = txtZIP.text
		cmdInsert.Parameters("@Email").Value = txtEmail.text
				
		conNewMembers.Open()
		cmdInsert.ExecuteNonQuery()
		conNewMembers.Close()
		
		response.redirect( "joinredirect.aspx")

	 End Sub
	 
end class
'***********************************************