<%@ LANGUAGE=VBScript %>
<% Option Explicit %>
<%
dim domain, homepage, idx, email
domain = ucase(Request.ServerVariables("SERVER_NAME"))
if instr(1, domain, "WWW", vbTextCompare) < 1 then domain = "WWW." & domain
if instr(1, domain, "DACOR", vbTextCompare) > 0 then
homepage = Request.ServerVariables("URL")
idx = instr(2, homepage, "/", vbTextCompare)
if idx > 5 then
homepage = ucase(mid(homepage, 2, idx-2))
email = homepage & "@" & mid(domain, 5)
else
domain = ucase(Request.ServerVariables("SERVER_NAME"))
homepage = ""
end if
end if
%>
The Late Show Band
<% = domain %>
<% if homepage <> "" then %>
ENTER...
