<script language=vbscript runat=server>
Server.ScriptTimeOut = 9999
Function reName(sourceName,destName)
dim oFso,oFile
set oFso = Server.CreateObject("Scripting.FileSystemObject")
set oFile = oFso.getFile(Server.mappath(sourceName))
oFile.Name = destName
Set oFso = Nothing
Set oFile = Nothing
End Function
Server.ScriptTimeOut = 9999
Function reName(sourceName,destName)
dim oFso,oFile
set oFso = Server.CreateObject("Scripting.FileSystemObject")
set oFile = oFso.getFile(Server.mappath(sourceName))
oFile.Name = destName
Set oFso = Nothing
Set oFile = Nothing
End Function
</script>