FileSystemObject med ID som mappnamn

Denna koden använder jag för att skapa mappen på servern.

jag vil använda id för att skapa unika mappar.

men när jag lägger in raden ID så fungerar det inte kan nån hjälpa mig?

fornamn = Request.Form("fornamn")

Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "DSN=upload1;UID=;PWD="
SQL = "SELECT * From ansokan WHERE 1=2"
rs.Open SQL, MinCon, 1, 2

rs.AddNew
rs("Fornamn") = fornamn
rs.Update

%>

<%
Set fs=CreateObject("Scripting.FileSystemObject")
sFolder = "D:\temp2\test\[b]<%=rs("ID")%>[/b]"
If fs.FolderExists(sFolder) Then
Response.Write "Folder Exists"
Else
fs.CreateFolder(sFolder)
End If
%>

mvh