<%
	' objConn - script-global connection object (no Dim for global scope)
	Session.Timeout=15
	Set objConn=Server.CreateObject("ADODB.Connection")
	' Old DSN connection:
	' objConn.ConnectionString="DSN=shopdb;Uid=root;Pwd=WJF11sql"
	' Direct MySQL ODBC connection with pooling enabled:
	objConn.ConnectionString="Driver={MySQL ODBC 9.4 Unicode Driver};" & _
	                         "Server=192.168.122.1;" & _
	                         "Port=3306;" & _
	                         "Database=shopdb;" & _
	                         "User=570005354;" & _
	                         "Password=570005354;" & _
	                         "Option=3;" & _
	                         "Pooling=True;Max Pool Size=100;"
	objConn.Open
	set rs = server.createobject("ADODB.Recordset")
%>