Set objCmd = Server.CreateObject("ADODB.command")
 objCmd.ActiveConnection = objConn
 If blnNewRecord Then
  objCmd.CommandText = "INSERT INTO Member SET EmailAddress = ?, Password = ?, FamilyName = ?, GivenName = ?, PhoneNumber = ?, StreetAddress1 = ?, "
  If Session("StreetAddress2") <> " " Then
   objCmd.CommandText = objCmd.CommandText & "StreetAddress2 = ?, City = ?, State = ?, PostalCode = ?, Country = ?, "
  Else
   objCmd.CommandText = objCmd.CommandText & "City = ?, State = ?, PostalCode = ?, Country = ?, "
  End If
  objCmd.CommandText = objCmd.CommandText & "Active = ?, LastLogin = ?, RegistrationDate = ?, MailingList = ?, Status = ? WHERE SSN = ? "
 Else
   objCmd.CommandText = "UPDATE Member SET EmailAddress = ?, Password = ?, FamilyName = ?, GivenName = ?, PhoneNumber = ?, StreetAddress1 = ?, "
   If Session("StreetAddress2") <> "" Then
    objCmd.CommandText = objCmd.CommandText & "StreetAddress2 = ?, City = ?, State = ?, PostalCode = ?, Country = ?, "
   Else
    objCmd.CommandText = objCmd.CommandText & "City = ?, State = ?, PostalCode = ?, Country = ?, "
   End If
    objCmd.CommandText = objCmd.CommandText & "Active = ?, LastLogin = ?, RegistrationDate = ?, MailingList = ?, Status = ? WHERE SSN = ? "
 End If
 objCmd.CommandType = adCmdText
 objCmd.Prepared = True
 objCmd.Parameters.Append(objCmd.CreateParameter("EMailAddress", adVarChar, adParamInput, Len(Request("Email")), Request("EMail")))
 objCmd.Parameters.Append(objCmd.CreateParameter("Password", adChar, adParamInput, Len(Request("Password")), Request("Password")))
 objCmd.Parameters.Append(objCmd.CreateParameter("FamilyName", adChar, adParamInput, Len(Request("FamilyName")), Request("FamilyName")))
 objCmd.Parameters.Append(objCmd.CreateParameter("GivenName", adChar, adParamInput, Len(Request("GivenName")), Request("GivenName")))
 objCmd.Parameters.Append(objCmd.CreateParameter("PhoneNumber", adChar, adParamInput, Len(Request("PhoneNumber")), Request("PhoneNumber")))
 objCmd.Parameters.Append(objCmd.CreateParameter("StreetAddress1", adChar, adParamInput, Len(Request("Address1")), Request("Address1")))
 If Request("StreetAddress2") <> "" Then
  objCmd.Parameters.Append(objCmd.CreateParameter("StreetAddress2", adChar, adParamInput, Len(Request("Address2")), Request("Address2")))
 End If
 objCmd.Parameters.Append(objCmd.CreateParameter("City", adChar, adParamInput, Len(Request("City")), Request("City")))
 objCmd.Parameters.Append(objCmd.CreateParameter("State", adChar, adParamInput, Len(Request("State")), Request("State")))
 objCmd.Parameters.Append(objCmd.CreateParameter("PostalCode", adChar, adParamInput, Len(Request("PostalCode")), Request("PostalCode")))
 objCmd.Parameters.Append(objCmd.CreateParameter("Country", adChar, adParamInput, Len(Request("Country")), Request("Country")))
 objCmd.Parameters.Append(objCmd.CreateParameter("Active", adBoolean, adParamInput, Len(Request("Active")), TRUE))
 objCmd.Parameters.Append(objCmd.CreateParameter("LastLogin", adDate, adParamInput, Len(Now()), Now()))
 objCmd.Parameters.Append(objCmd.CreateParameter("RegistrationDate", adDate, adParamInput, Len(Request("RegistrationDate")), Request("RegistrationDate")))
 If Request("MailingList") = Checked Then
  objCmd.Parameters.Append(objCmd.CreateParameter("MailingList", adBoolean, adParamInput, Len(MailingList), TRUE))
 Else
  objCmd.Parameters.Append(objCmd.CreateParameter("MailingList", adBoolean, adParamInput, Len(MailingList), FALSE))
 End If
 objCmd.Parameters.Append(objCmd.CreateParameter("Status", adChar, adParamInput, Len(rsMemInfo("Status")), rsMemInfo("Status")))
 objCmd.Parameters.Append(objCmd.CreateParameter("SSN", adInteger, adParamInput, Len(Session("SSN")), Session("SSN")))