不会显示未填信息；老是提示最后一句"sqlcmd=..."语句未结束。除了字段beizu为文本，年月日为数字外，所有的text都为金额。非常感谢。

<%
year1=Request("year1")
month1=Request("month1")
day1=Request("day1")
birthday=year1&"/"&month1&"/"&day1
if birthday="" then
Response.write("年月日不能为空！")&"
"
Response.write("")&"返回"
Response.write("")
Response.end
end if
text1=Request("text1")
text2=Request("text2")
text3=Request("text3")
text4=Request("text4")
text5=Request("text5")
text6=Request("text6")
text7=Request("text7")
text8=Request("text8")
text9=text1+text2+text3+text4+text5+text6+text7+text8
text10=Request("text10")
text11=Request("text11")
text12=Request("text12")
text13=Request("text13")
text14=Request("text14")
text15=text10+text11+text12+text13+text14
text16=Request("text16")
text17=Request("text17")
text18=Request("text18")
text19=Request("text19")
text20=text16+text17+text18+text19+text26
text21=Request("text21")
text22=Request("text22")
text23=Request("text23")
text24=Request("text24")
text25=Request("text25")
text26=Request("text26")
text27=Request("text27")
text28=Request("text28")
text29=Request("text29")
text30=Request("text30")
text31=Request("text31")
h1=text21+text22+text23+text24+text25+text27+text28+text29+text30+text31
h2=text9+text15+text20
beizu=Request("beizu")
Set newconn=Server.CreateObject("ADODB.Connection")
DBPath=Server.MapPath("kly1.mdb")
newconn.Open"Driver={Microsoft Access Driver (*.mdb)};DBQ="&DBPath
SQLcmd="Insert Into daily(序号,日期,日式洗头,中式洗头, 蒸汽,售月卡,振动,月卡节钟,"
sqlcmd=sqlcmd &"美发,面膜,合计,30元,25元,20元,月卡加收,月卡节钟,小计,30元2,25元2,"
sqlcmd=sqlcmd &"20元2,月卡加收2,月卡节钟2,小计2,耳烛,韩式,振动2,沐浴,售月卡2,新店月卡节钟,"
sqlcmd=sqlcmd &"分店节钟,加收5元,招待,售金卡,小计3,总金额,备注)values("&id&","&birthday&","
sqlcmd=sqlcmd &"'"&text1&"','"&text2&"','"&text3&"','"&text4&"','"&text5&"','"&text6&"','"&text7&"',"
sqlcmd=sqlcmd &"'"&text8&"','"&text9&"','"&text10&"','"&text11&"','"&text12&"','"&text13&"','"&text14&"',"
sqlcmd=sqlcmd &"'"&text15&"','"&text26&"','"&text16&"','"&text17&"','"&text18&"','"&text19&"','"&text20&"',"
sqlcmd=sqlcmd &"'"&text27&"','"&text28&"','"&text29&"','"&text30&"','"&text31&"','"&text21&"','"&text22&"',"
sqlcmd=sqlcmd &"'"&text23&"','"&text24&"','"&text25&"','"&h1&"','"&h2&"','"&beizu&"')"
newconn.Execute SQLcmd
response.write ""
set newconn=nothing
%>