% @ language=vbscript %> <%option explicit%> <% dim str1, objconn1, objrs1, strsql str1=request("t1") set objconn1=server.createobject("ADODB.connection") objconn1.connectionstring= "driver={microsoft access driver (*.mdb)};" & "dbq=" & server.mappath("DB\invs.mdb") objconn1.open strsql= "select * from table1 where group1 like chem" set objrs1=server.createobject("ADODB.recordset") objrs1.open strsql, objconn1 objrs1.close set objrs1=nothing objconn1.close set objconn1=nothing %>
|
|
![]() |
|||||
|
ورود به ليست اختراعات مخترعين ايران |
||||||
|
اگر شماره اشتراک ندارید، وارد این قسمت بشوید |
|
||||
| Inventions List of Iran Inventors |
|
|||||
| iran inventors, iran inventor, iran inventions, iran invention |
|
|||||
|
|
||||||
|
"iran inventors" - iran - iranian - persian - farsi - inventors -inventions - iranian invention - innovations - innovati innovator - iran innovators |
||||||