<% On Error Resume Next %> <% if (Request.ServerVariables("QUERY_STRING") = "") then %>

DenTest

<% else %> <% BasicLockUnlock() %>

<% =Application("0123456789") %>

<% end if %>