<% Dim objConn Session.Timeout=15 Set objConn=Server.CreateObject("ADODB.Connection") objConn.ConnectionString="DSN=shopdb;Uid=root;Pwd=WJF11sql;Option=3;Pooling=True;Max Pool Size=100;" objConn.Open set rs = server.createobject("ADODB.Recordset") %>