Users can search for a Foundation degree course by subject area, region, institution or keyword using the search facility below.

For further details of any of the Foundation degrees listed, please see the website or prospectus of the institution delivering the course. The validating institution is the institution that awards the Foundation degree, the delivering institution is where the degree is taught.

Our database is constantly updated; however, fdf invites both awarding institutions and delivering institutions to contact us concerning any inaccuracies in these listings. We are also interested in hearing about new and planned Foundation degrees. Please contact Esther Lockley e.lockley@fdf.ac.uk.

<%
    If Not CInt(InStr(LCase(System.Web.HttpContext.Current.Request.Url.AbsoluteUri), "admin")) > 0.5 Then           'switch it off when in the back office

 %>

<%
  if (bodydbread("DisplayElementTitle").tostring) = "True" then
  %>

 

<%=bodydbread("ElementTitle").tostring%>



  <%
end if
%>

<%
if len(bodydbread("Image1").tostring) > 0.5 then
%>        
<% If CInt(InStr(LCase(System.Web.HttpContext.Current.Request.Url.AbsoluteUri), "admin")) > 0.5 Then%>
/>/250<%=bodydbread(" alt="<%=bodydbread("imageAlt")%>" />
<%Else%>
/>/250<%=bodydbread(" alt="<%=bodydbread("imageAlt")%>" style="float:left;margin:0 10px 5px 0;" />
<%end if %>
<%
end if
%>
<%=replace(bodydbread("ElementBody").tostring,",")%>

   
   

       

            Keyword

       

     
     
       

   

       

            Category

       

           
       

   

       

            Region

       

                     
                     
       

   

       

        Course Title

       

                     
                     
                     


       

        Validating Institution

       

                     
                     

   

       

        Delivering Institution

       

                     
                     

   


         
          Results Found.
          <%
              If CInt(lblResults.Text) > 500 Then
                  Response.Write(" You may wish to choose more specific criteria. 500 results or less will be returned.")
              End If
          %>



           <%
'

This is an indicative listing of the types of courses available. We recommend that you contact the Delivering Institution website (click on the institution name) to find up to date information.


   %>


 <%
     If (0 & lblResults.Text) < 500 Then
         'If 1 = 1 Then
         %>
       
         
           
                         
                         
                         
         
          <%
              Dim Srchdbconn As SqlConnection
              Dim Srchdbread, Srchdbcomm, Srchdbread1, Srchdbcomm1, strsql, strWhere, reccnt
              reccnt = 0
              Srchdbconn = New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
              Srchdbconn.Open()
            
              strsql = "SELECT * FROM tblFDFCourses"
              strWhere = "
              If Not ddCourse.SelectedItem.Text = "Select All" Then
                  strWhere = " [course] = '" & ddCourse.SelectedItem.Text & "' "
              End If
            
              If Not ddRegion.SelectedItem.Text = "Select All" Then
                  If Len(strWhere) > 0.5 Then
                      strWhere = strWhere & " AND "
                  End If
                  strWhere = strWhere & " [region] = '" & ddRegion.SelectedItem.Value & "' "
              End If
            
              If Not ddCategory.SelectedItem.Text = "Select All" Then
                  If Len(strWhere) > 0.5 Then
                      strWhere = strWhere & " AND "
                  End If
                  strWhere = strWhere & " [coursetype] = '" & (ddCategory.SelectedItem.Value) & "' "
              End If
            
              If Not ddValid.SelectedItem.Text = "Select All" Then
                  If Len(strWhere) > 0.5 Then
                      strWhere = strWhere & " AND "
                  End If
                  strWhere = strWhere & " [validatinst] = " & ddValid.SelectedItem.Value & " "
              End If
            
              If Not ddDel.SelectedItem.Text = "Select All" Then
                  If Len(strWhere) > 0.5 Then
                      strWhere = strWhere & " AND "
                  End If
                  strWhere = strWhere & " [deliveringinst] = " & ddDel.SelectedItem.Value & " "
              End If
            
              If Len(txtKeyword.Text) > 0.5 Then
                  If Len(strWhere) > 0.5 Then
                      strWhere = strWhere & " AND "
                  End If
                  strWhere = strWhere & " [Course] LIKE '%" & txtKeyword.Text & "%' "
              End If
            
              If Len(strWhere) > 0.5 Then
                  strsql = strsql & " WHERE " & strWhere
              End If
            
            
              Srchdbcomm = New SqlCommand(strsql, Srchdbconn)
              Srchdbread = Srchdbcomm.ExecuteReader()
              While Srchdbread.read
            
        
             %>
         
           
           
           
           
         
          <%
            
            End While
            Srchdbread.close()
            Srchdbconn.dispose()
                %>         
       
Region Course Title Validating Institution Delivering Institution

            <%
                Srchdbcomm1 = New SqlCommand("fdfFindRegion", Srchdbconn)
                Srchdbcomm1.CommandType = CommandType.StoredProcedure
                Srchdbcomm1.Parameters.Add("@region", Srchdbread("region").ToString)
                Srchdbread1 = Srchdbcomm1.ExecuteReader()
                While Srchdbread1.READ()
                    Response.Write(Srchdbread1("Description").ToString)
                End While
                Srchdbread1.close()
                    %>
                   		 <%=Srchdbread("course").ToString%>
                
                <%
                    Srchdbcomm1 = New SqlCommand("fdfFindInstitution", Srchdbconn)
                    Srchdbcomm1.CommandType = CommandType.StoredProcedure
                    Srchdbcomm1.Parameters.Add("@institution", Srchdbread("deliverinst").ToString)
                    Srchdbread1 = Srchdbcomm1.ExecuteReader()
                    Srchdbread1.READ()
                    If Len(Srchdbread1("url").ToString) > 0.5 Then
                        Response.Write("")
                    End If
                    Response.Write(Srchdbread1("Institution").ToString)
                    If Len(Srchdbread1("url").ToString) > 0.5 Then
                        Response.Write("")
                    End If
                    Srchdbread1.close()
                    %>


<%
    Srchdbcomm1 = New SqlCommand("fdfFindInstitution", Srchdbconn)
    Srchdbcomm1.CommandType = CommandType.StoredProcedure
    Srchdbcomm1.Parameters.Add("@institution", Srchdbread("validinst").ToString)
    Srchdbread1 = Srchdbcomm1.ExecuteReader()
    Srchdbread1.READ()
    If Len(Srchdbread1("url").ToString) > 0.5 Then
        Response.Write("")
    End If
    Response.Write(Srchdbread1("Institution").ToString)
    If Len(Srchdbread1("url").ToString) > 0.5 Then
        Response.Write("")
    End If


    Srchdbread1.close()
                    %>

 

        
        <%
        End If
            %>
            
            <%
            Else
                Response.Write("COURSELISTINGS")
            End If
            
            
             %>
Keyword
Category
Region
Course Title
Validating Institution
Delivering Institution