Computer Buyer 1999 September/Dpcb0999.iso/Web/Homesite/data1.cab/HS_Wizards/HTML/QuickStart.wml

Text File | 1999-04-12 | 2KB | 49 lines

<WIZSET tMetaRefresh = "">
<WIZIF ParameterExists('RefreshTime')>
<WIZIF Trim(RefreshTime) neq ''>
    <WIZSET tMetaRefresh = "\n" & DefaultCase("<META HTTP-EQUIV=""REFRESH"" CONTENT=""") & RefreshTime>
    <WIZIF Trim(RefreshURL) neq ''>
        <WIZSET tMetaRefresh = tMetaRefresh & DefaultCase("; URL=") & RefreshURL>
    </WIZIF>
    <WIZSET tMetaRefresh = tMetaRefresh & """>">
</WIZIF>
</WIZIF>

<WIZSET aTopMargin = "">
<WIZIF ParameterExists('TopMargin')>
<WIZIF Trim(TopMargin) neq ''>
    <WIZSET aTopMargin = DefaultCase(" TOPMARGIN=""") & TopMargin & """">
</WIZIF>
</WIZIF>

<WIZSET aLeftMargin = "">
<WIZIF ParameterExists('LeftMargin')>
<WIZIF Trim(LeftMargin) neq ''>
    <WIZSET aLeftMargin = DefaultCase(" LEFTMARGIN=""") & LeftMargin & """">
</WIZIF>
</WIZIF>

<WIZSET tMetaKeywords = "">
<WIZIF ParameterExists('Keywords')>
<WIZIF Trim(Keywords) neq ''>
    <WIZSET tMetaKeywords = "\n" & DefaultCase("<META HTTP-EQUIV=""KEYWORDS"" CONTENT=""") & Keywords & """>">
</WIZIF>
</WIZIF>

<WIZSET tMetaDescription = "">
<WIZIF ParameterExists('Description')>
<WIZIF Trim(Description) neq ''>
    <WIZSET tMetaDescription = "\n" & DefaultCase("<META HTTP-EQUIV=""DESCRIPTION"" CONTENT=""") & Description & """>">
</WIZIF>
</WIZIF>

$${DocType}

<$${DefaultCase("HTML")}>
<$${DefaultCase("HEAD")}>
<$${DefaultCase("TITLE")}>$${Title}</$${DefaultCase("TITLE")}>$${tMetaRefresh}$${tMetaKeywords}$${tMetaDescription}
</$${DefaultCase("HEAD")}>
<$${DefaultCase("BODY")}$${aTopMargin}$${aLeftMargin}>

</$${DefaultCase("BODY")}>
</$${DefaultCase("HTML")}>