<%
function curPageName()
dim pagename
pagename = Request.ServerVariables("SCRIPT_NAME")
if inStr(pagename, "/") > 0 then
pagename = Right(pagename, Len(pagename) - instrRev(pagename, "/"))
end if
if inStr(pagename, ".") > 0 then
pagename = Left(pagename, instrRev(pagename, "."))
end if
curPageName = pagename
end function
Response.Status="301 Moved Permanently"
Response.AddHeader "Location",curPageName + "php"
%>
DELETED