Creare con asp un file e salvarne il nome in un database

[michele.santoro]

Salve a tutti
dopo una lunga assenza (dovuta ad una montagna di impegni, non per ultimo il matrimonio di un figlio) rieccomi a frequentare con immenso piacere questo forum.
Ma vengo subito al punto. Ho questo codice che mi permette di creare una pagina html:

<%@LANGUAGE="VBSCRIPT"%>
<%
Dim path 
Dim objMakeFile
Dim objFso
Dim objFile

path= "public/pagine/"


If Request.Form("NewPage")="Yes" Then
	objFile=Server.MapPath(path & Request.Form("Page") & ".html")
	Set objFso = Server.CreateObject("Scripting.FileSystemObject")
	Set objMakeFile = objFso.CreateTextFile(objFile, 2, True)

	objMakeFile.WriteLine("<font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1"">")
	objMakeFile.WriteLine(Request.Form("Cont")&"</font>
")
	
	objMakeFile.Close
	Set objFso = Nothing
	Response.Redirect path & Request.Form("Page") & ".html"
Else
	Response.Write vbCrLf & "<form name=""NewPage"" method=""post"" action="""&Request.ServerVariables("SCRIPT_NAME")&""">"
	Response.Write vbCrLf & "<input type=""hidden"" value=""Yes"" name=""NewPage"">"
	Response.Write vbCrLf & "Nome pagina:
<input type=""text"" name=""Page"">
"
	Response.Write vbCrLf & "Contenuto
<textarea name=""Cont"" rows=""5"" cols=""50""></textarea>
"
	Response.Write vbCrLf & "<input type=""submit"" value="" CREA !! "">"
	Response.Write vbCrLf & "</form>"
End If
%>

Come faccio salvare il nome del file con il percorso (es: ../public/pagine/nomefile.html) in un database access?

Al momento ho risolto inserendo nella stessa pagina un form che invia i dati ad una pagina incaricata di inviarli al database, ma devo prima salvare la pagina poi tornare indietro e quindi inviare i dati. Il tutto anche se funziona è troppo macchinoso.
C'è un modo piu semplice per ottenere lo stesso risultato?
Mi aiutate per favore? Sono ore che sto scervellandomi.
Grazie

[Luis33]

Ciao, innanzitutto auguri per tuo figlio... poi se ho capito bene devi utilizzare una cosa del genere:

tuoPercorso = path & Request.Form("Page") & ".html"

e poi con una query insert into lo memorizzi nel tuo DB.

Spero d'avere capito...

[michele.santoro]

Originariamente inviato da Luis33
Ciao, innanzitutto auguri per tuo figlio... poi se ho capito bene devi utilizzare una cosa del genere:

tuoPercorso = path & Request.Form("Page") & ".html"

e poi con una query insert into lo memorizzi nel tuo DB.

Spero d'avere capito...

Grazie per gli auguri e per aver risposto.
Scusa ma sto ancora imparando l'asp e non ho ben capito cosa dovrei fare. Ti spiego meglio il problema.
Se provi lo script che ho postato, vedrai che ti permette di creare una pagina html in una cartella situata in "public/pagine".
Ora io vorrei prendere, al momento del salvataggio il nome del file e il percorso e inviarlo in un campo di un database, il tutto se possibile usando la pagina che ho postato.

Ti dispiace farmi un esempio in modo che riesca a capire meglio?
Grazie ancora

[Luis33]

<%@LANGUAGE="VBSCRIPT"%>

<%
set db = Server.CreateObject("ADODB.Connection")
connect = "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("public/db.mdb")
db.Open connect 

Dim path 
Dim objMakeFile
Dim objFso
Dim objFile

path= "public/pagine/"

If Request.Form("NewPage")="Yes" Then
	objFile=Server.MapPath(path & Request.Form("Page") & ".html")
	Set objFso = Server.CreateObject("Scripting.FileSystemObject")
	Set objMakeFile = objFso.CreateTextFile(objFile, 2, True)

	strPath = path & Request.Form("Page") & ".html" 
		
        virtPath = "http://" & Request.ServerVariables("SERVER_NAME") & "/" & strPath 
   	sql = "INSERT INTO Tabella (percorsoFile) values ('"&virtPath&"')"
        db.Execute(SQL)   
 
	objMakeFile.WriteLine("<font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1"">")
	objMakeFile.WriteLine(Request.Form("Cont")&"</font>
")
	
	objMakeFile.Close
	Set objFso = Nothing
	Response.Redirect path & Request.Form("Page") & ".html"
Else
	Response.Write vbCrLf & "<form name=""NewPage"" method=""post"" action="""&Request.ServerVariables("SCRIPT_NAME")&""">"
	Response.Write vbCrLf & "<input type=""hidden"" value=""Yes"" name=""NewPage"">"
	Response.Write vbCrLf & "Nome pagina:
<input type=""text"" name=""Page"">
"
	Response.Write vbCrLf & "Contenuto
<textarea name=""Cont"" rows=""5"" cols=""50""></textarea>
"
	Response.Write vbCrLf & "<input type=""submit"" value="" CREA !! "">"
	Response.Write vbCrLf & "</form>"
End If

db.Close
set db = Nothing
%>

Provato e funziona alla grande... naturalmente da adattare al tuo db...

[michele.santoro]

Grazie, funziona veramente alla grande.
Sei stato veramente gentile