ciao a tutti,

sto implementando una specie di url rewrite domestico

il form con cui inserisco i titoli e tutti gli altri campi è il file AGGIUNGI.ASP
codice:
<%
	If Request.QueryString("a") = "conferma" Then
		FTitolo = Request.Form("Titolo")
		FTesto = Request.Form("Testo")
		FLocalita = Request.Form("localita")

		If FTitolo = "" Then
			Errore = Errore & "Il campo Titolo è obbligatorio"
		End If
		If FTesto = "" Then
			Errore = Errore & "Il campo Testo è obbligatorio"
		End If

		If Errore = "" Then
			SQL = " INSERT INTO Tabella (Titolo, Testo, localita) VALUES ('"& Replace(FTitolo, "'", "''") &"', '"& Replace(FTesto, "'", "''") &"', '"& Replace(FLocalita, "'", "''") &"') "
			Set RS = Server.CreateObject("ADODB.Recordset")
			RS.Open SQL, Conn, 1, 3
			Set RS = Nothing

			SQL = " SELECT TOP 1 ID FROM Tabella ORDER BY Tabella.ID DESC "
			Set RS = Server.CreateObject("ADODB.Recordset")
			RS.Open SQL, Conn, 1, 3
			If NOT RS.EOF Then
				RS.MoveFirst
				IDArticolo = RS("ID")
			Else
				IDArticolo = 0
			End If
			Set RS = Nothing

			Set FSO = CreateObject("Scripting.FileSystemObject")
			
'piccola condizione per verificare se  la cartella gia esiste o no
Dim objFile
dim folderID
dim folderLOC 
folderID = IDArticolo
folderLOC = FLocalita
Set objFile = Server.CreateObject ("Scripting.FileSystemObject")
'se non esiste  la  creo recuperando il nome dell'id
  objFile.CreateFolder(Server.MapPath("/public/"& folderID nota #1 & "/" & folderLOC nota #2))
Set objFile = Nothing

			Set Documento = FSO.OpenTextFile(Server.MapPath("/public/"& folderID & "_" & folderLOC) & "\" & ConvertiTitoloInNomeScript(FTitolo, FLocalita, IDArticolo), 2, True)
			ContenutoFile = ""
			ContenutoFile = ContenutoFile & "<" & "%" & vbCrLf
			ContenutoFile = ContenutoFile & "VarID = "& IDArticolo &"" & vbCrLf
			ContenutoFile = ContenutoFile & "%" & ">" & vbCrLf

			'piccola modifica' 

			ContenutoFile = ContenutoFile & ""
			Documento.Write ContenutoFile
			Set FSO = Nothing
		End If
	End If

	Conn.Close
	Set Conn = Nothing
%>
<html>
<head>
	<title>Aggiungi</title>
</head>

<body>
	<form action="aggiungi.asp?a=conferma" method="post">
		Titolo
		
<input type="textbox" name="Titolo" size="255" maxlength="255" />
		
Località
		
<input type="textbox" name="localita" size="150" maxlength="150" />
		
Testo
		
<textarea name="Testo" rows="5" cols="40"></textarea>
		
<input type="submit" name="aggiungi" value="Aggiungi" />
	</form>
	home
</body>
</html>
la cartella con il nome dell'ID (vedi nota #1 già si crea ma, DENTRO QUESTA, vorrei crearne almeno una seconda nota #2.

dovrebbe essere qualcosa del genere

codice:
objFile.CreateFolder(Server.MapPath("/public/"& folderID & "/" & folderLOC))
in cui poi la funzione va a creare un file .asp

codice:
Set Documento = FSO.OpenTextFile(Server.MapPath("/public/"& folderID & "/" & folderLOC) & "\" & ConvertiTitoloInNomeScript(FTitolo, FLocalita, IDArticolo), 2, True)
questo barbaro modo mi ha restituito il seguente errore

codice:
Errore di run-time di Microsoft VBScript errore "800a004c'

Impossibile trovare il percorso

/rewr/vns/admin/aggiungi.asp, riga 42
la riga 42, MANCO A DIRLO, è quella con le note #1 e #2
qualche suggerimento???