%
Set Rs=server.Createobject("adodb.recordset")
Rs.activeconnection=Conn
If Request("action")="add" Then
country=Trim(Request("country"))
city=Trim(Request("city"))
companyName=Trim(Request("companyName"))
Username=Trim(Request("Username"))
sex=Trim(Request("sex"))
tel=Trim(Request("tel"))
fax=Trim(Request("fax"))
email=Trim(Request("email"))
content=Request("content")
MemberID=0
sql="insert into TbGuestBook(MemberID,country,city,companyName,userName,sex,tel,fax,email,content) values("&MemberID&",'"&country&"','"&city&"','"&_
companyName&"','"&userName&"','"&sex&"','"&tel&"','"&fax&"','"&email&"','"&content&"')"
Conn.execute(sql)
Conn.close
Set Conn=Nothing
Msgstr="留言成功"
Msg(Msgstr)
Redirect("book.asp")
End if
%>