<%
' Version 1.1 - by Peter Graves
' http://www.petergraves.co.uk
' --------------------------------------------------
' Do Not Cache This Page
Response.Expires = 60
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
' --------------------------------------------------
' Get the domain name that this page is on
Dim strMyDomain
Dim MailServer
Dim strMyDomainLength
Dim strMyDomainCut
strMyDomain = Request.ServerVariables("SERVER_NAME")
strMyDomainLength = Len(strMyDomain)
If instr(1, strMyDomain, "www.", VBTextCompare) <> 0 then
strMyDomainCut = Right(strMyDomain,strMyDomainLength-4)
Else
strMyDomainCut = strMyDomain
End If 'end if
MailServer = "Mail." & strMyDomainCut & ":8585"
' --------------------------------------------------
' Just in case the users omits the @mydomain.name bit
Dim strUserNameExt
strUserNameExt = "@" & strMyDomainCut
' --------------------------------------------------
%>
MJC Secretarial Services