<%@ Import Namespace="system.data" %>
<%@ Import Namespace="system.data.oledb" %>
<script language="VBSCRIPT" runat="server">
    Sub enter_click(ByVal sender As Object, ByVal e As EventArgs)
        Dim conn As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=C:\Inetpub\wwwroot\asp1\App_Data\user.mdb")
        Dim strsql As String
        strsql = "Insert Into user(user_name,password ) values('" & user_name.Text & " ','" & password.Text & " ')"
        Dim cmd As New OleDbCommand(strsql, conn)
        conn.Open()
        cmd.ExecuteNonQuery()
        conn.Close()         
    End Sub

    3Q~!