Untitled

<%
Function getClassName()
    scr = Request.ServerVariables("SCRIPT_NAME")
    if instr(scr,"/")>0 then
        scr = right(scr, len(scr) - instrRev(scr,"/"))
    end if
    noExt = Split(scr,".")
    getClassName=noExt(0)
End Function
%>


Then, in your HTML:

<body class="<%=getClassName()%>">