% 'add new on error resume next dim conn dim rs dim strsql dim strconn 'strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("forum1.mdb") strconn = "PROVIDER=Microsoft.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("/database/forum1.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.open strconn strsql1 = "Select price FROM price_product where id= 1" strsql2 = "Select price FROM price_product where id= 2" strsql3 = "Select price FROM price_product where id= 3" set rs1 = server.createobject("adodb.recordset") set rs2 = server.createobject("adodb.recordset") set rs3 = server.createobject("adodb.recordset") rs1.open strsql1, conn, 2, 2 rs2.open strsql2, conn, 2, 2 rs3.open strsql3, conn, 2, 2 'if not rs.eof then rs.movefirst '--------------------------------------------------------------------------- %>
|
||||||||||||
|
||||||||||||