<!-- #include file="conn.asp"-->
<%
if Request("userName")="" or Request("title")="" or Request("content")="" then
	response.write "禁止惡意使用程序。"
	response.End
end if
       Set cmdTemp = Server.CreateObject("ADODB.Command")
       Set InsertCursor = Server.CreateObject("ADODB.Recordset")
       cmdTemp.CommandText = "SELECT top 1 * FROM guestbook order by id desc"
       cmdTemp.CommandType = 1
       Set cmdTemp.ActiveConnection = conn
       InsertCursor.Open cmdTemp, , 1, 3
       InsertCursor.addnew 
       InsertCursor("userName") =Request("userName")
       InsertCursor("email") =Request("email")
       InsertCursor("homepage") =Request("homepage")
       InsertCursor("title") =Request("title")
       InsertCursor("content") =Request("content")
       InsertCursor.Update
       InsertCursor.close
	   conn.close
       set InsertCursor=nothing
       set conn=nothing
	   response.redirect "guestbook.asp"
%>