Mappar

hej...
skulle vilja veta hur man gör att när någon registera sig så skapas en mapp åt medlemmens..

så här ser min nuvarande kod ut.....

<!-- #include file="../adovbs.inc" -->

<%

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../test.mdb")&";pwd=webforum"

Set RecSet = Server.CreateObject("ADODB.Recordset")

	Addera = "SELECT * FROM test"

	RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
	
	RecSet.AddNew

Recset("fnamn") = Request.form("fnamn")
Recset("Ålder") = Request.form("Ålder")
Recset("email") = Request.form("email")
Recset("kön") = Request.form("kön")
Recset("ort") = Request.form("ort")
Recset("enamn") = Request.form("enamn")
Recset("password") = Request.form("password")
Recset("anv") = Request.form("anv")

	RecSet.Update
	RecSet.Close
	Connect.Close

Response.Redirect "loggain.asp"

%>

<!-- #include file="../adovbs.inc" -->

<%

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../test.mdb")&";pwd=webforum"

Set RecSet = Server.CreateObject("ADODB.Recordset")

	Addera = "SELECT * FROM test"

	RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
	
	RecSet.AddNew

Recset("fnamn") = Request.form("fnamn")
Recset("Ålder") = Request.form("Ålder")
Recset("email") = Request.form("email")
Recset("kön") = Request.form("kön")
Recset("ort") = Request.form("ort")
Recset("enamn") = Request.form("enamn")
Recset("password") = Request.form("password")
Recset("anv") = Request.form("anv")

	RecSet.Update
	RecSet.Close
	Connect.Close

[b]
set fso = server.createobject("scripting.filesystemobject")
if fso.folderexists(server.mappath("nymapp")) = false then
	fso.createfolder(server.mappath("nymapp"))
end if
set fso = nothing
[/b]

Response.Redirect "loggain.asp"

%>