dim srs
  sqlserver = request.form("db") 'get database name from input
  sqluser = request.form("user") 'get sql user from input
  sqlpwd = request.form("pass") 'get sql pwd from input
  sqldb = request.form("dbname") 'get db name from input
  set sconn = CreateObject("ADODB.Connection") 'prep connection to sql 
  set srs = CreateObject("ADODB.Recordset") 'prep recordset for login names
  sconn.open "PROVIDER=SQLOLEDB;DATA SOURCE=" & sqlserver & ";UID=" & sqluser &_
             ";PWD=" & sqlpwd & ";DATABASE=" & sqldb 'connect to sql 
query = "select loginname from irsysusers where status = 12 order by loginname"
  srs.open query, sconn
  if srs.eof then 
    response.write "NO USERS FOUND IN DATABASE, CONTACT SYSTEMS DEPT"
  else 
    response.write "<select name=iruser><OPTION VALUE='%'>ALL USERS</OPTION>"
    do until srs.eof 
      response.write "<option>" & srs.fields("loginname") & "</option>" 
      srs.movenext 
    loop
    response.write "</select><br><br><input type=submit value='Get Rights'></form>" 
  end if
  srs.close     
  sconn.close