salve a tutti!
ieri ho provato vari comandi su come creare una gallery senza usare database.....
quindi ho creato uno script (anche grazie all'aiuto dei frequentatori di questo forum) che:
1) legge quanti file ci sono in una directory
2) prende il nome di ognuno e crea un link per ognuno di essi
il codice:
ora avevo pensato.....ma una piccola descrizione della foto?codice:Set fso = CreateObject("Scripting.FileSystemObject") Set folderObject = fso.GetFolder(Server.MapPath("dataimages")) Set filesObject = folderObject.Files i=0 For Each file In filesObject i=i+1 response.write("<table cellpadding='4' border='0'><td>[b]File n." &i& "</td><tr><td>") response.write(objRs("descrizione") & objRs("id")) response.write("</td><tr><td> Nome = " &file.name& "</td></table>") Next Set fileObject = Nothing Set folderObject = Nothing Set fso = Nothing %>
potrei dirgli che per ogni file nella directory deve creare un record set, (stavolta per forza con un database), ma ci sto provando in tutti i modi, niente!!!!
ho provato cosi!
sapete dirmi perche non funziona?codice:<% Set fso = CreateObject("Scripting.FileSystemObject") Set folderObject = fso.GetFolder(Server.MapPath("dataimages")) Set filesObject = folderObject.Files i=0 For Each file In filesObject i=i+1 strSQL="SELECT * from tabella " Set objconn = Server.CreateObject ("ADODB.Connection") objconn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("dbimages.mdb") Set objRS = Server.CreateObject ("ADODB.Recordset") ObjRS.Open strSQL,objconn, 3, 3 ObjRs.addnew ObjRs(1) = filesObject ObjRs.update Next %>
ecco l'errore:
Microsoft VBScript runtime error '800a01c2'
Wrong number of arguments or invalid property assignment: 'objRS'
/magia.asp, line 26

Rispondi quotando
)