<%@import namespace="system.data.oledb"%>
<%@import namespace="system.data"%>
<%@ Page Language="vb" explicit="true" debug="true"%>
<script runat="server">
sub page_load(sender As Object,e As EventArgs)
if Page.IsPostBack then
InsertRecord()
End If
End Sub
Sub InsertRecord()
dim conClasf As OleDbConnection
dim cmdClasf As New OleDbCommand
dim strClasf As string
dim strSQL As String
dim intRowsAff As Integer