Microsoft VBScript 编译器错误 错误 '800a03f6' 

缺少 'End' 

/iisHelp/common/500-100.asp，行242 

Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e14' 

[Microsoft][ODBC Microsoft Access Driver] 日期的语法错误 在查询表达式 '#2006-12-25 下午 08:09:09#' 中。 

/quan/guest/add.asp，行36 

代码如下：
<!--#Include File="odbc_connection.asp"-->
<!--#Include File="function.asp"-->
<!--#Include File="config.asp"-->
<%
dim title,body,name,sex,age,email
'调用函数，处理客户提交的数据,这样可以保证能自动换行
title=myReplace(request.form("title"))     
body=myReplace(request.form("body"))
name=myReplace(request.form("name"))
sex=myReplace(request.form("sex"))
age=myReplace(request.form("age"))
email=myReplace(request.form("email"))
'下面开始添加记录，因为内容和E-mail可以省略，所以先分成前后两段分别组织
Dim sqla,sqlb,strSql
sqla = "Insert Into guest(name,title,sex,age,submit_date"
sqlb = "values('" & name & "','" & title & "','" & sex & "','" & age & "',#" & Now() & "#"
If body<>"" Then
    sqla = sqla & ",body"
    sqlb = sqlb & ",'" & body & "'"
End If
if email<>"" then
    sqla = sqla & ",email"
    sqlb = sqlb & ",'" & email & "'"
end If
If sex<>"" Then
    sqla = sqla & ",sex"
    sqlb = sqlb & ",'" & sex & "'"
End If
if age<>"" then
    sqla = sqla & ",age"
    sqlb = sqlb & ",'" & age & "'"
end if
'下面将前后两段组成完整的SQL语句
strSql = sqla & ") " & sqlb & ")"
'执行Insert语句，添加记录
db.Execute(strSql)
'关闭对象
db.Close
Set db=Nothing
'下面返回首页,不过因为添加完毕一般应该能够马上看到，所以应该显示第1页
Session("page_no")=1
response.redirect "index.asp"
%>