devi aver saltato questa lettura
Per ottenere lo stesso risultato del contenuto del TXT mediante pagina ASP e DB Access un esempio potrebbe essere:
quindicodice:<%@LANGUAGE="VBSCRIPT"%> <% Response.Expires = 0 dim DSNName, sql 'set DSNName =Server.CreateObject("ADODB.Connection") DSNName = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" DSNName = DSNName & Server.MapPath("/mdb-database/") & "\ferramenta.mdb;pwd=guest" sql = "SELECT * FROM viti ORDER BY viti.idcod Asc" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = DSNName rs.Source = sql rs.CursorType = 0 rs.CursorLocation = 2 rs.LockType = 1 rs.Open() 'function start x = 0 while not rs.eof x = x + 1 Response.Write("img" & x & "=" & rs("image")& "&cat" & x & "=" & rs("categ")& "&descl" & x & "=" & rs("descrizione")& "&drive" & x & "=" & rs("drive")& "&dim" & x & "=" & rs("dimensioni")) rs.MoveNext Response.Write("&") wend get_number_of_recordset = x Response.write("Totale="& get_number_of_recordset & "&") 'end function rs.Close Set rs=Nothing %>
codice:miniature.load("dati.txt") // in alternativa miniature.load(dati.asp)
Ciao

Rispondi quotando