< Public Function HtmlHeader (Optional Title As String = "") As String (?)

Comments

    
    
    '------------------------------------------------------------------------------
    'Return the first part of a typical HTML file
    '------------------------------------------------------------------------------

Public Function HtmlHeader (Optional Title As String = "") As String

    If Title = "" Then
        HtmlHeader = Replace("<html>|<head>|</head>|<body>|", "|", vbCrLf)
    Else
        HtmlHeader = Replace("<html>|<head>|<title>" & Title & "</title>|</head>||<body>|", "|", vbCrLf) & "<h1>" & Title & "</h1>" & vbCrLf
    End If
End Function

Copying, Return to index