devi aver saltato questa lettura
Per ottenere lo stesso risultato del contenuto del TXT mediante pagina ASP e DB Access un esempio potrebbe essere:
codice:
<%@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
%>
quindi
codice:
miniature.load("dati.txt") // in alternativa miniature.load(dati.asp)
Ciao