<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../include/connect.asp" -->
<%
VideoID=Checkstr(request.querystring("VideoID"))
Username=Checkstr(request.querystring("Username"))
GroupID=Checkstr(request.querystring("GroupID"))
if VideoID="" then
response.end()
else
      set rs = server.CreateObject("adodb.recordset")
	  sql="select * from Show5_Videocomment where CommentID is null"
	  rs.open sql,cn,1,3
	  rs.addnew
	  rs("Personaconid")=request.form("personaconid")
	  rs("VideoID")=VideoID
	  rs("Commentuser")=request.form("commentuser")
	  rs("Comment")=request.form("comment")
	  rs.update
	  rs.close
	  set rs=nothing
	  
	  set rs = server.CreateObject("adodb.recordset")
	  sql="select * from Show5_ALLVideo where VideoID="&VideoID&""
	  rs.open sql,cn,1,3
	  rs("Commentnum")=rs("Commentnum")+1
	  rs.update
	  rs.close
	  set rs=nothing
	  response.redirect ("videoplay.asp?Videoid="&VideoID&"&username="&Username&"&groupID="&GroupID&"&seq=#comment")
end if
%>
