'Use the File System Object's CreateFolder method to make the folder
Set objF = objFSO.CreateFolder(strPath)
objRS("folder") = strFolder
Response.Write (objRS("name") & " Activated. Folder: " & objRS("folder") & " created.<BR>An email has been sent to " & objRS("email") & " informing them of their account status.<BR><BR>")
Else
Response.Write (objRS("name") & " ReActivated.<BR>An email has been sent to " & objRS("email") & " informing them of their account status.<BR><BR>")
End If
objRS("active") = True
bUpdate = True
Set Mailer = Server.CreateObject("SoftArtisans.SMTPMail")