<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>invoice on tv set</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<!--META HTTP-EQUIV=REFRESH CONTENT='1;URL=monitor.asp'-->
</head>
<H3>添加客户信息<H3>
<Form Action="guestputin.asp" Method="post">
<%
If Request.Form("Action")="添加" Then
Set c = Server.CreateObject("ADODB.Connection")
c.open "DSN=vod","dba","sql"
set r = CreateObject("ADODB.RecordSet")
Roomno="select room_no from guest_info"
If Request.Form("Roomno1")="&Roomno" Then
r.open "update guest_info set last_name='"&Request.Form("Guestno1")&"',room_no='"&Request.Form("Roomno1")&"'",c
Else
r.open "insert into guest_info(last_name,room_no) values('"&Request.Form("Guestno1")&"','"&Request.Form("Roomno1")&"')",c
End If
End If
%>
<p>
客户名：<INPUT TYPE=Text NAME=Guestno1 SIZE=10><BR>
房间号：<INPUT TYPE=Text NAME=Roomno1 SIZE=10><BR>
<INPUT TYPE=submit VALUE="添加" NAME="Action"><BR>
</p>
</Form>
<%
'r.Close
c.Close
'set r = nothing
set c = nothing
%>
</body></html>
出错提示：
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: ''
/vod/guestputin.asp，行44
