//showdata.asp
<%
@
language="vbscript" codepage="936" %>
<
html
>
<head>
<title>[show the data]</title>
</head>
<body>
<%
Application.Lock()
set dataConnect = Server.CreateObject("ADODB.Connection")
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="_
&Server.MapPath("db1.mdb")&_
";Persist Security Info=True"
dataConnect.Open(strConnect)
if Request.Form("name") <> "" or Request.Form(