<%
	Response.Buffer = True
	whattype         = Request("type")
%>
<%
If whattype = "addcomment" then
	topic        = Request("topic")
	name         = Request("name")
	email        = Request("email")
	song1        = Request("song1")
	artist1      = Request("artist1")
	justify1     = Request("justify1")
	song2        = Request("song2")
	artist2      = Request("artist2")
	justify2     = Request("justify2")
	song3        = Request("song3")
	artist3      = Request("artist3")
	justify3     = Request("justify3")
	song4        = Request("song4")
	artist4      = Request("artist4")
	justify4     = Request("justify4")
	song5        = Request("song5")
	artist5      = Request("artist5")
	justify5     = Request("justify5")
	ip           = Request("ip")
	dateposted   = Now
	table        = "tblComments"
	call addcomment
End If
%>
<%
Sub addcomment
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open "fivesongs","",""
	Set rs = Server.CreateObject("ADODB.RecordSet")
  	rs.Open table,conn,3,3
  	rs.AddNew
	rs("title") = topic
  	rs("comment") = comment
	rs("name") = name
	rs("email") = email
  	rs("ip") = ip
  	rs("dateposted") = dateposted
  	rs.Update
  	rs.Close
  	conn.Close
	
	Response.Clear
	Response.Redirect "comment_board.asp"
End Sub
%>