Creare pagine in automatico da database (modrewrite)

[elbaforum]

Ciao a tutti,

devo simulare un modrewrite su un database che ho già, mi spiego meglio:

ho un database con circa seicento campi, e vorrei creare uno script che mi generi in automatico un file per ogni record e come nome del file il nome del campo url e come contenuto questo qui:

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Documento = FSO.OpenTextFile(Server.MapPath("/cartella/") & "\" & ConvertiTitoloInNomeScript(FTitolo, IDArticolo), 2, True)
ContenutoFile = ""
ContenutoFile = ContenutoFile & "<" & "%" & vbCrLf
ContenutoFile = ContenutoFile & "VarID = "& IDArticolo &"" & vbCrLf
ContenutoFile = ContenutoFile & "%" & ">" & vbCrLf
ContenutoFile = ContenutoFile & ""
Documento.Write ContenutoFile

è possibile farlo?

Ciao e grazie a chi può aiutarmi.

Ciao ciao

[Roby_72]

Si, qual'è il problema?

Roby

[elbaforum]

Ciao Roby,

devo creare per ogni record una pagina asp che abbia come nome il nome del campo url e come contenuto il seguente:

<%
VarlinkID = linkid
%>

spero di essere stato chiaro. Ciao e grazie per l'aiuto Andrea.

[Roby_72]

Ok, ma il tuo script mi sembra ok.
Basta metterlo all'interno di un ciclo Do while/ Loop che cicli tutti i record estratti.

Roby

[elbaforum]

il problema è che io non so scrivere codice pulito, e l'esempio che ho postato è tratto da un esempio di modrewrite tratto da un tutiorial.

questa è la mia prova:

<% Dim Conn, StrConn

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "& Server.MapPath("../fpdb/prova.mdb") &";"


SQL = " INSERT INTO links (linkid, url) VALUES ('"& Replace(url, "'", "''") &"', '"& Replace(FTesto, "'", "''") &"') "
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")
Set Documento = FSO.OpenTextFile(Server.MapPath("/public/") & "\" & url, True)
ContenutoFile = ""
ContenutoFile = ContenutoFile & "<" & "%" & vbCrLf
ContenutoFile = ContenutoFile & "VarID = "& linkid &"" & vbCrLf
ContenutoFile = ContenutoFile & "%" & ">" & vbCrLf
ContenutoFile = ContenutoFile & ""
Documento.Write ContenutoFile
Set FSO = Nothing

%>

ci va aggiunto il ciclo e corretto la stringa, poi dovrei lanciare il file e dovrebbe crearmi tante pagine quante i campi del database.

Ma come faccio?

[Roby_72]

Ma questa parte a cosa serve?

SQL = " INSERT INTO links (linkid, url) VALUES ('"& Replace(url, "'", "''") &"', '"& Replace(FTesto, "'", "''") &"') "
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, Conn, 1, 3
Set RS = Nothing

Roby

[elbaforum]

a niente perchè è sbagliata, ma non so costriuirla per estrarre tutti i record e creare un ciclo che mi crei in automatico le pagine.

[Roby_72]

<% Dim Conn, StrConn

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "& Server.MapPath("../fpdb/prova.mdb") &";"

SQL = " SELECT * FROM Tabella ORDER BY Tabella.ID DESC "
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, Conn, 1, 3
If NOT RS.EOF Then
do while not rs.eof
linkid = RS("ID")
ulr = RS("url") 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Documento = FSO.OpenTextFile(Server.MapPath("/public/") & "\" & url, True)
ContenutoFile = ""
ContenutoFile = ContenutoFile & "<" & "%" & vbCrLf
ContenutoFile = ContenutoFile & "VarID = "& linkid &"" & vbCrLf
ContenutoFile = ContenutoFile & "%" & ">" & vbCrLf
ContenutoFile = ContenutoFile & ""
Documento.Write ContenutoFile
Set FSO = Nothing
rs.MoveNext
Loop
end if
rs.Close
set rs = nothing
%>

In neretto i nomi dei campi che non conosco. Controllali.

Roby

[elbaforum]

Ciao Roby,

ho fatto una prova cosi:

<% Dim Conn, StrConn

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "& Server.MapPath("db.mdb") &";"

SQL = " SELECT * FROM Tabella ORDER BY Tabella.ID DESC "
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, Conn, 1, 3
If NOT RS.EOF Then
do while not rs.eof
linkid = RS("ID")
ulr = RS("titolo") 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Documento = FSO.OpenTextFile(Server.MapPath("/isoladelba_ca/rewrite/public/") & "\" & titolo, True)
ContenutoFile = ""
ContenutoFile = ContenutoFile & "<" & "%" & vbCrLf
ContenutoFile = ContenutoFile & "VarlinkID = "& ID &"" & vbCrLf
ContenutoFile = ContenutoFile & "%" & ">" & vbCrLf
ContenutoFile = ContenutoFile & ""
Documento.Write ContenutoFile
Set FSO = Nothing
rs.MoveNext
Loop
end if
rs.Close
set rs = nothing
%>

mi da questo errore:
Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A0005)
Chiamata di routine o argomento non validi
/isoladelba_ca/rewrite/test.asp, line 14

[Roby_72]

E sarebbe?

Roby