<% Dim objConn Session.Timeout=15 Set objConn=Server.CreateObject("ADODB.Connection") objConn.ConnectionString="DSN=wjf_employees;Uid=root;Pwd=WJF11sql" objConn.Open set rs = server.createobject("ADODB.Recordset") %>