Ragazzi sono riuscito a creare tante pagine quanti sono i record Id così:
Adesso dovrei però riuscire a estrarre e visualizzare il relativo Id per ogni pagina, mi spiego meglio: pagina1.html dovrebbe avere Titolo:Id1 , pagina2.html Titolo:Id2 ecc.codice:<% strPath = "mdb-database/comuni.mdb" strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath(strPath) Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open strConn strSQL= "SELECT COUNT(*) AS RECORD_COUNT FROM Titolo WHERE Id" Set objRS = Server.CreateObject("ADODB.Recordset") Set objRS = objConn.Execute(strSQL) numero_record = objRS("RECORD_COUNT") If Not objRs.EOF Then For contatore = 1 To numero_record Response.Buffer = True Dim objXMLHTTP, xml pagina="http://localhost/fso/pagina.asp" Set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.Open "GET", pagina, False xml.Send strHtml = xml.responseText Set FSO = CreateObject("Scripting.FileSystemObject") sPath = Server.MapPath("public/pagina"&contatore&".html") Set F = FSO.CreateTextFile(sPath, True) F.WriteLine(strHtml) F.Close Set F = Nothing Set FSO = Nothing set xml = Nothing Next Response.Write("Sono stati creati: "&contatore&" file") Else Response.Write "Nessun record" End If %>
Non so se sono stato chiaro :master:
![]()

Rispondi quotando