<%@ LANGUAGE="VBSCRIPT" %>
<%
Function htmltemp()
template = "<HTML>"
template = template & "<TITLE><!-title-></TITLE>"
template = template & "<BODY>"
template = template & "<!-body->"
template = template & "</BODY>"
template = template & "</HTML>"
htmltemp = template
End Function
thetitle = "HTML Template"
thebody = "<CENTER> This is the template!</CENTER>"
template = htmltemp()
template = Replace(template, "<!-title->", thetitle)
template = Replace(template, "<!-body->", thebody)
Response.Write template
%>
Devington B.