example usage:
Create a directory called "New Folder" On the root of the server.

<% MkDir Server.MapPath("/New Folder") %>
source code:
<%
Private Sub MkDir(ByVal path)
    Dim objFSO, boolErr, strErrDesc
    boolErr = False
    On Error Resume Next
    Set objFSO = Server.CreateObject("scripting.filesystemobject")
    objFSO.CreateFolder path
    If Err Then 
        boolErr = True
        strErrDesc = Err.description
    End If
    Set objFSO = Nothing
    On Error GoTo 0
    If boolErr Then Err.Raise 5101, "MkDir Statement", strErrDesc
End Sub
%>