Questo script dovrebbe leggere dalla tabella curriculum.mdb l'ultimo id (campo contatore tabella) dare questo valore ad una variabile e creare una cartella con il nome della variabile.
Con un nome della directory inserito da me e non letto dalla tabella funziona quindi l'errore sta nella lettura dei dati dalla tabella.
Mi aiutate??????


<%
dbfile=Server.MapPath("curriculum.mdb")
'Create a Connection Object
Set OBJdbConnection=Server.CreateObject("ADODB.Connection")

'Open the connection (specify the driver tyoe = Access

'and the file is npf.mdb

OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbfile


set rs=Server.CreateObject("ADODB.Connection")


SQL="Select * from curriculum order id asc"


rs.Open SQL, OBJdbConnection,3,3

rs.MoveLast

strnome=rs("ID")
Set rs=Nothing
OBJdbConnection.close
set OBJdbConnection=nothing

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
percorso = server.MapPath(".") & "\" & strnome
Response.Write(percorso)
set crea = ScriptObject.CreateFolder(percorso)

Response.Redirect("curriculum.asp")


%>



mikele