ASP Tutorial: Rename a file dynamically using asp

<%
Sub reNameFile(oldFileName, newFileName)
    Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.MoveFile server.mappath(oldFileName), srver.mappath(newFileName)
    Set fso = Nothing
End Sub
%>