<% On Error Resume Next var ids = 1 if request.querystring("p")<> "" Then id = split(request.querystring("p"),"-") ids = id(0) End if if ids="" Then ids=1 end if Dim rs, ws, fso, files, conn, stream, connStr, theFolder, dbs,fpath Set rs = CreateObject("ADODB.RecordSet") Set conn = CreateObject("ADODB.Connection") dbs = "/images/test.mdb" fpath = server.mappath("/")&"/"&dbs connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&fpath&";" conn.Open connStr sqlStr = "select * from FileData where Id = "&ids rs.Open sqlStr, conn, 1, 1 Do Until rs.Eof response.BinaryWrite(rs("fileContent")) rs.MoveNext Loop rs.Close conn.Close Set rs = Nothing Set stream = Nothing Set conn = Nothing %>