Set r9k = con.Execute("SELECT COUNT(*) FROM " & sql_table & " WHERE Kopipe LIKE '" & pbody & "'")
	r9kcheck = r9k.Fields.Item(0).Value

	If r9kcheck > 0 Then
		Response.Write("You comment was unoriginal.")
		Response.End
	End If