<% ' open connection %> <% on error resume next %> <% set dbconn = server.createobject("ADODB.Connection") %> <% dbconn.open "DSN=triggerit;UID=johnwhite;PWD=notthepassword;DATABASE=johnwhite" %>

Enter the following information to obtain an audit quote: Generally, you will receive a quote within one business day. We take the privacy of your information very seriously. See our privacy statement for details. By submitting this form you will be under no obligation. All audit fee quotes are subject to change if the following information is inaccurate. Audit fee quotes are valid for 30 days. Company Name: Your Name: Position: Address: City:      State:  Zip:   USA Phone Number: Fax Number: E-Mail Address: Plan Year End To Be Audited: Record Keeper:  (help) Assets Held By:  (help) Plan Name:  (help) Discrimination Test: Select One <% ' request in from server %> <% Set dbselect = Server.CreateObject("ADODB.Recordset") %> <% selectSQL = "SELECT * FROM viewdiscrimination ORDER BY 1" %> <% dbselect.open selectSQL, dbconn, adopenstatic, adlockpessimistic, adcmdtext %> <% dbselect.movefirst %> <% do while not dbselect.eof %> <% x = dbselect.fields.count %> <% if x>1 then %> <% =cstr(dbselect.fields.item(1)) %> <% else %> <% =cstr(dbselect.fields.item(0)) %> <% end if %> <% dbselect.movenext %> <% loop %> <% dbselect.close %> # Of Participants:  (help) Select ONE <% ' request in from server %> <% Set dbselect = Server.CreateObject("ADODB.Recordset") %> <% selectSQL = "SELECT * FROM viewparticipants ORDER BY 1" %> <% dbselect.open selectSQL, dbconn, adopenstatic, adlockpessimistic, adcmdtext %> <% dbselect.movefirst %> <% do while not dbselect.eof %> <% x = dbselect.fields.count %> <% if x>1 then %> <% =cstr(dbselect.fields.item(1)) %> <% else %> <% =cstr(dbselect.fields.item(0)) %> <% end if %> <% dbselect.movenext %> <% loop %> <% dbselect.close %> Total Plan Assets:  (help) Select ONE <% ' request in from server %> <% Set dbselect = Server.CreateObject("ADODB.Recordset") %> <% selectSQL = "SELECT * FROM viewassets ORDER BY 1" %> <% dbselect.open selectSQL, dbconn, adopenstatic, adlockpessimistic, adcmdtext %> <% dbselect.movefirst %> <% do while not dbselect.eof %> <% x = dbselect.fields.count %> <% if x>1 then %> <% =cstr(dbselect.fields.item(1)) %> <% else %> <% =cstr(dbselect.fields.item(0)) %> <% end if %> <% dbselect.movenext %> <% loop %> <% dbselect.close %> Type Of Plan: Select ONE <% ' request in from server %> <% Set dbselect = Server.CreateObject("ADODB.Recordset") %> <% selectSQL = "SELECT * FROM viewplantype ORDER BY 1" %> <% dbselect.open selectSQL, dbconn, adopenstatic, adlockpessimistic, adcmdtext %> <% dbselect.movefirst %> <% do while not dbselect.eof %> <% x = dbselect.fields.count %> <% if x>1 then %> <% =cstr(dbselect.fields.item(1)) %> <% else %> <% =cstr(dbselect.fields.item(0)) %> <% end if %> <% dbselect.movenext %> <% loop %> <% dbselect.close %> Employer Match: Select ONE <% ' request in from server %> <% Set dbselect = Server.CreateObject("ADODB.Recordset") %> <% selectSQL = "SELECT * FROM viewmatch ORDER BY 1" %> <% dbselect.open selectSQL, dbconn, adopenstatic, adlockpessimistic, adcmdtext %> <% dbselect.movefirst %> <% do while not dbselect.eof %> <% x = dbselect.fields.count %> <% if x>1 then %> <% =cstr(dbselect.fields.item(1)) %> <% else %> <% =cstr(dbselect.fields.item(0)) %> <% end if %> <% dbselect.movenext %> <% loop %> <% dbselect.close %> Participant Directed Investing?: Select ONE <% ' request in from server %> <% Set dbselect = Server.CreateObject("ADODB.Recordset") %> <% selectSQL = "SELECT * FROM viewmatch ORDER BY 1" %> <% dbselect.open selectSQL, dbconn, adopenstatic, adlockpessimistic, adcmdtext %> <% dbselect.movefirst %> <% do while not dbselect.eof %> <% x = dbselect.fields.count %> <% if x>1 then %> <% =cstr(dbselect.fields.item(1)) %> <% else %> <% =cstr(dbselect.fields.item(0)) %> <% end if %> <% dbselect.movenext %> <% loop %> <% dbselect.close %> Comments/Questions: * You must hit the "Submit" button below to receive an audit quote.

<% dbconn.close %>