Location: PHPKode > projects > Customer Inquiry Management System > ute/ute_class_database.inc
<%
'---------------------------------------------------------------------------
'
'   Project:    UTE - (U)niversal ASP (T)able (E)ditor
'
'   Module:     UTE class - View Database Functions
'
'   Version:    3.00
'
'   Comments:   This module does the following things:
'                   1. defines all functions being needed in
'                      database mode
'
'---------------------------------------------------------------------------
'
'   (c) in 2000-2003 by Tom Wellige                    
'   http://www.wellige.com  mailto:hide@address.com     
'                                               
'   This project is released under the "GNU General Public License (GPL)" 
'   http://www.gnu.org/licenses/gpl.html
'
'   and is maintained on SourceForge at
'   http://sourceforge.net/projects/ute-asp/
'
'   and can also be found on CodeProject at
'   http://www.codeproject.com/asp/ute.asp
'
'---------------------------------------------------------------------------


''--------------------------------------------------------------------------
'' Name:     buildHTML_Database
''           ==================
'' 
'' Creates entire UTE HTML code for database mode.
''
'' Parameter: 
''      none
''
'' return value:
''      string      HTML code
''
''--------------------------------------------------------------------------
Private Function buildHTML_Database()
    Dim sValue, s
    Dim rstSchema

    if m_sDBName <> "" then
        s = Replace(STR_DB_TITLE, "%1", m_sDBName)
    else
        s = Replace(STR_DB_TITLE, "%1", STR_DATABASE)
    end if

    sValue = _
        "<p><span class=""ute_headline"">" & s & "</span></p>" & vbCrLf & _
        "<table width=""100%""><tr>" & vbCrLf & _
        "<td class=""ute_navigation"">" & vbCrLf & _
        "<ul class=""ute_table_list"">" & vbCrLf

    Set rstSchema = m_DB.OpenSchema(adSchemaTables)
    Do Until rstSchema.EOF
        if UCase(rstSchema("TABLE_TYPE")) = "TABLE" then
            s = Request.QueryString
            s = getLink(m_sUTEScript, s, sParamTable, rstSchema("TABLE_NAME"))
            s = getLink(m_sUTEScript, s, sParamMode,  MD_TABLE)
            sValue = sValue & "<li><a href=""" & s & """>" & rstSchema("TABLE_NAME") & "</a>" & vbCrLf
        end if
        rstSchema.MoveNext
    Loop
    rstSchema.Close
    Set rstSchema = Nothing

    sValue = sValue & _
        "</ul>" & vbCrLf & _
        "</td></tr></table>" & vbCrLf & _
        getPoweredBy

    buildHTML_Database = sValue

End Function

%>
Return current item: Customer Inquiry Management System