<% Response.Buffer = true %> <%url=Request.ServerVariables("HTTP_HOST")%> <%response.write ville %> <%Pt=left(right(url,3),1)%> <%if Pt="." then mot=mid(url,5,len(url)-7) else mot=mid(url,5,len(url)-8) end if %> <%ndd=mid(url,5,len(url)-4)%> <%Mmot=ucase(mot)%> <%mimot=lcase(mot)%> <%response.write(mimot)%>