<%
	' objConn - script-global connection object (no Dim for global scope)
	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")
%>