<%
set cn=server.createobject(adodb.connecstring) '可能写错了语法,方法不会错
cn.connecstring="......" '语法你去查一下VB的数据源连接
set rs=server.createobject(adodb.recordset) '语法,和html语法,
set rs1=server.createobject(adodb.recordset) '只能给你一个思路,语言我不熟悉
rs.activeconnecting=cn '写错了要你去查相应的资料了
rs1.activeconnecting=cn
sqlstr="select 考试名 from 考试表"
rs.source=sqlstr
rs.open
sqlstr="select 科目名 from 科目表"
rs1.source=sqlstr
rs1.open
%>
if requesr.form("考试名")<>"" and request.from("科目名")<>"" then
sql="insert into 考试表 (requesr.form("考试名"),request.from("科目名"))"
cn.execute sql
end if
<%