Something useful

Add new content set conn = server.createObject ("adodb.connection") dbpath = server.mappath ("namebook.mdb") conn.open "driver = {Microsoft Access Driver (* .mdb)}; DBQ =" & dbpathset RS = Server.createObject ("AdoDb.Recordset") RS.Open "Subject", conn, 2, 3rs.addnewrs ("Subject") = Subjectrs.Updaters.closeconn.closset = NothingSet Conn = Nothing Write Picture SET ConnGraph = Server.createObject ("AdoDb.Connection") Conngraph.connectionstring = "driver = {Microsoft Access Driver (* .mdb)}; dbq =" & Server.mappath ("images.mdb") & "; uid =; PWD =; "Conngraph.open set rec = server.createObject (" adodb.recordset ") strsql =" select img from images where id = "& trim (Request (" ID ")) Rec.Open strsql, conngraph, 1, 1 Response.ContentType = "image / *" Response.BinaryWrite rec ( "img"). getChunk (7500000) rec.close set rec = nothing set connGraph = nothing See <% set dbconnection = Server.CREATEOBJECT ( "ADODB.CONNECTION") Dbpath = server.mappath ("Userbook.mdb") dbconnection.open "Driver = {Microsoft Access Driver (* .mdb)}; dbq =" & dbpathsql = "Select * from Userbook" set custom Rlist = dbconnection.execute (SQL)%>