[MOD] Profile Fields

  '******************************************
  '***   Create/Update Custom Fields ***
  '******************************************
   Dim rsCustomFields
   Dim rsPortal
   Set rsCustomFields = Server.CreateObject("ADODB.Recordset")
   Set rsPortal = Server.CreateObject("ADODB.Recordset")
   strSQL = "SELECT * FROM " & strDbTable & "ProfileFields"
   rsPortal.Open strSQL,adoCon
   
   if not rsPortal.EOF then
   do until rsPortal.EOF
    If strMode = "new" AND lngUserProfileID = 2 then
     strSQL = "SELECT" & strDBTop1 & " Author_ID FROM " & strDbTable & "Author ORDER BY Author_ID desc" & strDBLimit1
     rsCustomFields.Open strSQL,adoCon
     lngUserProfileID = rsCustomFields("Author_ID")
     rsCustomFields.Close
    End If
    If lngUserProfileID <> 2 then
     If Request.Form("Field" & rsPortal("Field_ID")) = "" then
      strSQL = "DELETE FROM " & strDbTable & "ProfileFieldData WHERE Field_ID = " & rsPortal("Field_ID") & " AND Author_ID = " & lngUserProfileID
      adoCon.Execute(strSQL)
     Else
      strSQL = "SELECT * FROM " & strDbTable & "ProfileFieldData WHERE Field_ID = " & rsPortal("Field_ID") & " AND Author_ID = " & lngUserProfileID
      rsCustomFields.Open strSQL,adoCon,3,3
 
      if rsCustomFields.EOF then
       rsCustomFields.AddNew
      end if

      rsCustomFields("Field_ID") = rsPortal("Field_ID")
      rsCustomFields("Author_ID") = lngUserProfileID
      If rsPortal("FieldType") = 3 then
       rsCustomFields("FieldData") = ", " & Request.Form("Field" & rsPortal("Field_ID")) & ","
      Else
       rsCustomFields("FieldData") = Request.Form("Field" & rsPortal("Field_ID"))
      End if
 
      rsCustomFields.Update
      rsCustomFields.Close
     End If
    End If
   rsPortal.MoveNext
   Loop
   end if
   rsPortal.Close
   
   
   If isObject(rsCustomFields) Then
    Set rsCustomFields = Nothing
   End If
   
   If isObject(rsPortal) Then
    Set rsPortal = Nothing
   End If