A cópia do código é a seguinte:
<%
Response.Write "<br>"
Callserver_update ("cache")
Callserver_update ("Sessão")
Response.Write "<br> O host virtual reiniciou com sucesso!"
subsserver_update (byvaltrt)
ifstrt = "" thenstt = request.QueryString ("delete")
selectCaseSTrt
case "cache"
Application.lock
Application.Contents.Removeall
Application.unlock
Response.Write "DeleteCachesucced! <br>"
caso "sessão"
session.abandon
Response.Write "DeleteSessionsUcced! <br>"
endSelect
endsub
%>
Salve como iisrestar.asp